CurrentDataオブジェクトの使い方

Access　2000で追加されたCurrentDataオブジェクトの使い方を紹介します。


 使用例

この例では、CurrentDataオブジェクトのコレクションを利用してテーブル、クエリー、ビュー、ストアドプロシージャ、データベースダイアグラムなどのオブジェクト名を取得しています。現在開かれているデータベースが、*.mdb か *.adp かを調べるにはCurrentProjectのProjectTypeプロパティを使用します

Dim obj As AccessObject
If CurrentProject.ProjectType = acADP Then
    For Each obj In CurrentData.AllDatabaseDiagrams
          Debug.Print obj.Name
    Next obj
    For Each obj In CurrentData.AllViews
          Debug.Print obj.Name
    Next obj
    For Each obj In CurrentData.AllStoredProcedures
          Debug.Print obj.Name
    Next obj
ElseIf CurrentProject.ProjectType = acMDB Then
    For Each obj In CurrentData.AllQueries
          Debug.Print obj.Name
    Next obj
End If  
For Each obj In CurrentData.AllTables
    If Left(obj.Name, 4) <> "Msys" Then
          Debug.Print obj.Name
    End If
Next obj