根据组合框选择切换表单上其他字段的可见性 - MS Access
Toggle visibility of other fields on form based upon combobox selection - MS Access
问题...
如何根据组合框项的选择切换表单上其他几个字段 (checkboxes/textboxes) 的可见性。下图显示了一个列表框,但无论哪种方式,如何使用 vba 代码打开或关闭灰色框中所有字段的可见性。基本上,如果组合框选择是 scheduled 那么 visible=true。 Else visible=false 我该如何编码???
使用组合框 AfterUpdate 事件,也可能形成 Current 事件。因此,构建一个可以从两个事件调用的过程,例如:
Sub Form_Current()
SetVisible
End Sub
Sub cbo1_AfterUpdate()
SetVisible
End Sub
Sub SetVisible()
Me.tbx1.Visible = Me.cbo1 = "scheduled"
Me.cbx1.Visible = Me.cbo1 = "scheduled"
End Sub
另一种方法是对文本框和组合框(抱歉,不适用于其他控件)使用条件格式 Enable/Disable 以及设置颜色以使其不可见。
问题...
如何根据组合框项的选择切换表单上其他几个字段 (checkboxes/textboxes) 的可见性。下图显示了一个列表框,但无论哪种方式,如何使用 vba 代码打开或关闭灰色框中所有字段的可见性。基本上,如果组合框选择是 scheduled 那么 visible=true。 Else visible=false 我该如何编码???
使用组合框 AfterUpdate 事件,也可能形成 Current 事件。因此,构建一个可以从两个事件调用的过程,例如:
Sub Form_Current()
SetVisible
End Sub
Sub cbo1_AfterUpdate()
SetVisible
End Sub
Sub SetVisible()
Me.tbx1.Visible = Me.cbo1 = "scheduled"
Me.cbx1.Visible = Me.cbo1 = "scheduled"
End Sub
另一种方法是对文本框和组合框(抱歉,不适用于其他控件)使用条件格式 Enable/Disable 以及设置颜色以使其不可见。