①テーブル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)