Discussion :

[Dutchou]

Bonjour,

Actuellement en stage, j'ai pour mission de créer une application Access afin de gérer un magasin d'outillages.
Je suis sur un formulaire qui permet d'afficher les outils selon leur catégorie.
J'aimerais donc savoir si on peut avoir une zone de liste qui afficherait les différents enregistrements selon la catégorie choisie précédemment dans une liste déroulante.

Voici mon code actuel:

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
Private Sub lst_choixCat_Change()
    'liste déroulante
    choix = Form_Frm_Outils.lst_choixCat.Value
 
    req = "SELECT designation, location, prix_tarif, qte_stock, stockMini, codeBarre "
    req = req & "FROM OUTILS "
    req = req & "WHERE id_cat = " & choix & ";"
 
    Set rs = CurrentDb.OpenRecordset(req)
 
    liste = ""
    While Not rs.EOF
        liste = liste & rs("designation") & rs("location") & rs("prix_tarif") & rs("qte_stock") & rs("stockMini") & rs("codeBarre") & vbNewLine
        rs.MoveNext
    Wend
 
    'zone de liste
    txt_choixCat.Value = liste
End Sub

L'erreur trouvée par Access se situe sur cette ligne:

Code :

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

liste = liste & rs("designation") & rs("location") & rs("prix_tarif") & rs("qte_stock") & rs("stockMini") & rs("codeBarre") & vbNewLine

Merci de m'aider à résoudre mon souci.

[Invité]

Bonjour

Merci de faire des recherches, ce sujet revient plusieurs fois par semaines sur le forum.

Un tuto à lire pour cela : Concevoir une liste qui en alimente une autre, car à mon avis tu es parti sur une mauvaise piste.

Philippe

[loufab]

Bonjour,

Quelle est l'erreur ?

Nous n'avons pas d'option divinatoire sur ce forum.

Cordialement,

[Dutchou]

Bah justement je m'embrouille tous seul, je fais le chien qui court après sa queue. =/
Je n'arrive pas à trouver l'erreur.

Merci de vos réponses.

[Dutchou]

Merci pour le tutoriel, j'ai le résultat attendu.