438 ошибка времени выполнения при использовании функции флажка в Access VBA

Question

Я получаю ошибку выполнения 438 при использовании флажка в форме Access 2007: «Объект не поддерживает это свойство или метод». Что происходит не так и как я могу это исправить?

Private Sub Command133_Click() «On Error GoTo ErrHandle

' Save the Current Record 
If Me.Dirty Then Me.Dirty = False 

' Exit the procedure if appointment has been added to Outlook. 
If Me.chkAddedToOutlook = True Then 
    MsgBox "This appointment has already added to Microsoft Outlook.", vbCritical 
    Exit Sub 
Else 
End If 
End Sub 

Answer 1

Вы, возможно, придется быть более конкретным:

If Me!chkAddedToOutlook.Value = True Then 

Edit:

' ' Exit the procedure if appointment has been added to Outlook. 
' If Me.chkAddedToOutlook = True Then 
'  MsgBox "This appointment has already added to Microsoft Outlook.", vbCritical 
'  Exit Sub 
' End If 

' Exit the procedure if appointment has been added to Outlook. 
If Me!chkAddedToOutlook.Value = True Then 
    MsgBox "This appointment has already added to Microsoft Outlook.", vbCritical 
    Exit Sub 
End If 

Answer 2

Ваш Оригинал синтаксис, если он правильный, когда вы код в модуле на форме;

If Me.chkAddedToOutlook = -1 Then 

Я предпочитаю использовать. так как он позволяет работать intellisense и позволяет ссылаться на свойство или метод, который вы не можете сделать с помощью! оператор.