2011-04-18 65 views
0

我有兩個組合框,其中一個用於控制另一個組合框。因此,在combo_1的AfterUpdate事件中,我會爲combo_2執行一次查詢,以強制它根據combo_1中選擇的值更新其列表。但我的代碼沒有。訪問組合框請求

私人小組combo1_AfterUpdate()

Dim strSQL As String 

Select Case Me.combo1.Column(1) 
    Case "Production" 
     Me.combo2.Visible = True 
     strSQL = "SELECT id_prod FROM tblProd;" 
     Me.combo2.ControlSource = strSQL 
     Me.combo2.Requery 
    Case Else 
     Me.combo2.Visible = False 
End Select 

末次

沒有什麼在combo_2當我在combo_1選擇 「生產」。請求條款執行但不起作用。

回答

0

除非語法以後的版本已經改變了,你應該改變行

Me.combo2.ControlSource=strSQL 

Me.combo2.RowSource=strSQL 

試一下,否則它看起來不錯

+0

由於它的工作原理.. – darkjh 2011-04-18 07:05:27

+0

事實上ControlSource和RowSource有什麼區別? – darkjh 2011-04-18 07:06:02

+0

其中一個控制下拉列表中的內容,另一個控制如果它是綁定形式將顯示什麼內容。例如,您可能有來自行源中的表tblStates的狀態列表,並且控制源將是銷售表上的狀態ID列 – 2011-04-18 07:45:25