Access vba動態創建查詢

在Access中，我們一般都是通過菜單欄的創建=》查詢=》查詢設計來新建一箇查詢的。

但是有的時候。我們希望有VBA 動態創建一箇查詢，方便我們臨時調用這箇查詢，比如導齣這箇新創建的查詢的數據，然後刪除之

詳細函數：

Public Sub createqry(strsql As String, strName As String) 
    CurrentDb.CreateQueryDef strName, strsql                      'create querydef

End Sub


Public Sub deleteqry(strName As String) 
  CurrentProject.Application.DoCmd.DeleteObject acQuery, strName             'delete querydef
End Sub

在窗體放置兩箇按鈕，一箇“創建查詢”，一箇“刪除查詢”。

“創建查詢”按鈕的單擊事件代碼，效果如下圖

Private Sub Command0_Click()
    Call createqry("select * from tbl1 where 水果='蘋果'", "查詢蘋果")
End Sub

“刪除查詢”按鈕的單擊事件代碼，效果如下圖

Private Sub Command1_Click()
    deleteqry "查詢蘋果"
End Sub