Savoir si un objet est ouvert

Bonjour *à toi aussi* Michel,

Raymond avait donné la réponse suivante pour savoir si une requête est
ouverte (à partir d'Access 2000) :
_______________________________________
If Rq_Ouverte("requête1") Then
' trouvé
End If

Public Function Rq_Ouverte(Req As String) As Boolean
Dim Obj As AccessObject
Rq_Ouverte = False
For Each Obj In CurrentData.AllQueries
If Obj.IsLoaded And Obj.Name = Req Then
Rq_Ouverte = True
Exit Function
End If
Next Obj
End Function
___________________________________________

De rien,

Annette
---------------------------------------------------------------------------
www.horizon-micro.com


"Michel Pellegrini" <Michel.Pellegrini@Enter-Net.com> a écrit dans le
message de news: uZ5h48i5DHA.2404@TK2MSFTNGP12.phx.gbl...

Supposons que j'ai une requête qui se nomme "RToto".
Lorsque je clic sur un bouton, une boîte de message
m'avertit si cette requête est ouverte ou fermé:

If ??? Then
MsgBox ("La requête est ouverte")
Else
MsgBox ("La requête est fermée)
End If

Qu'est-ce qu'il faut indiquer à la place des
trois points d'interrogation ?

Michel.Pellegrini@Enter-Net.com
Vercheres QC Canada

(hm15)
|> Raymond avait donné la réponse suivante pour savoir
|> si une requête est ouverte (à partir d'Access 2000) :
|> _______________________________________
|> If Rq_Ouverte("requête1") Then
|> ' trouvé
|> End If
|>
|> Public Function Rq_Ouverte(Req As String) As Boolean
|> Dim Obj As AccessObject
|> Rq_Ouverte = False
|> For Each Obj In CurrentData.AllQueries
|> If Obj.IsLoaded And Obj.Name = Req Then
|> Rq_Ouverte = True
|> Exit Function
|> End If
|> Next Obj
|> End Function
|> ___________________________________________

Ok, merci.

Michel.Pellegrini@Enter-Net.com
Vercheres QC Canada