MS Access 覚書 VBA で既存クエリのSQL文を取得、変更

探してもなかなかみつからなかったので、覚書。

Set myDB = CurrentDb
' 他のDBなら: Set mydb = OpenDatabase("C:\VB\BIBLIO.MDB")

'QueryDef 編集用に開く
Set myQuery = myDB.QueryDefs("クエリ名")

' SQLを取得
strSQL = myQuery.SQL
'SQLを設定
myQuery.SQL = "select * from テーブル名;"

'close 処理
myQuery.Close
myDB.Close
set myQuery = Nothing
set myDB = Nothing