ms-access - 引数の数を返す - MS Access

Question

Access で Sub または Function の引数の数を返す方法はありますか?

    Public Sub mySub(arg1 As String, Optional arg2 As Variant, Optional arg3 As Variant)
        'Some code
    End Sub

このサブから3番を返せるようにしたいです。可能？

Answer 1

以下の Web サイトでは、パラメーター配列を引数として使用することを推奨しています。これは、引数の数を知っている必要はありません。

関数を呼び出します: Function SomeProc(ParamArray avarItems() As Variant) 次に、関数またはプロシージャ内で、他の配列と同様にパラメーター配列を操作します。これには、Ubound(avarItems) + 1 を使用した要素の数が含まれると思います。唯一のことは、パラメーター配列は Variant 型である必要があり、引数リストの最後の引数でなければなりません。

http://msdn.microsoft.com/en-us/library/office/aa164533(v=office.10).aspx

これをテストするために、小さなサンプルを作成しました。

オプション明示

Private Sub Command0_Click() Dim nCount1 As Integer

nCount1 = GetArgCount("one", "two", "three", "four")

MsgBox ("Arguments = " & nCount1)

End Sub Function GetArgCount(ParamArray PassedArray() As Variant)

GetArgCount = UBound(PassedArray) + 1

終了機能

これは、msgbox() で数値 4 を返します。