【vba覚書】SQLを実行

VBAからSQLを実行する時にコピペする雛形

Dim mySQL as String

mySQL = "UPDATE 一時テーブル SET 処理対象F = False WHERE JANコード=’1234567890123’"

DoCmd.SetWarnings False
DoCmd.RunSQL "delete from 一時テーブル"
DoCmd.RunSQL mySQL
DoCmd.OpenQuery "アクションクエリー名"
DoCmd.SetWarnings True