Question

我正在尝试设置一个具有访问权限的表单，以便根据用户从公司组合框（雇主代表或承包商）中选择的值取决于所显示的合同操作组合框和子句文本框的集合。使用下面的代码，我已经能够隐藏它们，但不能再让它们变得可见。

 Private Sub Company_Change()
  Select Case Trim(Me.Company.Text)
  Case "Employers Rep"
   Me.ER_Action.Visible = True
   Me.ER_Action2.Visible = True
   Me.ER_Clause.Visible = True
   Me.ER_Clause2.Visible = True
  Case "Contract"
   Me.ER_Action.Visible = True
   Me.ER_Action2.Visible = True
   Me.ER_Clause.Visible = True
   Me.ER_Clause2.Visible = True
  Case Else
   Me.ER_Action.Visible = False
   Me.ER_Action2.Visible = False
   Me.ER_Clause.Visible = False
   Me.ER_Clause2.Visible = False
   Me.Con_Action.Visible = False
   Me.Con_Action2.Visible = False
   Me.Con_Clause.Visible = False
   Me.Con_Clause2.Visible = False
End Select

任何帮助都将非常感激。谢谢A.S.H此代码现在有效。为此 Select Case Trim（Me.Company.Text）更改了 Select Case Me.Company 。

Answer 1

您也可以考虑这一点。

 Private Sub Company_Change()

 Select Case Trim(Me.Company.Text)
  Case "Employers Rep"
   blnShowit = true

  Case "Contract"
   blnShowit = true

  Case Else
   blnShowit = false

End Select


   Me.ER_Action.Visible = blnShowit
   Me.ER_Action2.Visible = blnShowit

   Me.ER_Clause.Visible = blnShowit
   Me.ER_Clause2.Visible = blnShowit

   Me.Con_Clause.Visible  = blnShowit       
   Me.Con_Clause2.Visible  = blnShowit

Answer 2

将您的代码放入组合框的Afterupdate事件中。这会做的伎俩

访问文本框可见，具体取决于组合框值

2 个答案: