假设你的搜索框是Text8 ，按钮是Command1 ，则代码如下（测试通过）：
Private Sub Command1_Click()
On Error GoTo Err_Command1_Click
DoCmd.FindRecord "" & Me.Text8 & "", , , , True
DoCmd.FindNext
Exit Sub
Err_Command1_Click:
MsgBox Err.Description
End Sub
直接用access自带的搜索功能 就可以解决了
做了一个例子，没办法上传
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024