VBA:プロパティの参照で「実行時エラー '5'」が発生する Hit Counter

対象バージョン : 2000
最終更新日 : 1999/09/20 ( オリジナル作成日 : 1999/09/20 )

現　象

プロシージャで、オブジェクトのプロパティを参照すると次のエラーが発生。

実行時エラー '5':

プロシージャの呼び出し、または引数が不正です。

　

再現手順

次のプロシージャを実行します。

Public Sub TableName()
Dim aobj As AccessObject
For Each aobj In Application.CurrentData.AllTables
    If aobj.Name = "Table" Then    ' ←　ここでエラー
        Debug.Print aobj.Name
    End If
Next
End Sub

　

原　因

不明です。

　

対応方法

エラーとなったプロパティを、バリアント型で比較するとエラーが回避できました。

    If CVar(aobj.Name) = "Table" Then

または

    If aobj.Name = CVar("Table") Then

目次へ戻る