訪問2007搜索按鈕

我遇到了麻煩，試圖讓我爲我工作，我有一個輸入框來查找我的表中的帳號，但我希望它繼續保持查找該帳號作爲我的表與有不止一行具有相同的帳號。這是我目前有，但我不能找出如何使用相同的帳號找到下一個記錄。訪問2007搜索按鈕

Dim strAccount As String 
Dim rstQA As Recordset 

strAccount = InputBox("Enter Account Number") 

If strAccount = "" Then Exit Sub 
Set rstQA = Me.Recordset.Clone 
rstQA.FindFirst "[Account Number]='" & strAccount & "'" 
If rstQA.NoMatch Then 
    MsgBox "No record of account" 
Else 
Me.Bookmark = rstQA.Bookmark 
End If 

rstQA.Close 
Set rstQA = Nothing

來源

2014-02-24 PhoenixJay

你想對隨後的比賽做什麼？我認爲你只能爲一條記錄添加書籤，所以你需要在剩餘的比賽中做其他事情。 – Simon1979

可能更好地過濾帳號上的記錄集。 –

如果我用另一個表單來搜索表格並在另一個表單上填充我想要的信息，會更好嗎？ – PhoenixJay

假設你想在表單中顯示的匹配帳戶您最好的選擇可能是過濾形式：

Dim strAccount As String 

strAccount = InputBox("Enter Account Number") 

If strAccount = "" Then Exit Sub 
Me.Filter "[Account Number]='" & strAccount & "'" 
Me.FilterOn = -1

要返回到未經過濾的代碼一個單獨的按鈕：

Me.Filter = "" 
Me.FilterOn = 0

不要忘記將搜索和取消篩選器按鈕放在表單的頁眉或頁腳中，否則如果篩選器沒有返回任何記錄，則會顯示一個空白表單。

來源

2014-02-24 23:46:31 Simon1979

訪問2007搜索按鈕

回答

相關問題