Remplir avec un code VBA un champ de requête

Bonsoir à tous,

Je voudrais remplir un champ d'une requête suivant la valeur d'un autre champ.

par exemple de 0 à 3 mettre 1
de 4 à 6 mettre 2 etc.

J'ai tenté de mettre en place un code VBA, mais impossible de créer une fonction dans un module.

Il manque le début et je ne comprends pas, pouvez-vous m'expliquer ? comment inscrire dans mon champ de ma requête ?

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

Dim db As Database Dim rs As Recordset   Set db = CurrentDb Set rs = db.OpenRecordset("MaRequête")   If Not rs.BOF And Not rs.EOF Then rs.MoveFirst Do While Not rs.EOF rs.Edit If rs!age >= 0 And rs!age <= 3 Then rs!categorie = 1 ElseIf rs!age >= 4 And rs!age <= 6 Then rs!categorie = 2 ' etc... End If rs.Update rs.MoveNext Loop End If   rs.Close Set rs = Nothing Set db = Nothing

---

Merci d'avance et bonne soirée.

Bonjour Nounours1,

La fonction "Switch" ou " PremVrai" en français devrait faire ce que vous désirez. Elle peut être utilisée directement dans la requête comme suit:

Code:

---

1 2	SELECT Age, Switch([Age]>6,3,[Age]>3,2,[Age]>0,1) AS Categorie FROM VotreTable;

---

Cette fonction retourne la première expression rencontré vrai.

Bonne journée

Bonjour Robert,

Merci pour votre réponse, il faut coller la sous requête dans un nouveau champ de ma requête ?
J'ai une information que je dois mettre la sous requête entre parenthèses.

Merci encore,

Bon dimanche.

Bonjour Nounours1,

Pas de sous requête. Vous ajouter le champ "Categorie"

Code:

---

Switch([Age]>6,3,[Age]>3,2,[Age]>0,1) AS Categorie

---

à votre requête. Si vous utilisez le QBE d'Access, il faudra remplacer les "," par ";" si votre logiciel est français.

Bonne journée

Merci, et à bientôt