Verifier si un formulaire est ouvert Access

Bonjour,

Personellement, je ne connais pas de fonction ou de propriété
qui permettent cela, voici comment je procède :

Public Sub TesteNom()

Dim NomP, NomA As String
Dim Message As String

NomP = FormulairePresent("Formulaire Table Vidéo")
NomA = FormulaireActif("Formulaire Table Vidéo")
Message = "Formulaire présent : " & NomP & vbCrLf
Message = Message & "Formulaire actif : " & NomA & vbCrLf
MsgBox Message

NomP = FormulairePresent("Formulaire Titre Vidéo")
NomA = FormulaireActif("Formulaire Titre Vidéo")
Message = "Formulaire présent : " & NomP & vbCrLf
Message = Message & "Formulaire actif : " & NomA & vbCrLf
MsgBox Message

End Sub
'

Public Function FormulairePresent(Recherche As String) As String

Dim DBCourante As Database
Dim DocForm As Document
Dim Compteur As Integer

ReDim FastrFormNames(0)

Set DBCourante = CurrentDb()
Compteur = 0
FormulairePresent = ""
For Each DocForm In DBCourante.Containers("Forms").Documents
If (DocForm.Name = Recherche) Then
FormulairePresent = Recherche
End If
Next

End Function
'

Public Function FormulaireActif(Recherche As String) As String

Dim DBCourante As Database
Dim Formulaire As Form

Set DBCourante = CurrentDb()
FormulaireActif = ""
For Each Formulaire In Forms
If (Formulaire.Name = Recherche) Then
FormulaireActif = Recherche
End If
Next

End Function

Lupin

En fait, je voudrai savoir la fonction qui retourne l'information qu'un formulaire est ouvert ou pas.

Merci de votre réponse.

Céline