Access VBA弹出搜索框（查找与替换对话框）的几种方法

2022-04-06 00:00:00 字段 光标 查找 替换 窗体

一、在Access数据库中内置一个查找与替换功能

它与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

相关文章