当从按钮运行查询时，ms访问表单关闭

问题描述：

我有一个带有一个组合框和确定按钮的窗体。当选择组合框中的值并单击“确定”时，将根据所选值打开查询。当从按钮运行查询时，ms访问表单关闭

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

是否有可能，表单窗口仍然打开时查询在另一个窗口中运行？

对于组合框

我有一个像

select distinct format(columndate, 'mm-dd-yyyy') from table1

对于OK按钮，行源代码，我有如下代码：

Private Sub Submit_Click() 
    Dim db As DAO.Database 
    Dim qdf As DAO.QueryDef 
    Dim strSQL As String 
    Set db = CurrentDb 
    Set qdf = db.QueryDefs("query") 
    strSQL = "SELECT columndate," & _ 
     "sum(qty1)," & _ 
     "sum(qty2)," & _ 
     "sum(qty3)," & _ 
     "sum(qy4)" & _ 
     "FROM table1 " & _ 
     "WHERE table1.column_date = '" & Me.datefield.value & "' " & _ 
     "group by table1.[columndate];" 

    qdf.sql = strSQL 
    DoCmd.Restore 
    DoCmd.OpenQuery ("query") 
    DoCmd.Close acForm, "Me.Form3" 

    Set qdf = Nothing 
    Set db = Nothing 

    Debug.Print strSQL 
End Sub

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

发布您的代码？ – LittleBobbyTables 2012-07-17 18:06:39

答

你的OK按钮单击处理程序将不得不像这样

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

另外，还要确保您的按钮的Cancel属性设置为No。

我尝试acViewNormal作为我原来的问题更新，但仍然形式关闭当我点击按钮（关闭意味着窗体窗口消失，并出现查询窗口）...但我想保持打开窗体...让查询窗口打开在右边的小窗口或类似的东西 – user1449596 2012-07-17 18:20:38

我刚刚检查 - 取消属性已设置为否... – user1449596 2012-07-17 18:22:15

此代码不关闭主窗体。它最多隐藏它，查询窗口更大或者表单最大化。在打开查询之前调用'DoCmd.Restore'，如果是这种情况。这将使窗口不能最大化。 – 2012-07-17 18:24:51

当从按钮运行查询时，ms访问表单关闭

相关推荐