Requête sql paramétrée en VBA

Bonjour à tous!
je voudrais exécuter une requête sous vba en la paramétrant.
je souhaiterais utiliser la cde "docmd.runsql "le nom" suivi du filtre
je me fais des noeuds dans la syntaxe.
le filtre est récupéré d'un formulaire filtré et mis dans une variable publique
ex:

Code:

---

MonFiltre=(([Source Mailing].Soc_RS Like "*TOULOUSE"))

---

le but est de modifier une chechbox de la requête à oui en vue de remplir une table

merci pour votre aide

salut,
bienvenue sur DVP :salut:

tu as à ta disposition de nombreuses ressources, notamment une :faq:, que je t'encourage vivement à consulter pour chacune de tes interrogations.

Tu trouveras une réponse ici :
http://access.developpez.com/faq/?pa...s#UtilReqExist

bonne lecture :)

Citation:

---

Envoyé par jpcheck

salut,
bienvenue sur DVP :salut:

tu as à ta disposition de nombreuses ressources, notamment une :faq:, que je t'encourage vivement à consulter pour chacune de tes interrogations.

Tu trouveras une réponse ici :
http://access.developpez.com/faq/?pa...s#UtilReqExist

bonne lecture :)

---

merci mais je ne trouve pas exactement ce que je veux. aussi j'ai essayé d'expliquer mon besoin dans le document joint
merci de prendre le temps de le regarder

Bonsoir.
J'utilise beaucoup la méthode suivante:
Pour cela, j'écris la requête avec l'interface graphique, je l'enregistre et la teste.
Je visualise ensuite cette requête avec l'interface SQL puis effectue un copier/coller du code SQL que j'affecte à une variable string.
Je remplace les valeurs en "dur" par les variables du programme.

Ex de code final permettant la recherche d'un nom à partir du No Secu dans la table tEmployés:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Dim dbs As Database 'Base de données Dim sqlstr as string 'Texte de la requête   'Initialisation Set dbs = CurrentDb 'Bdd courante   'Monter la requête SqlStr = "Select Nom, Prenom " & _ "From tEmployes " & _ "Where NoSS = """ & NoSecuSociale & """;"   'Actualiser la requête dbs.QueryDefs![NomDeLaRequete].SQL = SqlStr   'dbs.close

---

Si l'on a des bugs, ce qui arrive avec les requêtes complexes, un point d'arrêt juste après l'initialisation de la variable SqlStr, une édition de cette variable dans la fenêtre exécution, un copier coller du résultat dans une nouvelle requête en mode SQL, visualisation des problèmes, corrections ....

Cordialement, :bug: