Access vba動態(tài)創(chuàng)建查詢

在Access中，我們一般都是通過菜單欄的創(chuàng)建=》查詢=》查詢設計來新建一個查詢的。

但是有的時候。我們希望有VBA 動態(tài)創(chuàng)建一個查詢，方便我們臨時調(diào)用這個查詢，比如導出這個新創(chuàng)建的查詢的數(shù)據(jù)，然后刪除之

詳細函數(shù)：

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

在窗體放置兩個按鈕，一個“創(chuàng)建查詢”，一個“刪除查詢”。

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

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

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

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