因此，我在负责开发的 CRM 中遇到了一种特殊情况，我想看看我是否可以对针对这种特定情况的更多认可的最佳实践方法有所了解。基本上，我有一个名为Accounts的表单，它显示特定于该帐户的信息，以及一个需要显示与该帐户关联的报价和订单的子表单，以便为用户提供已完成工作的快照。
由于查询的复杂性和可能记录的数量，如果使用 SQL VIEW 或更明显的是本地访问查询，则滚动浏览此子表单可能会很慢。这里最好的解决方案是通过查询，这样我就可以将该处理直接发送到 SQL。
我做了很多研究，我见过的最好的方法是 1）使用 VBA 更改传递查询的定义或 2）使用 INSERT INTO 语句填充可以使用的本地表作为该子表单的记录源。在这一点上，我只想确认这两种方法中的一种或两种都可以作为最佳实践情况，并且可能是实现这种情况的代码示例。现在我正在努力解决这个处理的归属问题。我不想从启动主Accounts表单的子表单中调用代码，因为可以从几个不同的地方打开此表单，并且我不想复制该代码。
这是我用来将数据集从传递查询复制到本地表的代码，然后使用主/子关系字段仅显示该帐户的适当数据。
Dim db As DAO.Database
Dim strSQL As String
Set db = CurrentDb
'Purge local table where pass through results are copied
strSQL = "Delete * FROM tblPassThruResults"
db.Execute strSQL
'Insert the results of the pass through query into local table
strSQL = "INSERT INTO tblPassThruResults Select Q_ACCOUNT_BUSINESS_OVERVIEW_PT.* FROM Q_ACCOUNT_BUSINESS_OVERVIEW_PT"
db.Execute strSQL
db.Close
Set db = Nothing