Discussion :

[loustic-31]

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 :

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

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

[Jean-Philippe André]

salut,
bienvenue sur DVP

tu as à ta disposition de nombreuses ressources, notamment une , 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

[loustic-31]

salut,
bienvenue sur DVP

tu as à ta disposition de nombreuses ressources, notamment une , 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

[PapouDomi]

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 :

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
 
  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,