Цель - задать действие на получение фокуса сразу для всех полей формы (а не через свойства каждого поля).
Код примерно такой, и он вызывает ошибку (функция работает правильно если её задавать через свойства отдельного поля)

Private Sub Form_Current()
 
Dim Ctb As Control
For Each Ctb In Me.Controls
Select Case Ctb.ControlType
    Case acTextBox
        If Ctb.GotFocus = True Then ' здесь ошибка "438" - не поддерживается свойство
        Call esFocusInOut("Данные", True)
        End If
            If Ctb.LostFocus Then       ' здесь ошибка "438" - не поддерживается свойство
            Call esFocusInOut("Данные", False)
            End If
End Select
Next Ctb
 
End Sub

http://www.sql.ru/forum/1123359/zadat-deystvie-na-poluchenie-fokusa-srazu-dlya-vseh-poley-formy