• 解説

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

    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でまわせるものなら何でもできるはずです。

スポンサードリンク

説明がわからないなどありましたらお問い合わせでお知らせください。

ここに掲載された情報を使用したことによって発生した、いかなる損害に対しても
管理者である雅は一切責任を負いません。

スポンサードリンク