根据组合框值显示访问文本框

我试图在访问中设置一个表单，以便根据用户从公司组合框（雇主代表或承包商）选择的值取决于哪些合同操作集合显示组合框和子句文本框。使用下面的代码，我可以隐藏它们，但无法让它们再次变为可见。根据组合框值显示访问文本框

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这段代码现在可以工作。更改此选择案例Me.Company为此选择案例修剪（Me.Company.Text）。

来源

2015-10-06 BenC

*“我已经能够隐藏它们，但不能让它们再次变为可见。”* - 是当您为当前记录再次更改组合框时，还是当您移动到另一个记录或创建一个新的？ –

这两个，我已经注意到，代码似乎并没有运行任何东西之前，它得到案件Else 所以，如果我改变后真的任何一行后案件Else，它使文本框可见。 – BenC

除了“雇主代表”和“合同”之外，您还有其他选择组合框吗？ – MatthewD

你也可以考虑这个。

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

来源

2015-10-06 14:38:38 HarveyFrench

将您的代码放在组合框的Afterupdate事件中。这将会诀窍

来源

2015-10-07 12:21:19 Benion

根据组合框值显示访问文本框

回答

相关问题