Visual Basic EditorでSQLステートメントを記述する場合、基本構文はSQLビューと同じですが、ステートメントの記述方法が少し違います。SQLステートメントは、VBAでは文字列として扱われます。そのためSQLステートメントをダブルクォーテーションで囲む必要があります。抽出条件が文字列の場合は、条件値をシングルクォーテーションで囲みます。

アクションクエリをVBAで実行するには、RunSQLメソッドを使います。

《書式》

DoCmd.RunSQL “SQLステートメント”

《設定例》

複数行に分ける場合、行ごとにダブルクォーテーションで囲み、アンパサンド（＆）と、行継続文字を入力します。
行の終わりの文字とアンパサンドの前後には半角スペースを入力する必要があります。
下記例は、「T顧客マスタ」テーブルの「都道府県」が“東京都”のレコードを表示するというものです。

“SELECT * FROM T顧客マスタ” & _ “WHERE 都道府県 = ‘東京都 ‘”

《設定例》※SQL練習１.mdb の“F都道府県抽出”

次の例では、コンボボックス「都道府県」で指定した値で抽出し、リストボックスに
表示しています。
RowSourceプロパティを使うと、は連結していないデータをリストボックスに表示できます。

Private Sub 都道府県_AfterUpdate() Me!表示.RowSource = “SELECT * FROM T得意先マスタ ” & _ ” WHERE 都道府県 = ‘” & Me!都道府県 & “‘” End Sub

アクションクエリの種類　

アクションクエリには４つの種類があります。

1. 追加クエリ（INSERT INTO)
2. 更新クエリ（UPDATE)
3. 削除クエリ（DELETE)
4. テーブル作成クエリ（SELECT INTO)

追加クエリ（レコードを登録する）　

《書式》

INSERT INTO 追加先テーブル名 SELECT フィールド名 FROM 追加元テーブル名 WHERE 条件式

フィールド名は、複数のフィールドを指定する場合はカンマで区切り、すべてのフィールドを指定する場合はアスタリスク(*)を入力します。
条件式は、「フィールド名　演算子　値」の形式で指定します。

《設定例》

次の例は、T商品マスタの備考フィールドが“限定品”のレコードを、「T限定品」テーブルに追加します。

DoCmd.RunSQL “INSERT INTO T限定品 SELECT * FROM T商品マスタ ” & _ “WHERE 備考 = ‘限定品'”

更新クエリ（レコードを更新する）

《書式》

UPDATE　テーブル名 SET 更新する値 WHERE 条件式

《設定例》

‘T得意先マスタの「チェック」フィールドをすべてONにする Dim SQL As String SQL = “UPDATE T得意先マスタ ” & _ 　 　　　”SET チェック = On “ DoCmd.RunSQL SQL

削除クエリ（レコードを削除する）

削除クエリを使うと、指定条件を満たすレコードをテーブルから削除できます。

《書式》

DELETE FROM テーブル名 WHERE 条件式

《設定例》

次の例ではT得意先マスタの「顧客区分」フィールドの値が“D”のレコードを削除します。

Dim SQL As String SQL = “DELETE FROM T得意先マスタ ” & _ 　　　　 “WHERE 顧客区分 = ‘D’ “ DoCmd.RunSQL SQL

テーブル作成クエリ　

元のテーブルをコピーして新しいテーブルを作成します。

《書式》

SELECT　フィールド名 INTO 新しいテーブル名 FROM 元のテーブル名 WHERE 条件式

《設定例》

「T得意先マスタ」テーブルで、都道府県が“埼玉県”のすべてのレコードをコピーして 「T顧客マスタ」テーブルを作成します。

Dim SQL As String SQL = “SELECT * INTO T顧客マスタ ” & _ 　　　　 “FROM T得意先マスタ ” & _ 　　　　 “WHERE 都道府県 = ‘埼玉県'” DoCmd.RunSQL SQL

♯記号などは、「リテラル」というもので型を
暗黙に示すもので、＃はDouble型を示す。

Dim i as Double と宣言すれば i はDouble型に決まって
いますので♯は要らないが、
稀に Dim i as Variant(何でも型)と宣言したとき、i=1#とすると
Double型として明示代入ができる。
とはいえ、変数の中身が訳がわからなくなるので、こんな書き方は
通常はしない。プログラム文中を判りやすく見せているだけ。

＜参照＞　
型文字 (Visual Basic)

識別子の型文字 データの種類 例
% Integer Dim L%
& Long Dim M&
@ Decimal Const W@ = 37.5
! Single Dim Q!

# Double Dim X
$ String Dim V$ = “Secret”

https://docs.microsoft.com/ja-jp/dotnet/visual-basic/programming-guide/language-features/data-types/type-characters

---

(1)マウスポインタの形状を砂時計にする
　DoCmd.Hourglass True/False
　
(2)いろいろな形状
　Screen.MousePointer = 値

【 値 】
0:規定値
1:矢印
3:I字型
7:上下の矢印
9:左右の矢印
11:砂時計

※これ以外の値を指定した場合は、規定値と同じ。

マウスポインタの形状を砂時計にする
DoCmd.Hourglass True
マウスポインタの形状を標準に戻す
DoCmd.Hourglass False
マウスポインタの形状を「I字型」に変える
Screen.MousePointer = 3
マウスポインタの形状を標準に戻す
Screen.MousePointer = 0

https://docs.microsoft.com/ja-jp/office/vba/api/access.docmd.hourglass
http://www.mtanabe.com/tips.php?tips_id=70

●サブフォームのソース表示順を指定

With Me!明細フォーム.Form
‘並べ替えの基準とするフィールドを設定
.OrderBy = “フィールド名1,フィールド名2 DESC, フィールド名3,フィールド名4”
‘並べ替えを実行
.OrderByOn = True
End With

Me.明細フォーム.Requery

●複数の値をフォームからレポートに渡す

https://blog.goo.ne.jp/shusei0815/e/3b120f0ca7226e011b9fec4003016b74
https://tsware.jp/tips/tips_648.htm

【フォーム側】

Dim strOpenArgs As String

‘別フォームに渡す引数を組み立てる（選択項目、タイトル、日付を渡す）
strOpenArgs = Nz(Me.cmb選択.Value, 0) & “,” & Nz(Me.txtタイトル.Value, 0) & “,” & Nz(Me.txt日付.Value, 0)

DoCmd.OpenReport “R_レポート１”, acViewPreview, , , , strOpenArgs）

【レポート側】
イベント・・・フォーマット (今回は、ページヘッダーセクションのフォーマットイベントです）
Private Sub ページヘッダーセクション_Format(Cancel As Integer, FormatCount As Integer)
Dim v As Variant

‘OpenArgsをカンマごとに分解して配列に格納する
v = Split(Nz(Me.OpenArgs), “,”)

Me.txt帳票タイプ = v(0) ‘タイトル（全体数/正袋数/端数）
Me.txtタイトル = v(1) ‘タイトル（製造計画/完成）
Me.txt製造日 = v(2) ‘製造日

End Sub