AllMacros-Objekt (Access)
Die AllMacros-Auflistung enthält ein AccessObject für jedes Makro im CurrentProject - oder CodeProject-Objekt .
Das CurrentProject - oder CodeProject-Objekt verfügt über eine AllMacros-Auflistung , die AccessObject-Objekte enthält, die Instanzen aller makros beschreiben, die von CurrentProject oder CodeProject angegeben werden. Beispielsweise können Sie die AllMacros-Auflistung in Visual Basic aufzählen, um die Werte der Eigenschaften einzelner AccessObject-Objekte in der Auflistung festzulegen oder zurückzugeben.
Verweisen Sie auf ein einzelnes AccessObject-Objekt in der AllMacros-Auflistung , indem Sie entweder auf das Objekt anhand des Namens oder auf seinen Index innerhalb der Auflistung verweisen. Wenn Sie auf ein bestimmtes Makro in der AllMacros-Auflistung verweisen möchten, empfiehlt sich die Verwendung des Namens, da der Index sich ändern kann.
Die AllMacros-Auflistung wird beginnend mit 0 indiziert. Wenn Sie auf ein Makro über seinen Index verweisen, ist AllMacros(0) das erste Makro, AllMacros(1) das zweite Makro usw.
Hinweis
Um alle geöffneten Makros in der Datenbank aufzulisten, verwenden Sie die IsLoaded-Eigenschaft jedes AccessObject-Objekts in der AllMacros-Auflistung . Sie können dann die Name-Eigenschaft jedes einzelnen AccessObject-Objekts verwenden, um den Namen eines Makros zurückzugeben.
Es ist nicht möglich, der AllMacros-Auflistung ein AccessObject-Objekt hinzuzufügen oder aus ihr zu löschen.
Im folgenden Beispiel wird der Name jedes geöffneten AccessObject-Objekts in der AllMacros-Auflistung ausgegeben.
Sub AllMacros()
Dim obj As AccessObject, dbs As Object
Set dbs = Application.CurrentProject
' Search for open AccessObject objects in AllMacros collection.
For Each obj In dbs.AllMacros
If obj.IsLoaded = True Then
' Print name of obj.
Debug.Print obj.Name
End If
Next obj
End Sub
Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.