vba - 从选定的列表框在 Access 子表单中显示查询

Question

在 Access 2010 中，我试图让一个表单在子表单 QueriesSubForm 中显示一个查询，当从列表框 QueryListBox 中选择时，然后单击按钮 运行btn。它应该在链接的子表单中显示查询，并在您从列表框中选择的不同选项再次执行整个步骤并单击按钮时更改。

目前我只能让它工作，如果我想让它在一个新的任务窗口中显示查询，当像这样编程时:

QueriesListBox 列表框 - SQL View

SELECT MSysObjects.[Name]
FROM MSysObjects
WHERE (((MSysObjects.[Type])=5) AND ((Left([Name],1))<>"~"))
ORDER BY MSysObjects.[Name];

runbtn 按钮 - VBA View

Private Sub runbtn_Click()
DoCmd.OpenQuery QueryListBox, acViewNormal
End Sub

它的工作原理似乎只是打开查询列表中的一个查询并将其显示给我，这是我不想要的。

这可能是一件容易的事，但我看不出它是如何用 SQL、VBA 或宏完成的，我猜这是工作所必需的

Answer 1

好的，这是一种方法。首先确保您的子表单没有设置源对象。然后像这样设置你的按钮点击:

Private Sub runbtn_Click()
    Me.QueriesSubForm.SourceObject = "Query." & QueryListBox.Value
End Sub

这应该能让您得到想要的结果。或者，如果您希望您的表单打开时显示某个查询，您可以将子表单的源对象设置为该查询。使用属性窗口找到源对象下拉列表并找到您希望在表单打开时显示的查询。