Access VBA弹出搜索框（查找与替换对话框）的几种方法
它与Excel的查找替换功能类似，可以在不写代码的情况下进行查找和替换，完成大多数常用的搜索 替换工作。我们在制作 Access数据库管理系统时，有时也可以使用VBA代码来调用这个查找与替换窗口
这个可以直接手工单击Ribbon上面的查找 或 替换 图标按钮即可打开
也可手动按Ctr+f 快捷键来打开
二、VBA模拟Ctr+f 键来调用查找与替换对话框
1）可以使用以下的代码：
SendKeys "^(f)" '必须小写f,大写F不行
2）如果你是想在窗体的子窗体里面搜索的话
则需要先用代码将光标定位到子窗体里面，再调用这个命令：
Me.sfmSubform.SetFocus
SendKeys "^(f)" '必须小写f,大写F不行
3）如果想默认搜索某个指定的字段
则还可将光标先定位到这个字段，则搜索时，默认是这个字段：
Me.sfmSubform.SetFocus
Me.sfmSubform.Form.FBillId.SetFocus
SendKeys "^(f)" '必须小写f,大写F不行
三、使用内置的DoCmd.RunCommand acCmdFind命令调用搜索对话框
Access内置了很多常用的命令，可以直接调用
1）可以使用以下的代码：
DoCmd.RunCommand acCmdFind
2）如果你是想在窗体的子窗体里面搜索的话
则需要先用代码将光标定位到子窗体里面，再调用这个命令：
Me.sfmSubform.SetFocus
DoCmd.RunCommand acCmdFind
3）如果想默认搜索某个指定的字段
则还可将光标先定位到这个字段，则搜索时，默认是这个指定的字段：
Me.sfmSubform.SetFocus
Me.sfmSubform.Form.FBillId.SetFocus
DoCmd.RunCommand acCmdFind
来源 https://zhuanlan.zhihu.com/p/460556600
来自 “ ITPUB博客 ” ，链接：https://blog.itpub.net/69999831/viewspace-3165562/ ，如需转载，请注明出处，否则将追究法律责任。
