オブジェクトを汎用的なコードで見つける方法

解説

今回もまた備忘録的なネタです。

MDBの中(今の時代はACCDBか？)にあるオブジェクトが存在するか調べる場合のコードを紹介します。
もう知ってるよなんていわないでください。

サンプル

Public Function ExistsObject _
( _
    ByRef CollectionObjects As Object, _
    ByVal ObjectName As String _
)

    Dim CheckObject As Object

    ExistsObject = False

    For Each CheckObject In CollectionObjects
        If CheckObject.Name = ObjectName Then
            ExistsObject = True

            Exit For
        End If
    Next CheckObject

End Function

使用方法は

    If ExistsObject(CurrentDb.TablesDefs, "テーブル名") Then
        MsgBox "テーブルが見つかりましたよ。"
    End If

    If ExistsObject(CurrentDb.TablesDefs![テーブル名].Fields, "フィールド名") Then
        MsgBox "フィールドが見つかりましたよ。"
    End If

と、なります。

その他

AccessのVBAの知識が必要です。

For Eachでまわせるものなら何でもできるはずです。