如何在 Access 表单中显示查询结果？

Question

表单包含一个文本框、一个按钮和一个子表单（我通过将查询拖到表单中创建的）。 table 包含 8 个字段。当输入这些字段关键字中的任何一个时，与这些关键字匹配的所有记录都应以相同的形式显示。但取而代之的是，Access 在单独的 window 中显示结果。我该如何解决这个问题？

我没有包含完整的 where 子句，这是我的查询：

SELECT * 来自 table WHERE Account_Name 喜欢“” & [Forms]![Form1]![Text0] & “” 或 Opportunity_Name 喜欢“” & [表格]![Form1]![Text0] & "" 或 .....

我已将此查询分配给按钮。这是我的按钮点击事件：

Private Sub Command2_Click()
On Error GoTo Err_Command2_Click

    Dim stDocName As String

    stDocName = "Search2"
    DoCmd.OpenQuery stDocName, acNormal, acEdit
    DoCmd.Requery
    subform.Requery

Exit_Command2_Click:
    Exit Sub

Err_Command2_Click:
    MsgBox Err.Description
    Resume Exit_Command2_Click
End Sub

它可以工作，但唯一的问题是它在单独的 window 中显示数据。我怎样才能解决这个问题？谢谢

Answer 1

它会打开一个单独的 window，因为这是编写代码的目的。删除两个 DoCmd 行。然后重新查询的代码必须引用子窗体容器控件。

Me.subformContainerName.Requery

如何在 Access 表单中显示查询结果？

How to show query results in an Access form?

vba

ms-access

subform