Discussion :

[sebac]

J'utilise IsOpen("nomDeMonFormulaire") pour tester si mon formulaire est bien ouvert mais quand je compile, access me cré une erreur sur le IsOpen et me dit que c'est un nom ambigu. quelqu'un aurait-il une autre instruction pour tester si un formulaire est bien ouvert?

merci

[helas]

Créer une fonction et l'appeler ainsi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
 If EstOuvert("NomFormulaire") Then ...

La fonction :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
Function EstOuvert(s As String) As Boolean
 On Error GoTo erreur
 EstOuvert = True
 If Forms(s).Name = s Then Exit Function
Exit Function
erreur:
 EstOuvert = False
End Function