クエリをＶＢＡで記述する

削除クエリ
Dim SQL As String
SQL = "DELETE * FROM テーブル名 where 絞り込むフィールド名='条件'"
DoCmd.RunSQL SQL

追加クエリ
Dim SQL As String
SQL = "INSERT INTO 追加先TB (フィールド名１,フィルド名２) SELECT 元TB.フィールド名１,元TB.フィールド名２ FROM 元TB where 絞り込むフィールド名＝'条件' "
DoCmd.RunSQL SQL

追加クエリで追加元テーブルを変数にする
テーブル名を入力するフォームをF001、テキストボックスをT001とします
Dim SQL As String
SQL = "INSERT INTO 追加先TB (フィールド名１,フィルド名２) SELECT table1.フィールド名１,table1.フィールド名２ FROM " & Forms!F001!T001 & " as table1 where 絞り込むフィールド名＝'条件' "
DoCmd.RunSQL SQL

更新クエリ
Dim SQL As String
SQL = "Update テーブル名 Set フィールド名 = '値' "
DoCmd.RunSQL SQL

結合クエリ　RIGHT JOIN　LEFT JOIN　INNER JOIN
Dim db As DAO.Database
Dim Qdf As DAO.QueryDef
Dim SQL As String
Set db = CurrentDb()
SQL = "SELECT * FROM テーブル1 LEFT JOIN テーブル2 ON テーブル1.フィールド名 = テーブル2.フィールド名"
Set Qdf = db.CreateQueryDef("Q_テスト", SQL)
DoCmd.OpenQuery Qdf.Name
db.Close: Set db = Nothing

選択クエリで抽出条件を××を含む（文字列）を複数にした場合
SQL = "SELECT * FROM テーブル1 where テーブル1.フィールド名 like '*条件１*' or テーブル1.フィールド名 like '*条件２*' "

クエリを削除します
DoCmd.DeleteObject acQuery, "クエリ名"

目次へ