Formulaire ouvert ?

Résolu/Fermé
sasafca Messages postés 505 Date d'inscription mercredi 27 février 2008 Statut Membre Dernière intervention 8 septembre 2017 - 12 juil. 2013 à 09:19
Thorak83 Messages postés 1051 Date d'inscription jeudi 20 juin 2013 Statut Membre Dernière intervention 22 décembre 2017 - 12 juil. 2013 à 10:23
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

Thorak83 Messages postés 1051 Date d'inscription jeudi 20 juin 2013 Statut Membre Dernière intervention 22 décembre 2017 156
Modifié par Thorak83 le 12/07/2013 à 09:23
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
sasafca Messages postés 505 Date d'inscription mercredi 27 février 2008 Statut Membre Dernière intervention 8 septembre 2017 4
12 juil. 2013 à 09:39
Bonjour, merci mais j'ai déjà essayé...
Il me met erreur d'execution 424. Objet requis
0
Thorak83 Messages postés 1051 Date d'inscription jeudi 20 juin 2013 Statut Membre Dernière intervention 22 décembre 2017 156
12 juil. 2013 à 09:56
Heu vous êtes sous quelle version d'Access ?
0
sasafca Messages postés 505 Date d'inscription mercredi 27 février 2008 Statut Membre Dernière intervention 8 septembre 2017 4
12 juil. 2013 à 10:01
Je suis sur Excel 2010 (VBA)
0
Thorak83 Messages postés 1051 Date d'inscription jeudi 20 juin 2013 Statut Membre Dernière intervention 22 décembre 2017 156
Modifié par Thorak83 le 12/07/2013 à 10:08
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
0
sasafca Messages postés 505 Date d'inscription mercredi 27 février 2008 Statut Membre Dernière intervention 8 septembre 2017 4
12 juil. 2013 à 10:10
Pour Excel il faut faire comment du coup svp ??
0
Thorak83 Messages postés 1051 Date d'inscription jeudi 20 juin 2013 Statut Membre Dernière intervention 22 décembre 2017 156
Modifié par Thorak83 le 12/07/2013 à 10:12
If UserForm1.Visible Then
    MsgBox "ok"
End If


si le formulaire s'appelle UserForm1
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
sasafca Messages postés 505 Date d'inscription mercredi 27 février 2008 Statut Membre Dernière intervention 8 septembre 2017 4
12 juil. 2013 à 10:22
J'ai trouvé au même moment ou vous me l'avez proposé et ça marche enfin !!
Merci beaucoup !
Bonne journée !
0
Thorak83 Messages postés 1051 Date d'inscription jeudi 20 juin 2013 Statut Membre Dernière intervention 22 décembre 2017 156
Modifié par Thorak83 le 12/07/2013 à 10:24
Bonne journée
0