关于查找功能的问题[求助]

小白

我作了一个姓名查询，在输入姓名参数后，查询会根据输入内容自动筛选出记录，只是有一点不太方便，查询出来后前后记录不能翻阅。如果用ACCESS自带的查找工具，这个问题倒是可以解决，不过也有点不方便，每次还要指定查询字段，内容找到后查找窗体也不会自动消失。我想请教各位高手如何输入姓名等参数后，窗体中的记录自动跳到符合输入内容的记录，谢谢！

QINGSOLI

用FindFirst方法找到后，

再用BookMark定位。

如：

Me.RecordSetClone.FindFirst "姓名=" & "'" & me.txtName & "'"
If Not Me.RecordSetClone.NoMatch Then
   Me.BookMark=Me.RecordSetClone.BookMark
   Else
   Msgbox "Cann't find record!"
End If

小白

QINGSOLI,谢谢你的帮忙，回去后我按你说的做了。我另做了一个窗体查询窗，在

查询窗上设了一个文本框txt0,另设了一个按钮，然后手动设置了按钮的代码。我

对VB可以说是基本上不懂，所以能做的只是依样画葫芦，下面就是我依你说的画

的一个葫芦，请帮忙看看哪儿有问题。

Private Sub 命令2_Click()

Me.RecordsetClone.FindFirst "[forms]![登记窗]![姓名]=" & "'" & Me.

[Forms]![查找窗]![txt0] & "'"
If Not Me.RecordsetClone.NoMatch Then
   Me.Bookmark = Me.RecordsetClone.Bookmark
   Else
   MsgBox "Cann't find record!"
End If

End Sub

QINGSOLI

Private Sub 命令2_Click()

Me.RecordsetClone.FindFirst "[姓名]=" & "'" & Forms![查找窗]![txt0] & "'"

If Not Me.RecordsetClone.NoMatch Then
   Me.Bookmark = Me.RecordsetClone.Bookmark
   Else
   MsgBox "Cann't find record!"
End If

End Sub

'注意你的查找窗是不是打开的，这里要求你的查询窗是打开的，而且，当前窗口是登记窗

小白

还是不行啊，我把文件上传了，请帮忙看看！

QINGSOLI

看看是不是这样：）

QINGSOLI

忘了传数据库：）

小白

我等你，多谢了！

skylark

To 小白:
Right?


__________________________
Do Our Job Well   Try Anything Once

小白

太感谢了，skylark，不愧是高手！这正是我所想要的，再次感谢！