Ms access 将复选框设置为Visible=False

我试图使用以下代码使一个复选框在字段为空时消失：

If rstPIANO.RecordCount <= 0 Then
    MsgBox "No PIANO Data exists for this date"
    chkPIANO.Enabled = Not (chkPIANO.Enabled)
    chkPIANO.Visible = False
    Else
        chkPIANO.Visible = True
    End If

关于解决这个问题有什么想法吗？

在

Dim chkPIANO As复选框

您必须

将它设置为某个值。如果代码正在包含复选框的窗体上运行

Set chkPIANO=Me.CheckBoxName

但是，如果复选框控件的名称为chkPIANO，则不需要声明具有相同名称的变量。你应该可以把它称为

Me.chkPIANO

如果您的代码位于标准模块而不是窗体的模块中

Set chkPIANO=Forms！你的名字！复选框名称

作为基本实践，将
选项Explicit
添加到模块的
声明
部分，然后从VB编辑器的主菜单运行Debug->Compile。修复编译器抱怨的任何问题。在所有代码模块中使用
选项Explicit
。
我几乎在问了这个问题后立即意识到了这一点。谢谢你的帮助。
Dim chkPIANO As Checkbox