Discussion :

[Nounours1]

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 :

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

[Robert1957]

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 :

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

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

[Nounours1]

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.

[Robert1957]

Bonjour Nounours1,

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

Code :

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

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

[Nounours1]

Merci, et à bientôt