Vérifier si un formulaire existe

Le code qui suit permet de tester si un formulaire existe dans la base de donnée en cours..

L'argument "strForm" correspond au nom du formulaire que l'on veut vérifier

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

Si le formulaire existe, la fonction retournera True.

Auteur : Jessy SEMPERE