访问VBA：从另一个表单获取复选框的价值

Posted 2021-04-10

我试图以单独的形式访问我的复选框的值。我使用代码从它自己的表单中访问复选框信息没有问题...

If Not IsNull(Check43) Then
    If Check43 Then
        DoCmd.OpenQuery "Insert_Query"
    End If
End If

但我无法弄清楚如何以另一种形式访问“Check43”的值。我觉得下面的东西会起作用......

Dim frm As Form, ctl As Control
Set frm = Forms!Relevant_Application
Set ctl = frm!Check43

If Not IsNull(ctl) Then
    If ctl Then
        DoCmd.OpenQuery "Insert_Query"
    End If
End If

但即使选中该复选框，它也不起作用。它不会抛出错误，它只是跳过函数。

答案

复选框不存储空值，它们存储布尔值（-1和0）。因此，如果你将逻辑从If Not IsNull(ctl) Then更改为If ctl = True Then它应该工作。

这也是here解决的问题。

为了给予信用到期@BankBuilder在我之前提到了这一点。

希望有所帮助。最好的祝福。