Access vba動態創建查詢

2017-11-15 17:25:00
tmtony8
原創
4976

在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


    分享