访问VBA复选框错误2447

Question

好的，我在尝试在数据库中创建新记录时收到错误2447。这是代码。

'This checks the record each time a record is changed to see if it needs to display the text boxes
Private Sub Form_Current()
If Me.SigCheck = 1 then <--This is where I'm getting the error.
SigSerialtxt.Visible = True
SigSeriallbl.Visible = True
SigAssettxt.Visible = True
SigAssetlbl.Visible = True
Else
SigSerialtxt.Visible = False
SigSeriallbl.Visible = False
SigAssettxt.Visible = False
SigAssetlbl.Visible = False
End if
End Sub

我试图将变量更改为True，以及-1，但这两项工作都没有。我迷失了什么用。

Answer 1

解决了该问题，我将默认值设置为0，现在没有错误，并且可以正常工作。