Discussion :

[sat478]

Bonjour,

j'ai créé une requête dans Access sans passer par le VBA.

Maintenant je souhaite actualiser (lancer) la requête en VBA mais sans visualiser celle-ci.

OpenQUery ne permet pas de faire cela puisqu'il m'affiche les résultats de la requête.

Est-ce possible ? Et si oui de quelle manière ?

Par avance, merci

[Simplifi]

hello
si c'est une requête action, elle n'affiche rien si on est en mode warnings = false
si c'est une requête sélection, je ne vois pas l'intérêt de l'actualiser
même si d'autres requêtes sont basées dessus, pas de problème, elle sera réactualisée à l'appel.

[pev15]

bonjour,

Si j'ai bien compris ton problème, tu souhaites éxécuter une requete depuis ton code VBA. il te suffit d'insérer le code suivant sur l'évenement qui doit "actualiser" ta requête :

Code :

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

1
2
3
4
5
6
Dim qryModele As DAO.QueryDef 'déclaration d'un objet requete
 
Set qryModele = CurrentDb.QueryDefs("Nom de la requête") 'binding de l'objet requete
qryModele.Parameters![nom_du_parametre] = valeur 'Cette ligne est utilisée dans le cas de requête paramétré
qryModele.Execute 'exécute la requete, (actualise dans ton vocabulaire)
qryModele.Close 'libère l'objet

Voila, je pense que cela devrait t'aider.

[Jack78960]

salut,

Code :

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

CurrentDb.QueryDefs("Nom de la requête").execute

au plus simple, bien que sur des requêtes dites action = Update, Insert, Delete,Select.. into

le code précédent de pev15 est utile si tu as un paramètre à passer en argument à la requete

[j.lebowski]

Bonjour, voilà mon problème :

j'ai collé le code mais on me dit que sur une requête SELECT on ne peut pas faire Execute.

Le résultat de la requête apparait dans une liste et dans le même formulaire on rentre des enregistrements qui sont utiles pour la requête, j'aimerais que l'affichage de la liste soit à jour en temps réel, sans avoir à sélectionner la liste et à faire F5.

merci,

lebowski

[Manhexter]

Salutations,

Alors, effectivement on ne peut pas utiliser la commande execute sur une requête de sélection.
Pour afficher le résultat de ta requête dans une liste déroulante, tu place directement celle-ci dans propriété "Contenu" de la requête (mais si j'ai bien compris, ça tu le savais déjà).

Ton problème est l'actualisation de cette liste. Tu dis que sur le même formulaire tu as les champs permettant d'alimenter la table sur laquelle porte ta requête :

Le résultat de la requête apparait dans une liste et dans le même formulaire on rentre des enregistrements qui sont utiles pour la requête

J'imagine que tu as donc un code vba derrière qui t'exécute une requête insert ou une requête update selon ton besoin.
As-tu essayé de mettre ça à la fin de ton code (en adaptant le nom à ton formulaire bien sûr) ?

Code :

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

Mon_Formulaire.Refresh

[j.lebowski]

Salut,

je n'ai pas de code VBA qui exécute de requête, juste un code pour forcer la saisie en majuscule dans certains champs
J'ai essayé le refresh, j'ai essayé Forms![monformulaire].[nomdemaliste].refresh et même .requery, rien de fonctionne, des fois il y a un message d'erreur.

Je précise que c'est marqué Indépendant là où est ma liste quand je passe en mode création, c'est peut-être un problème.

Voilà si vous avez des idées elles sont les bienvenues parce que je doit rendre la base de données vendredi

EDIT : c'est bon ça marche mais c'est boiteux ça met plus de temps que de cliquer sur la liste et faire F5 :s