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

削除クエリ
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, "クエリ名"

目次へ

フォームを開くとき絞込み

開くフォームを F001 絞り込む条件が入力されているフォームを F002 とします
F001のフィールド フィールド名1 フィールド名2
F002のフィールド フィールド名A

特定のフィールドがNULL以外で絞り込み
stDocName = "F001 "
stLinkCriteria = "[フィールド名1] is not null"
DoCmd.OpenForm stDocName, acNormal, , stLinkCriteria

複数の条件で絞り込み
stDocName = "F001"
stLinkCriteria = "[フィールド名1]= forms!F002!フィールド名A and [フィールド名2]='条件'"
DoCmd.OpenForm stDocName, acNorma, , stLinkCriteria

絞り込み解除
　　Forms.フォーム名.FilterOn = False

目次へ

IFでNULLを判定する

If (Eval("Forms!フォーム名!フィールド名 Is Null")) Then
else
End If

目次へ

文字変換 一気に半角⇔全角変換

文字変換 一気に半角⇔全角変換

StrConv(テーブル名！フィールド名, 定数)

定数

4 　文字列内の半角文字を全角文字に変換
8 　文字列内の全角文字を半角文字に変換
16　文字列内のひらがなをカタカナに変換
他

上記の式を更新クエリーに記入します

目次へ