清除未绑定的数据字段并运行查询

Question

背景： 我有一个名为Tbl_Party的访问表，其中主键是Party_ID。 我有一个表单（frmParty）来查看Tbl_Party中的记录，它显示所有相关字段并有几个未绑定的文本框。这些未绑定的文本框用于通过我构建的查询过滤记录，该查询通过表单上的按钮激活。这一切都很好。

问题： 我创建了一个名为Clear的第二个按钮，我想清除未绑定文本框中的所有数据并重新运行查询，因为字段现在为空，将返回所有记录。

我在VBA中创建了一个子例程来清除未绑定文本框中的数据，这些文本框在从事件过程调用时工作正常：

Private Sub Clear_Click()
    Me.txtBox1 = ""
    Me.txtBox2 = ""
    Me.txtBox3 = ""
    Me.txtBox4 = ""
End Sub

我遇到的问题是将其与重新运行查询相结合。我只能想到通过宏来做这件事。

宏中的RunCode选项只允许您使用函数。我已经尝试构建一个调用子进程的函数，但宏构建器无法识别构造代码中构建的函数，我无法从模块中内置的函数调用子进程。我已经尝试在模块中构建函数和sub（完全如上所述），但它告诉我它找不到字段。

有任何想法如何解决这个问题？

Answer 1

尝试：

Me.Requery

如果查询本身现在抛出错误，可能是因为它包含一个无效的WHERE子句尝试修改基本查询，如下所示：

SELCT ... FROM ... WHERE (1=1) AND (...here goes your txtBox-filtered string...)