根据其他字段值隐藏和取消隐藏字段

时间:2018-06-08 09:13:05

标签: access-vba

我在Access 2010中有一个表单。此表单包含一个名为“Type”的组合框,该组合框与名为“Type”的表中的字段相关。另一个“Car_1”组合框与同一个表中名为“Car_1”的字段相关 我想当“Type”组合框为空(null)时,组合框Car_1应该是不可见的。

我写了一段代码但是没有用。实际上,“Car_1”组合框始终可见!

代码是:

Private Sub Form_Current()

If Me.Type.Value = "" Then

    Me.Car_1.Visible = False

Else

    Me.Car_1.Visible = True

End If

End Sub

任何建议都是合适的......

2 个答案:

答案 0 :(得分:1)

您可以将其缩小为单行:

Private Sub Form_Current()

    Me!Car_1.Visible = Not IsNull(Me!Type.Value)

End Sub

答案 1 :(得分:0)

那是因为你没有测试Me.Type.ValueNull,你正在测试它是否为零长度字符串。测试它是否为Null

Private Sub Form_Current()

    If IsNull(Me.Type.Value) Then

        Me.Car_1.Visible = False

    Else

        Me.Car_1.Visible = True

    End If

End Sub

或同时考虑Null和零长度字符串:

Private Sub Form_Current()

    If Me.Type.Value & vbNullString = vbNullString Then

        Me.Car_1.Visible = False

    Else

        Me.Car_1.Visible = True

    End If

End Sub