Dans mon application, je voudrais pouvoir tester si une requête est déjà
ouverte ou non.
En effet avec la méthode CreateQueryDef, je crée une requête. Mais si
celle-ci est déjà ouverte (parce que l'utilisateur ne l'a pas fermée), il y
a souci.
En amont de cette méthode, il faut donc que je teste si la requête est déjà
ouverte. Quel peut être le code car je n'ai rien trouvé dans les archives ?
Merci d'avance à ceux qui répondront, et en espérant que la réponse servent
à ceux qui lisent
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Eric
Bonjour,
En parcourrant la collection AllQueries des Données en Cours (CurrentData). Adapter le nom de la requête. La msgbox s'affiche quelque soit le mode d'affichage de la requête (Design, Aperçu ...). (A transformer en fonction booléenne, certainement)
Sub zz() Dim qry As Object For Each qry In CurrentData.AllQueries If qry.Name = "NomRequête" Then If qry.IsLoaded = True Then MsgBox qry.Name & " déjà ouverte" Exit For End If End If Next End Sub
Bonjour tout le monde
Dans mon application, je voudrais pouvoir tester si une requête est déjà ouverte ou non.
En effet avec la méthode CreateQueryDef, je crée une requête. Mais si celle-ci est déjà ouverte (parce que l'utilisateur ne l'a pas fermée), il y a souci. En amont de cette méthode, il faut donc que je teste si la requête est déjà ouverte. Quel peut être le code car je n'ai rien trouvé dans les archives ?
Merci d'avance à ceux qui répondront, et en espérant que la réponse servent à ceux qui lisent
Pierre Dumas
-- A+ Eric http://www.mpfa.info/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Bonjour,
En parcourrant la collection AllQueries des Données en Cours
(CurrentData). Adapter le nom de la requête. La msgbox s'affiche quelque
soit le mode d'affichage de la requête (Design, Aperçu ...).
(A transformer en fonction booléenne, certainement)
Sub zz()
Dim qry As Object
For Each qry In CurrentData.AllQueries
If qry.Name = "NomRequête" Then
If qry.IsLoaded = True Then
MsgBox qry.Name & " déjà ouverte"
Exit For
End If
End If
Next
End Sub
Bonjour tout le monde
Dans mon application, je voudrais pouvoir tester si une requête est déjà
ouverte ou non.
En effet avec la méthode CreateQueryDef, je crée une requête. Mais si
celle-ci est déjà ouverte (parce que l'utilisateur ne l'a pas fermée), il y
a souci.
En amont de cette méthode, il faut donc que je teste si la requête est déjà
ouverte. Quel peut être le code car je n'ai rien trouvé dans les archives ?
Merci d'avance à ceux qui répondront, et en espérant que la réponse servent
à ceux qui lisent
Pierre Dumas
--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
En parcourrant la collection AllQueries des Données en Cours (CurrentData). Adapter le nom de la requête. La msgbox s'affiche quelque soit le mode d'affichage de la requête (Design, Aperçu ...). (A transformer en fonction booléenne, certainement)
Sub zz() Dim qry As Object For Each qry In CurrentData.AllQueries If qry.Name = "NomRequête" Then If qry.IsLoaded = True Then MsgBox qry.Name & " déjà ouverte" Exit For End If End If Next End Sub
Bonjour tout le monde
Dans mon application, je voudrais pouvoir tester si une requête est déjà ouverte ou non.
En effet avec la méthode CreateQueryDef, je crée une requête. Mais si celle-ci est déjà ouverte (parce que l'utilisateur ne l'a pas fermée), il y a souci. En amont de cette méthode, il faut donc que je teste si la requête est déjà ouverte. Quel peut être le code car je n'ai rien trouvé dans les archives ?
Merci d'avance à ceux qui répondront, et en espérant que la réponse servent à ceux qui lisent
Pierre Dumas
-- A+ Eric http://www.mpfa.info/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Pierre Dumas
Ok, ça marche nickel. merci
"Eric" a écrit dans le message de news:
Bonjour,
En parcourrant la collection AllQueries des Données en Cours (CurrentData). Adapter le nom de la requête. La msgbox s'affiche quelque soit le mode d'affichage de la requête (Design, Aperçu ...). (A transformer en fonction booléenne, certainement)
Sub zz() Dim qry As Object For Each qry In CurrentData.AllQueries If qry.Name = "NomRequête" Then If qry.IsLoaded = True Then MsgBox qry.Name & " déjà ouverte" Exit For End If End If Next End Sub
Bonjour tout le monde
Dans mon application, je voudrais pouvoir tester si une requête est déjà ouverte ou non.
En effet avec la méthode CreateQueryDef, je crée une requête. Mais si celle-ci est déjà ouverte (parce que l'utilisateur ne l'a pas fermée), il y a souci. En amont de cette méthode, il faut donc que je teste si la requête est déjà ouverte. Quel peut être le code car je n'ai rien trouvé dans les archives ?
Merci d'avance à ceux qui répondront, et en espérant que la réponse servent à ceux qui lisent
Pierre Dumas
-- A+ Eric http://www.mpfa.info/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Ok, ça marche nickel. merci
"Eric" <f_framZZ@hotmail.com> a écrit dans le message de news:
OFTLgDGlGHA.3484@TK2MSFTNGP03.phx.gbl...
Bonjour,
En parcourrant la collection AllQueries des Données en Cours
(CurrentData). Adapter le nom de la requête. La msgbox s'affiche quelque
soit le mode d'affichage de la requête (Design, Aperçu ...).
(A transformer en fonction booléenne, certainement)
Sub zz()
Dim qry As Object
For Each qry In CurrentData.AllQueries
If qry.Name = "NomRequête" Then
If qry.IsLoaded = True Then
MsgBox qry.Name & " déjà ouverte"
Exit For
End If
End If
Next
End Sub
Bonjour tout le monde
Dans mon application, je voudrais pouvoir tester si une requête est déjà
ouverte ou non.
En effet avec la méthode CreateQueryDef, je crée une requête. Mais si
celle-ci est déjà ouverte (parce que l'utilisateur ne l'a pas fermée), il
y a souci.
En amont de cette méthode, il faut donc que je teste si la requête est
déjà ouverte. Quel peut être le code car je n'ai rien trouvé dans les
archives ?
Merci d'avance à ceux qui répondront, et en espérant que la réponse
servent à ceux qui lisent
Pierre Dumas
--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
En parcourrant la collection AllQueries des Données en Cours (CurrentData). Adapter le nom de la requête. La msgbox s'affiche quelque soit le mode d'affichage de la requête (Design, Aperçu ...). (A transformer en fonction booléenne, certainement)
Sub zz() Dim qry As Object For Each qry In CurrentData.AllQueries If qry.Name = "NomRequête" Then If qry.IsLoaded = True Then MsgBox qry.Name & " déjà ouverte" Exit For End If End If Next End Sub
Bonjour tout le monde
Dans mon application, je voudrais pouvoir tester si une requête est déjà ouverte ou non.
En effet avec la méthode CreateQueryDef, je crée une requête. Mais si celle-ci est déjà ouverte (parce que l'utilisateur ne l'a pas fermée), il y a souci. En amont de cette méthode, il faut donc que je teste si la requête est déjà ouverte. Quel peut être le code car je n'ai rien trouvé dans les archives ?
Merci d'avance à ceux qui répondront, et en espérant que la réponse servent à ceux qui lisent
Pierre Dumas
-- A+ Eric http://www.mpfa.info/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
