Auf Englisch lesen

Freigeben über


AllForms-Objekt (Access)

Die AllForms-Auflistung enthält ein AccessObject-Objekt für jedes Formular im CurrentProject - oder CodeProject-Objekt .

Hinweise

Das CurrentProject- und CodeProject-Objekt besitzt eine AllForms-Auflistung mit AccessObject-Objekten, die Instanzen aller Formulare der Datenbank beschreiben. So können Sie z. B. die AllForms-Auflistung in Visual Basic in einer Schleife durchlaufen, um die Werte der Eigenschaften einzelner AccessObject-Objekte in der Auflistung festzulegen oder zurückzugeben.

Verweisen Sie auf ein einzelnes AccessObject-Objekt in der AllForms-Auflistung , indem Sie entweder auf das Objekt anhand des Namens oder auf seinen Index innerhalb der Auflistung verweisen. Wenn Sie auf ein bestimmtes Formular in der AllForms -Auflistung verweisen möchten, empfiehlt sich die Verwendung des Namens, da der Index sich ändern kann.

Die AllForms-Auflistung wird beginnend mit 0 indiziert. Wenn Sie auf ein Formular über seinen Index verweisen, ist "AllForms(0)" das erste Formular, "AllForms(1)" das zweite Formular usw.

Hinweis

Um alle geöffneten Formulare in der Datenbank aufzulisten, verwenden Sie die IsLoaded-Eigenschaft jedes AccessObject-Objekts in der AllForms-Auflistung . Anschließend können Sie die Name-Eigenschaft jedes einzelnen AccessObject-Objekts verwenden, um den Namen eines Formulars zurückzugeben.

Es ist nicht möglich, der AllForms-Auflistung ein AccessObject-Objekt hinzuzufügen oder aus ihr zu löschen.

Beispiel

Im folgenden Beispiel wird der Name jedes geöffneten AccessObject-Objekts in der AllForms-Auflistung ausgegeben.

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

Das folgende Beispiel zeigt, wie verhindert wird, dass ein Benutzer ein bestimmtes Formular direkt übr den Navigationsbereich öffnet.

'Don't let this form be opened from the Navigator
If Not CurrentProject.AllForms(cFormUsage).IsLoaded Then
    MsgBox "This form cannot be opened from the navigation pane.", _
        vbInformation + vbOKOnly, "Invalid form usage"
    Cancel = True
    Exit Sub
End If

Eigenschaften

Siehe auch

Support und Feedback

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.