Ms access 从按钮运行查询时ms access窗体关闭

我有一个带有一个组合框和ok按钮的表单。选择组合框中的值并单击“确定”后，它将根据所选值打开一个查询

这很好，但它会关闭表单，然后打开查询。我必须再次单击表单选项卡以选择另一个值并运行查询

是否可以在窗体窗口仍然打开时在另一个窗口中运行查询

组合框

我有一行代码，比如

从表1中选择不同的格式（columndate，'mm dd yyyy'）

对于OK按钮， 我有一个代码如下：

Private Sub Sub Submit\u Click（）
Dim数据库作为DAO.Database
将qdf设置为DAO.QueryDef
作为字符串的Dim strSQL
Set db=CurrentDb
设置qdf=db.querydfs（“查询”）
strSQL=“选择columndate，”&_
“总额（qty1），”和_
“总和（qty2），”和_
“总额（第三季度）”，以及_
“总和（qy4）”和_
“来自表1”和_
“其中table1.column_date='”&Me.datefield.value&“'”&_
“按表1分组。[columndate]；”
qdf.sql=strSQL
文档还原
DoCmd.OpenQuery（“查询”）
DoCmd.关闭acForm，“Me.Form3”
设置qdf=无
Set db=Nothing
调试.打印strSQL
端接头

---

我还有一个问题。事实上，日期字段在表中的格式为“dd-mm-yyyy”，但在查询中，只要我将行源中的格式更改为“mm-dd-yyyy”，它就会显示空白结果，就像在第一次查询中一样

Private Sub btnOk_Click()
    DoCmd.OpenQuery(Me!cboQuery, acViewNormal, acReadOnly)
End Sub

---

还要确保按钮的

Cancel

属性设置为

No

我在原始问题中更新时尝试了acViewNormal，但当我单击按钮时表单仍然关闭（关闭意味着表单窗口消失，查询窗口出现）…但是我想保持窗体窗口的打开状态…让查询窗口在右边的一个小窗口中打开，或者类似的东西。这段代码不会关闭主窗体。如果查询窗口的大小或表单最大化，它最多会隐藏它。如果是这种情况，请在打开查询之前调用

DoCmd.Restore

。这将取消最大化窗口。正如我现在看到的代码：关闭窗体的行是

DoCmd.Close acForm，“Me.Form3”

（如果“Form3”是有问题的窗体名称）。放下那行。不，DoCmd。Close没有任何不同，我已经试着删除了。我也尝试了“Docmd.Restore”，因为我在原始版本中进行了更新，仍然是一样的。我不确定我是否犯了错误，或者在access表单中，情况会是这样..我的建议是在表单的第一行设置一个断点，然后逐步完成代码。您将看到表单关闭的位置。