Bonjour,
Je souhaite savoir comment on pourrait vérifier si un état est ouvert ou pas depuis vba.
Cordialement
Bonjour,
Je souhaite savoir comment on pourrait vérifier si un état est ouvert ou pas depuis vba.
Cordialement
Bonjour
Un état est ouvert si tu lui demandes, je ne comprends pas trop ta demande et le but ?
Philippe
Je souhaitais savoir comment vérifier si un état MS Access est ouvert depuis vba.
Je viens de trouver la réponse.
Merci
Re
Ce serait bien de mettre la solution, pour que d'autres membres ayant le même type de demande puisse avoir la réponse en consultant le forum.
N'oubliez pas que DVP est un forum de partage et d'entraide.
Philippe
Salut!
Moi j'utilise ces 2 petites fonctions constamment :
et
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16 Function EstOuvert(NomFormulaire) ' Argument(s) : un nom de formulaire. ' Action : détermine si un formulaire est actif. ' Valeur(s) renvoyée(s) : True si le formulaire spécifié est actif ; ' False dans le cas contraire. ' Voir : Chapitre 3. Dim i EstOuvert = False For i = 0 To Forms.Count - 1 If Forms(i).FormName = NomFormulaire Then EstOuvert = True Exit Function ' Quitte la fonction une fois le formulaire trouvé. End If Next End Function
Enjoy
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10 Function EstOuvertEtat(NomEtat) Dim i EstOuvertEtat = False For i = 0 To Reports.Count - 1 If Reports(i).Name = NomEtat Then EstOuvertEtat = True Exit Function ' Quitte la fonction une fois l'état trouvé. End If Next End Function
Essayer. Rater. Essayer encore. Rater encore. Rater mieux. (Samuel Beckett)
Ou encore:
Quand ça ne tourne pas rond dans le carré de l'hypothénuse , c'est signe qu'il est grand temps de prendre les virages en ligne droite.(Pierre Dac)
... Des principes qui m'ont beaucoup aidé en informatique...
Bonjour
une seule ligne !
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3 CurrentProject.AllForms("MonFormulaire").IsLoaded CurrentProject.AllReports("MonEtat").IsLoaded
A+
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager