Access オブジェクト

    Dim objAccessObject As AccessObject

    For Each objAccessObject In Application.CurrentData.AllTables
        Debug.Print objAccessObject.Name

    Next

    Dim objTableDef As TableDef

    For Each objTableDef In Application.CurrentDb.TableDefs
        Debug.Print objTableDef.Name

    Next