次の方法で共有


AllModules オブジェクト (Access)

AllModules コレクションには、 CurrentProject または CodeProject オブジェクトの各モジュールの AccessObject が含まれます。

注釈

CurrentProject または CodeProject オブジェクトには、 CurrentProject または CodeProject オブジェクトで指定されたすべての Module オブジェクトのインスタンスを示す AccessObject オブジェクトを含む AllModules コレクションがあります。 たとえば、Visual Basic で、 AllModules コレクションを列挙して、コレクションの各 AccessObject オブジェクトのプロパティの値を設定または取得することができます。

AllModules コレクション内の個々の AccessObject オブジェクトを参照するには、オブジェクトを名前で参照するか、コレクション内のインデックスを参照します。 AllModules コレクションの特定のオブジェクトを参照する場合、モジュールのコレクションのインデックスは変わる可能性があるので、モジュールの名前で参照することをお勧めします。

AllModules コレクションには、0 から始まるインデックスが付けられます。 モジュールをインデックスで参照する場合、最初のモジュールは AllModules(0)、2 番目のモジュールは AllModules(1)、以下同様になります。

注:

データベース内のすべての開いているモジュールを一覧表示するには、AllModules コレクション内の各 AccessObject オブジェクトの IsLoaded プロパティを使用します。 その後、各 AccessObject オブジェクトの Name プロパティを使用して、モジュールの名前を返すことができます。

AllModules コレクションから AccessObject オブジェクトを追加または削除することはできません。

次の例では、AllModules コレクション内で開いている AccessObject オブジェクトの名前を出力します。

Sub AllModules() 
 Dim obj As AccessObject, dbs As Object 
 Set dbs = Application.CurrentProject 
 ' Search for open AccessObject objects in AllModules collection. 
 For Each obj In dbs.AllModules 
 If obj.IsLoaded = True Then 
 ' Print name of obj. 
 Debug.Print obj.Name 
 End If 
 Next obj 
End Sub

プロパティ

関連項目

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。