根據組合框值顯示訪問文本框

我試圖在訪問中設置一個表單，以便根據用戶從公司組合框（僱主代表或承包商）選擇的值取決於哪些合同操作集合顯示組合框和子句文本框。使用下面的代碼，我可以隱藏它們，但無法讓它們再次變爲可見。根據組合框值顯示訪問文本框

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

根據組合框值顯示訪問文本框

回答

相關問題