Ms access 438在Access VBA中使用复选框函数时出现运行时错误

Ms access 438在Access VBA中使用复选框函数时出现运行时错误,ms-access,vba,Ms Access,Vba,在Access 2007窗体上使用复选框时,出现438运行时错误:“对象不支持此属性或方法”。出了什么问题,我如何解决 私有子命令133_Click() '在出现错误时转到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 = Tru

在Access 2007窗体上使用复选框时,出现438运行时错误:“对象不支持此属性或方法”。出了什么问题,我如何解决

私有子命令133_Click() '在出现错误时转到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

您可能需要更具体一些:

If Me!chkAddedToOutlook.Value = True Then
编辑:


当您在表单上的模块中使用代码时,您的原始语法是否正确

If Me.chkAddedToOutlook = -1 Then

我更喜欢用英语。因为它允许intellisense工作,并允许您引用无法使用的属性或方法!操作员。

如果该复选框为true,则显示一个包含“此约会已添加到Microsoft Outlook”的消息框。如果不是真的,那就做点别的。是的,那就不会发生了?或者?事实上,这并没有发生。我没有收到messagebox。当我转到调试器时,我会看到图片中突出显示的文本。您使用的是bang还是点?VBA中的True和False分别等于-1和0。感谢您的回复,但我仍然收到相同的错误。根据Gustav的说法,这听起来像是窗体或控件损坏。删除该控件。保存并关闭表单。压缩并修复数据库。返回表单并创建一个新控件-最好称为其他控件。请重试相同的代码。您的复选框控件是否在选项组框架之外是单个控件?还是在选项组框架内添加了控件?如果它的控件在选项组中,您将得到错误,2427您输入了一个没有值的表达式。
If Me.chkAddedToOutlook = -1 Then