2016-02-22 23 views
0

我希望有人可以在這裏幫忙。我在Access 2013中有一個連續的表單,我已經有了允許你搜索特定項目的代碼,這是一個按鈕的點擊事件,我也有一個重置,它又是點擊事件的另一個按鈕。 通過在組合框的行源中使用查詢,我設法創建了一個組合,該組合限制了表單中的字段可以選擇的內容。 (感謝Matt Hill) 還有一個當前事件作爲組合框查詢也在運行。文本框在連續的組合框中

我也設法把一個文本框放在組合框上來隱藏它們,但是我不能讓文本框顯示組合框有什麼,然後當我移動到下一個組合框時保留這些數據,並且選擇另一個項目,目前發生的情況是組合框保持不斷變化,並且在選擇時全部顯示相同的對象,當我移動到下一個組合框時,它會清除所有組合框中的數據並顯示新的選擇。

這讓我非常生氣,所以任何幫助都將不勝感激。

大家好更新,請參閱下面的什麼是運行VBA:

Private Sub Command26_Click() 
Dim strsearch As String 
Dim Task As String 
'Check if a keyword entered or not 
If IsNull(Me.txtsearch) Or Me.txtsearch = "" Then 
    MsgBox "Please type in your search keyword.", vbOKOnly, "Keyword Needed" 
    Me.txtsearch.BackColor = vbYellow 
    Me.txtsearch.SetFocus 
Else 
    strsearch = Me.txtsearch.Value 
    Task = "SELECT * FROM Base_Data WHERE ((PARENT_FSC Like ""*" & strsearch & "*""))" 
    Me.RecordSource = Task 
    Me.txtsearch.BackColor = vbWhite 
End If 
End Sub 

Private Sub Command27_Click() 
Dim strsearch As String 
strsearch = "SELECT * from Base_Data" 
Me.RecordSource = strsearch 
End Sub 

Private Sub Form_Current() 

    Me.cboComponent.Requery 

End Sub 

除了這個代碼運行我也有在表單屬性的記錄源的SQL查詢。

再次,任何幫助將是偉大的。

+0

您將不得不向我們提供更多信息以幫助您。組合框是否以某種方式鏈接(按名稱,按組,其他方式)?表單上是否有任何VBA代碼在進入任何控制箱時自動更改任何內容?如果到目前爲止有任何VBA代碼,請將其納入您的問題。 – Ralph

+0

屏幕截圖也有幫助。這聽起來有點像在連續表單的Detail部分中有一個未綁定的組合框 - 這將始終在所有行中顯示相同的數據。 – Andre

+0

你好,謝謝你的回覆。對於遲到的迴應,我不得不繼續進行另一項優先考慮的切線任務。回顧一下,我會嘗試獲取查詢和代碼的一些屏幕截圖。 –

回答

0

以連續形式出現的未綁定控件作爲一個控件 - 因爲它們沒有控件源。即它們所綁定的目標表中的記錄/字段。