OVH Cloud OVH Cloud

condition forulaire is open

3 réponses
Avatar
Didier
Bonjour

Je souhaire faire une codition pour v=E9rifier si un=20
formulaire est ouvert pour ex=E9cuter une macro
J'ai essay=E9 en condition de macro=20
Forms![Nomduformulaire] IsOpen mais apparemment il n'aime=20
pas
Quelle est la formule pour v=E9rifier si un formulaire est=20
ouvert

Merci

3 réponses

Avatar
Buddy
Salut
utilise ça pour savoir si un formulaire est ouvert

Public Function pufFrmEstOuvert(ByVal strForm As String) As Boolean
pufFrmEstOuvert = (SysCmd(acSysCmdGetObjectState, acForm, strForm) <> 0)
End Function

Ouala
Bye
Buddy

"Didier" a écrit dans le message de
news:16dce01c448b1$20e7a600$
Bonjour

Je souhaire faire une codition pour vérifier si un
formulaire est ouvert pour exécuter une macro
J'ai essayé en condition de macro
Forms![Nomduformulaire] IsOpen mais apparemment il n'aime
pas
Quelle est la formule pour vérifier si un formulaire est
ouvert

Merci
Avatar
didier
Re

Cette formulaire te permet de savoir s'il y a des
formulaires d'ouvert
moi je souhaire savoir si un formulaire nommé par exemple
toto est ouvert et pourvoir faire une condition si toto
est ouvert
Par exemple Is "Toto" Is open
DoCmd close "titi"

Mais la fonction Is open n'est par reconnu

-----Message d'origine-----
Salut
utilise ça pour savoir si un formulaire est ouvert

Public Function pufFrmEstOuvert(ByVal strForm As String)
As Boolean

pufFrmEstOuvert = (SysCmd(acSysCmdGetObjectState,
acForm, strForm) <> 0)

End Function

Ouala
Bye
Buddy

"Didier" a écrit
dans le message de

news:16dce01c448b1$20e7a600$
Bonjour

Je souhaire faire une codition pour vérifier si un
formulaire est ouvert pour exécuter une macro
J'ai essayé en condition de macro
Forms![Nomduformulaire] IsOpen mais apparemment il n'aime
pas
Quelle est la formule pour vérifier si un formulaire est
ouvert

Merci


.



Avatar
Raymond [mvp]
Bonjour.

buddy t'a répondu correctement.
si tu es en 2000 & +, tu peux utiliser aussi:
If CurrentProject.AllForms("toto").IsLoaded Then


--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"didier" a écrit dans le message de
news:171e101c448b8$c25cf1f0$
Re

Cette formulaire te permet de savoir s'il y a des
formulaires d'ouvert
moi je souhaire savoir si un formulaire nommé par exemple
toto est ouvert et pourvoir faire une condition si toto
est ouvert
Par exemple Is "Toto" Is open
DoCmd close "titi"

Mais la fonction Is open n'est par reconnu