office交流網--QQ交流群號

Access培訓群:792054000         Excel免費交流群群:686050929          Outlook交流群:221378704    

Word交流群:218156588             PPT交流群:324131555

Access vba動態創建查詢

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

在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


    分享
    北京十一选五基本走势