Compléments pour Microsoft Access

Description

		Cette fonction permet de tester si un formulaire existe dans la base de données en cours.

Synthaxe

FormExist(strForm)

La synthaxe de la fonction FormExist comprend l'élément suivant :

Eléments	Description
strForm	Expression de chaîne correspondant au nom du formulaire que l'on souhaite vérifier.

Exemple

		Aucun exemple disponible pour le moment.

Code de la fonction

Function FormExist(strForm As String) As Boolean

Dim db As Database
Dim cnt As Container
Dim doc As Document
Set db = CurrentDb()
Set cnt = db.Containers("Forms")
For Each doc In cnt.Documents
If doc.Name = strForm Then FormExist = True
Next doc
Set cnt = Nothing
db.Close: Set db = Nothing

End Function

Vérifier l'existence d'un formulaire (Formulaire)