Discussion :

[kergamenan]

Bonjour à tous,
Dans une base de données access, je dois utiliser 25 fois une requête sélection en changeant simplement un code!
Plutôt que de la réécrire 25 fois, j'essaie de trouver du code vba qui ne change que le critère!
Voici la requête access en sql

Code sql :

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

1
2
3
SELECT détail_prev_année.Code, détail_prev_année.Dates, détail_prev_année.MATIN, détail_prev_année.REPAS, détail_prev_année.APREM, détail_prev_année.N°adhérent, détail_prev_année.[Centre mercredi]
FROM détail_prev_année
WHERE (((détail_prev_année.Code)="T1"));

Il y a juste le code comme "T1" à changer! J'ai essayé plein de trucs, mais je nage.... et j'ai des problèmes de mémoire(67 ans)!!
Merci pour votre aide!
Michel

[marot_r]

Bonjour,

tu as deux solutions :

1. Creer le SQL dans le code
2. Usiliser un parametre

Solution 1

Code :

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

1
2
3
4
5
6
7
8
9
10
dim tonCode as string:tonCode="T1"
Dim SQL as string
SQL="SELECT détail_prev_année.Code, détail_prev_année.Dates, détail_prev_année.MATIN, détail_prev_année.REPAS, détail_prev_année.APREM, détail_prev_année.N°adhérent, détail_prev_année.[Centre mercredi] FROM détail_prev_année WHERE (((détail_prev_année.Code)=""" & tonCode & """));"
dim db as dao.database:set db=currentdb
dim r as dao.recorset:set r=db.openrecordset(SQL)
 
' Ici exploiter r
 
r.close:set r=nothing
db.close:set db=nothing

Solution 2

Tu crees ta requete normalement et dans la ligne de critere tu mets [prmCode] (out tout autre chose significative, le nom importe peu)
Apres tu vas dans le menu requete et tu choisi "Parametres" et tu ajoutes une ligne prmCode, type texte.
Ensuite voila comment l'utiliser avec VBA.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
dim db as dao.database:set db=currentbd
dim q as dao.querydef:set q=db.querydefs("NomTaRequete")
q.parameters("prmCode")="T1"
dim r as dao.recordset:set r=q.openrecordset()
r.close:set r=nothing
 
' Ici exploiter r
 
set q=nothing
db.close:set db=nothing

A+

[minot83]

Bonsoir,

il faut se placer dans un formulaire, dans lequel tu peux par exemple ajouter un controle zone de liste deroulante, qui te permettra de choisir ta valeur, et enfin, placer dans ta requête la référence à ce contrôle.

Ce qui donnera:

Code :

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

1
2
3
SELECT détail_prev_année.Code, détail_prev_année.Dates, détail_prev_année.MATIN, détail_prev_année.REPAS, détail_prev_année.APREM, détail_prev_année.N°adhérent, détail_prev_année.[Centre mercredi]
FROM détail_prev_année
WHERE ((détail_prev_année.Code)=[Formulaires]![le-nom-de-ton-formulaire]![le-nom-de-ta-zone-de-liste] );

Cordialement

[kergamenan]

Merci beaucoup! J'ai opté pour la deuxième solution!
Et cela marche très bien!
Merci encore!
Michel