Formulaire ouvert ?

Résolu/Fermé
Signaler
Messages postés
505
Date d'inscription
mercredi 27 février 2008
Statut
Membre
Dernière intervention
8 septembre 2017
-
Messages postés
1051
Date d'inscription
jeudi 20 juin 2013
Statut
Membre
Dernière intervention
22 décembre 2017
-
Bonjour,

je souhaite effectué une fonction qui me dit si mon formulaire est ouvert ou pas, c'est pas le nombre d'exemple qui manque sur internet.
Cependant aucune ne marche !!! Je deviens fou !
Faut il activé une bibliothèque quel conque pour que par exemple Forms.count fonctionne ?
SysCmd ne fonctionne pas non plus chez moi.

Merci de votre aide!

5 réponses

Messages postés
1051
Date d'inscription
jeudi 20 juin 2013
Statut
Membre
Dernière intervention
22 décembre 2017
147
Bonjour,

Un formulaire sous Access ? Si oui voici ce que j'utilise et qui fonctionne

If CurrentProject.AllForms("Devis").IsLoaded Then
    MsgBox("Le formulaire Devis est ouvert !")
End If


Cordialement
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 41989 internautes nous ont dit merci ce mois-ci

Messages postés
505
Date d'inscription
mercredi 27 février 2008
Statut
Membre
Dernière intervention
8 septembre 2017
4
Bonjour, merci mais j'ai déjà essayé...
Il me met erreur d'execution 424. Objet requis
Messages postés
1051
Date d'inscription
jeudi 20 juin 2013
Statut
Membre
Dernière intervention
22 décembre 2017
147
Heu vous êtes sous quelle version d'Access ?
Messages postés
505
Date d'inscription
mercredi 27 février 2008
Statut
Membre
Dernière intervention
8 septembre 2017
4
Je suis sur Excel 2010 (VBA)
Messages postés
1051
Date d'inscription
jeudi 20 juin 2013
Statut
Membre
Dernière intervention
22 décembre 2017
147
Le code quie je vous ai donnée est pour ACCESS pas pour EXCEL.
C'est pour cela que je vouas ai demandé si vous étiez sous Access
Messages postés
505
Date d'inscription
mercredi 27 février 2008
Statut
Membre
Dernière intervention
8 septembre 2017
4
Pour Excel il faut faire comment du coup svp ??
Messages postés
1051
Date d'inscription
jeudi 20 juin 2013
Statut
Membre
Dernière intervention
22 décembre 2017
147
If UserForm1.Visible Then
    MsgBox "ok"
End If


si le formulaire s'appelle UserForm1
Messages postés
505
Date d'inscription
mercredi 27 février 2008
Statut
Membre
Dernière intervention
8 septembre 2017
4
J'ai trouvé au même moment ou vous me l'avez proposé et ça marche enfin !!
Merci beaucoup !
Bonne journée !
Messages postés
1051
Date d'inscription
jeudi 20 juin 2013
Statut
Membre
Dernière intervention
22 décembre 2017
147
Bonne journée