Как изменить размер шрифта с помощью VBA в MS Acces

Question

Я пытаюсь изменить размер шрифта в отчете Ms Access в группе разделов на основе значения текстового поля.

Я написал некоторый код в VBA в событии «On Format»:

Private Sub Header_OrganizationalUnit_Format(Cancel As Integer, FormatCount As Integer)
    If Me.txt_OrganizationalUnit.Value = "HeadQuarter" Then
        Me.txt_OrganizationalUnit.FontSize = 24
    Else
        Me.txt_OrganizationalUnit.FontSize = 12
    End If
End Sub

Не изменяет размер шрифта в текстовом поле

Answer 1

Прежде всего, вам не нужен VBA для этого. Вместо этого вы можете использовать условное форматирование.

Событие, которое вы хотите захватить, - это событие Change. Вам также необходимо прочитать свойство Text вместо Value, поскольку значение обновляется только в том случае, если текстовое поле теряет фокус.

Добавьте эту процедуру события в код отчета:

Private Sub txt_OrganizationalUnit_Change()
    With txt_OrganizationalUnit
        If .Text = "HeadQuarter" Then
            .FontSize = 24
        Else
            .FontSize = 12
        End If
    End With
End Sub

Использование блока with позволяет уменьшить количество связанных вызовов, которые VB выполняет в фоновом режиме, и при этом ваш код выглядит лучше.