Objet AllForms (Access)
La collection AllForms contient un objet AccessObject pour chaque formulaire dans l’objet CurrentProject ou CodeProject .
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.
Notes
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.
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
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.