使用DoCmd.Openform设置表单记录源

Question

我有一个表单，可以从Access 2013应用程序中的多个地方访问--取决于表单从何处打开，记录源应该是不同的--例如，如果打开表单搜索记录，表单记录源是用户输入记录id作为参数的参数查询--但如果从其他地方打开表单，则记录源是select查询，记录id是使用VBA传递的。

如果可能的话，我希望避免使用双表单-我只想要一个表单，并且能够在窗体打开时设置记录源.是否可以在打开表单时(而不是在打开表单之后)设置表单记录源？

Answer 1

使用一些VBA重写表单读取的查询。试试这个：

Set db = CurrentDb()
DoCmd.DeleteObject acQuery, "myFormQuery"
Set q = db.CreateQueryDef("myFormQuery")


q.Sql = "SELECT * FROM mytable WHERE 1=1;"
DoCmd.OpenForm "myForm", acNormal

​