1

我在 Microsoft Access 2007 中有一个名为 System 的表单,在此表单中有一个名为 Utility 的组合框。下面是另一个名为 Utility_FOO 的组合框,我默认禁用了它的可见性。实用程序中的选项之一是标有“FOO”的复选框。我希望 Utility_FOO 在选择 FOO 时变得可见。

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

谢谢!

4

1 回答 1

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
于 2010-10-02T19:29:35.470 回答