Question

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

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

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

对于组合框

我在

行代码中有代码

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”，如此处的第一个查询

Answer 1

你的OK按钮点击处理程序必须看起来像这样

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

还要确保按钮的Cancel属性设置为No。

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

1 个答案: