代码之家 › 专栏 › 技术社区 › Bucket faoud

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

onupdate access-vba combobox vba ms-access

1

Bucket faoud · 技术社区 · 14 年前

我尝试过在visualbasic中创建一个子例程,每次我从列表中选择一个项目时(使用onUpdate)都会检查FOO是否被选中,但是我不知道如何检查那个特定的条目。有没有简单的方法?

1 回复 | 直到 14 年前

1

HansUp 14 年前

如果组合框绑定到多值字段,请检查其.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

Private Sub Form_Current()
    Call SetVisible
End Sub