访问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搜索按钮

回答

相关问题