Discussion :

[PE59189]

Bonjour,

Je souhaite savoir comment on pourrait vérifier si un état est ouvert ou pas depuis vba.

Cordialement

[Invité]

Bonjour

Un état est ouvert si tu lui demandes, je ne comprends pas trop ta demande et le but ?

Philippe

[PE59189]

Je souhaitais savoir comment vérifier si un état MS Access est ouvert depuis vba.
Je viens de trouver la réponse.
Merci

[Invité]

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

[Ric500]

Salut!

Moi j'utilise ces 2 petites fonctions constamment :

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

et

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

Enjoy

[Thierry_PALLIER]

Bonjour

Code :

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

1
2
3
CurrentProject.AllForms("MonFormulaire").IsLoaded
 
CurrentProject.AllReports("MonEtat").IsLoaded

une seule ligne !
A+