Array関数、IsArray関数：Access

Access　Array関数は、配列の宣言をしていないバリアント型 (Variant) の変数に、代入できます。

■ 構文
Array(arglist)

■ 引数
arglist ： （必須）　配列のリストをカンマ (,) で区切り指定します


IsArray関数は、変数が配列かどうかを調べます。
■ 構文
IsArray(varname)

■ 引数
varname ： （必須）　判定する変数を指定します

■ 戻り値
指定した変数が配列の場合は、真 (True)が返ります。
それ以外の場合は、偽 (False) が返ります。

■ Access VBA 実行コード

Option Compare Database
Private ar As Variant
'実行前チェック
Private Sub コマンド0_Click()
    Dim i As Integer
On Error GoTo ErrExit
    If IsArray(ar) Then
        MsgBox "変数arは配列です"
    Else
        MsgBox "変数arは配列ではありません"
    End If
        Me!テキスト1 = ""
    For i = 0 To 9
        Me!テキスト1 = Me!テキスト1 & ar(i) & vbNewLine
    Next
    Exit Sub
ErrExit:
    MsgBox "エラーが発生しました。" & vbNewLine & Err.Description
End Sub
'Array関数の実行
Private Sub コマンド1_Click()
    Dim i As Integer
    ar = Array("配列0", "配列1", "配列2", "配列3", "配列4", "配列5", "配列6", "配列7", "配列8", "配列9")
On Error GoTo ErrExit
    If IsArray(ar) Then
        MsgBox "変数arは配列です"
    Else
        MsgBox "変数arは配列ではありません"
    End If
    Me!テキスト1 = ""
    For i = 0 To 9
        Me!テキスト1 = Me!テキスト1 & ar(i) & vbNewLine
    Next
    Exit Sub
ErrExit:
    MsgBox "エラーが発生しました。" & vbNewLine & Err.Description
End Sub