Question

我在努力让这个为我工作时遇到了麻烦，我有一个输入框可以在我的表格中找到一个帐号，但我希望它能继续将该帐号定位为我的表格中有多个帐号具有相同帐号的行。这是我目前所拥有的，但我无法弄清楚如何使用相同的帐号来查找下一条记录。

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

Answer 1

假设您想在表单中显示匹配的帐户，您最好的选择可能是过滤表单：

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

不要忘记将搜索和取消过滤器按钮放在表单的页眉或页脚中，否则如果过滤器返回没有记录，则表示空白。

Access 2007搜索按钮

1 个答案: