します。
2009年8月アーカイブ
探してもなかなかみつからなかったので、覚書。
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
