http://office.microsoft.com/ja-jp/access-help/HA010341462.aspx
★テーブル名の文字数の最大値は64だそうで、サブクエリをFROM句で使うときに、長さがこれを超えるとエラー（FROM句の構文エラー）になる可能性あり。

①WHERE句に使用

SELECT 受注ID
FROM 受注明細テーブル
WHERE 商品ID IN
(SELECT 商品ID FROM 商品テーブル WHERE 商品形態ID = 21)

結果 
受注ID 
-------------
46608 
46610 
46611 
…中略… 
50756

※残念だけど、ONにはサブクエリは使えないようです～。だよね・・・

②SELECT句に使用

※ 顧客ごとの受注件数と全体の受注件数の差異を確認
SELECT お客様ID,COUNT(*) AS Cnt_Cust,
(SELECT COUNT(*) FROM 受注テーブル ) AS Cnt_All
FROM 受注テーブル GROUP BY お客様I

——————————

結果 
お客様ID　　　      Cnt_Cust       Cnt_All 
----------------------------------------- 
1                      4            31465 
2                      8            31465 
3                     12            31465 
…中略… 
29483                  1            31465

③FROM句で使用

SELECT AVG(Cnt_Detail) AS AVG_Detail
FROM
(SELECT COUNT(*) AS Cnt_Detail
FROM 受注明細テーブル
GROUP BY 受注ID ) AS SOD
———————————

結果 
AVG_Detail 
---------- 
3

応用編

SELECT 適当
FROM hogehoge AS hh
LEFT JOIN(
　　SELECT *
　　FROM fugafuga AS fuga1
　INNER JOIN(
　　　　　SELECT 適当
　　　　　FROM fugafuga AS fuga2
　　　　　GROUP BY 適当
　　　　　) AS fuga3
　ON なんか処理
　AND なんか処理
　　GROUP BY 適当
) AS f
ON 適当な処理
AND 適当な処理
LEFT JOIN　・・・

①テーブルTAにテーブルTBを2回ジョイントする場合

エラーとなる：

SELECT * FROM ( TA
LEFT JOIN TB ON ( TA.field1= TB.id ) )
LEFT JOIN TB ON ( TA.field2= TB.code) ;

うまくいく：

SELECT *　FROM (TA
LEFT JOIN TB ON TA.[ field1 ] = TB. id )
LEFT JOIN TB as TB_1 on TA.[ field2 ] = TB_1. code

②自分自身のテーブル(TA)を2回ジョイントする

エラーとなる：

SELECT * FROM ( TA
LEFT JOIN TA ON ( TA. code = TA.id)

うまくいく：

SELECT *　FROM (TA AS TA1
LEFT JOIN TA AS TA2 ON ( TA1. code = TA2. id )

＜Excel VBA＞
Application.StatusBar = “こんな感じで表示されます。”

＜Access VBA＞
Application.CommandBars(“Status Bar”).Visible = True ‘ ステータスバーを表示する。
Application.CommandBars(“Status Bar”).Visible = False ‘ ステータスバーを非表示にする。
SysCmd メソッド

【表示文字列＋インジケータを表示】

・Access画面の右下に指定した表示文字列＋インジケータを表示してくれます。
SysCmd acSysCmdInitMeter, “表示文字列”, 最大値

・指定された値でインジケータの進捗具合を更新します。
SysCmd acSysCmdUpdateMeter, 最大値を超えない任意の値

・インジケータが不要になったら、消去させます。
SysCmd acSysCmdClearStatus

※進捗状況は、acSysCmdUpdateMeter で指定した値を使って
インジケーターに表示する割合を計算して再表示してくれます。
例えば、最大値が 100 のときに 50 を指定すると、インジケーターが半分まで進みます。
最大値を超えた値を指定するとインジケータが正しく表示されません。
※複数回呼び出し可です。

【インジケータは、不要で文字列だけ表示させたい場合】

・Access画面のステータスバーに表示を行う
SysCmd acSysCmdSetStatus , 表示する文字列

・ステータスバーの表示の消去
SysCmd acSysCmdSetStatus , “　”
　　　または、
　　　　SysCmd acSysCmdClearStatus

※指定できる文字数は、いずれも約 80 文字です。
表示する文字がステータスバーよりも長いと、
SysCmd メソッドはステータスバーに収まるように文字を切り捨てます。

https://docs.microsoft.com/ja-jp/office/vba/api/access.application
https://docs.microsoft.com/ja-jp/office/vba/api/access.application.syscmd
https://www.hiskip.com/technique/vba/accessvba/974.html

可変長配列の場合

①はじめは、　

　　　　Dim 配列名() As データ型名

②後から要素数や次元数を宣言

　　　　ReDim 配列名(添字の上限値, ・・・)

配列を初期化する方法

①Eraseを使って初期化する

　　　　Erase 配列名

※この場合、配列のデータ型によって初期値が異なる。
　　　　
　　　　・数値配列：0(ゼロ)
・文字列配列：長さ0(ゼロ)の文字列
・オブジェクト配列：Nothing
・バリアント配列：Empty

②Arrayを使って初期化する

　　　　Dim 配列名() As Variant
配列名 = Array(要素(0), 要素(1), ・・・)

配列を解放(再初期化)する方法

ReDim 配列名

配列の要素数を変更する方法

ReDim Preserve 配列名

1次元から2次元配列に変更する場合

Dim arr(3) As Integer
　　　　　　↓↓↓
　　　　ReDim arr(3, 3)