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

Question

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

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

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

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

我遇到的问题是将此与重新运行查询结合起来。我只能想到通过宏来做到这一点。

宏中的 RunCode 选项只允许您使用函数。我试图构建一个调用子流程的函数，但宏构建器无法识别表单代码中构建的函数，我无法从模块中构建的函数调用子流程。我尝试在一个模块中同时构建函数和子函数（与上面完全一样），但它随后告诉我它找不到字段。

有解决这个问题的想法吗？

Answer 1

尝试：

Me.Requery

如果查询本身现在抛出错误，可能是因为它包含无效的 WHERE 子句，请尝试像这样修改基本查询：

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

Clearing unbound data fields and running a query