在 Access 2007 中通过组合框选择启用字段可见性

Question

我在 Microsoft Access 2007 中有一个名为“系统”的表单，并且该表单中有一个名为“实用程序”的组合框。下面是另一个名为 Utility_FOO 的组合框，我默认禁用了它的可见性。实用程序中的选项之一是标记为“FOO”的复选框。我希望只要选择 FOO，Utility_FOO 就变得可见。

我尝试在 Visual Basic 中创建一个子例程，每次从列表中选择一个项目（使用 onUpdate）时检查是否选择了 FOO，但我不知道如何检查该特定条目。有没有一种简单的方法可以做到这一点？

谢谢！

Answer 1

如果您的组合框绑定到多值字段，请检查其 .Value 属性以确定 FOO 是否在选定（选中）的项目中。

Private Sub Utility_AfterUpdate()
    Call SetVisible
End Sub

Private Sub SetVisible()
    Dim varItm As Variant
    Dim blnVisible as Boolean

    blnVisible = False
    If Not IsNull(Me.Utility.Value) Then
        For Each varItm In Me.Utility.Value
            If varItm = "FOO" Then
                blnVisible = True
                Exit For
            End If
        Next varItm
    End If
    Me.Utility_FOO.Visible = blnVisible
End Sub

您可能还想对表单的 On Current 事件执行相同的操作。如果是这样，请添加以下内容：

Private Sub Form_Current()
    Call SetVisible
End Sub