AttributesプロパティによるMDBシステムオブジェクトの判定

Function tbl_list(mdbname As String)
    Dim db As dao.Database
    Dim td As dao.TableDef
    
    Set db = OpenDatabase(mdbname)
    For Each td In db.TableDefs
        If td.Attributes And dbSystemObject Then
            Debug.Print td.Name, "システムオブジェクトです"
        Else
            Debug.Print td.Name
        End If
    Next td
    db.Close
    Set db = Nothing
    Set td = Nothing
End Function

トップページに戻る

Tips一覧に戻る