Включение видимости поля из выбора в поле со списком в Access 2007 - PullRequest
Новая
       49

Включение видимости поля из выбора в поле со списком в Access 2007

1 голос
/ 01 октября 2010

У меня есть форма в Microsoft Access 2007, которая называется System, и комбинированное окно под названием Utility внутри этой формы.Ниже это еще одно поле со списком Utility_FOO, и я отключил его видимость по умолчанию.Одним из параметров в утилитах является флажок «FOO».Я хочу, чтобы Utility_FOO становился видимым при выборе FOO.

Я попытался создать подпрограмму в Visual Basic, которая проверяет, выбирается ли FOO каждый раз, когда я выбираю элемент из списка (используя onUpdate), но яне могу понять, как проверить эту конкретную запись.Есть ли простой способ сделать это?

Спасибо!

1 Ответ

1 голос
/ 02 октября 2010

Если ваше поле со списком привязано к многозначному полю, проверьте его свойство .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
...