當從按鈕運行查詢時，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」，如同在第一個查詢中一樣

來源

2012-07-17 user1449596

發佈您的代碼？ – LittleBobbyTables 2012-07-17 18:06:39

你的OK按鈕單擊處理程序將不得不像這樣

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

另外，還要確保您的按鈕的Cancel屬性設置爲No。

來源

2012-07-17 18:13:28

我嘗試acViewNormal作爲我原來的問題更新，但仍然形式關閉當我點擊按鈕（關閉意味着窗體窗口消失，並出現查詢窗口）...但我想保持打開窗體...讓查詢窗口打開在右邊的小窗口或類似的東西 – user1449596 2012-07-17 18:20:38

我剛剛檢查 - 取消屬性已設置爲否... – user1449596 2012-07-17 18:22:15

此代碼不關閉主窗體。它最多隱藏它，查詢窗口更大或者表單最大化。在打開查詢之前調用'DoCmd.Restore'，如果是這種情況。這將使窗口不能最大化。 – 2012-07-17 18:24:51

當從按鈕運行查詢時，ms訪問表單關閉

回答

相關問題