我创建了一个用户表单并添加了一个名为' DSSSContact'的chekcbox。我已经编写了一些代码来检查用户窗体的内容,然后保存在以下子窗口中:
Private Sub SaveandClose_Click()
当表单初始化时,复选框设置为灰色但勾选 - 我认为该值为null。 SavandClose子代码包括以下内容,我认为这将确保复选框设置为true或false:
If DSSSContact = Null Then
MsgBox "DSSS Contact Test"
Exit Sub
End If
但是,当我使用“保存并关闭”命令按钮保存并关闭表单而未对复选框进行选择时,表单会保存内容而不会触发消息框。我创建的所有其他检查以验证文本框和组合框是否已填充正常工作。我还在同一个子域中添加了以下代码:
Debug.Print Me.DSSSContact.Value
这在立即窗口
中打印为null任何帮助非常感谢。感谢
答案 0 :(得分:1)
尝试
If IsNull(DSSSContact.Value) Then
答案 1 :(得分:0)
表单中的复选框为True =已选中或False =未选中。
sub test()
MsgBox DSSSContact.Value
If DSSSContact.Value = "False" Then
MsgBox "DSSS Contact Test"
Exit Sub
End If
end sub