Partager via

Objet AllForms (Access)

  • Article

La collection AllForms contient un objet AccessObject pour chaque formulaire dans l’objet CurrentProject ou CodeProject .

Remarques

Les objets CurrentProject et CodeProject possèdent une collection AllForms contenant des objets AccessObject qui décrivent des instances de tous les formulaires dans la base de données. Par exemple, vous pouvez énumérer la collection AllForms dans Visual Basic pour définir ou renvoyer les valeurs des propriétés des objets AccessObject individuels dans la collection.

Faites référence à un objet AccessObject individuel dans la collection AllForms en faisant référence à l’objet par son nom ou en faisant référence à son index dans la collection. Si vous voulez faire référence à un objet spécifique dans la collection AllForms, il est préférable d'utiliser son nom car l'index de collection d'un formulaire peut changer.

L'indexation de la collection AllForms commence à zéro. Si vous faites référence à un formulaire par son index, le premier formulaire est AllForms(0), le second est AllForms(1), etc.

Remarque

Pour répertorier tous les formulaires ouverts dans la base de données, utilisez la propriété IsLoaded de chaque objet AccessObject de la collection AllForms . Vous pouvez ensuite utiliser le nom propriété de chaque objet AccessObject individuels objet pour retourner le nom d'un formulaire.

Vous ne pouvez ni ajouter, ni supprimer un objet AccessObject dans la collection AllForms.

Exemple

L'exemple suivant imprime le nom de chaque objet AccessObject ouvert dans la collection AllForms.

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

L’exemple suivant montre comment empêcher un utilisateur d’ouvrir un formulaire particulier directement à partir du volet de navigation.

'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

Propriétés

Voir aussi

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.