Listbox et bdd access

bonjour

voila la première listbox parc machine--liste fonctionne

si je choisi planche ---liste la je n'arrive pas a afficher les valeurs

aussi comment faire si je souhaite éditer un produit que celle si soit modifier dans ma bdd

merci d'avance

rebonjour

une parti du problème est résolu

maintenant lorsque je choisi planche les valeur de la listbox2 ne s'affiche pas dans les controls

PETIT UP

je bloque et je n'y arrive pas

j'ai trouvé d'ou vient l'erreur mais ne sais pas comment faire

pouvez vous m'aider

Private Sub ListBox2_Click()

    Set Rs = cnn.Execute("SELECT * FROM PLANCHE WHERE  CODEAFFAIRE  ='" & ListBox2.Text & "'")

    If Rs.EOF Then
        MsgBox "planche non trouvée !", vbExclamation
        Exit Sub
    End If

    ComboBox1.Text = ValGereNull(Rs.Fields("CODEAFFAIRE").Value)
    ComboBox2.Text = ValGereNull(Rs.Fields("TYPE").Value)
    nfiche.Text = ValGereNull(Rs.Fields("INCREM").Value)
    Textfamille.Text = ValGereNull(Rs.Fields("FAMILLE").Value)
    Textrefprod.Text = ValGereNull(Rs.Fields("REFproduit").Value)
    TextPLANfab.Text = ValGereNull(Rs.Fields("PLANfab").Value)
    Textident.Text = ValGereNull(Rs.Fields("ident").Value)

    Set Rs = Nothing

End Sub

en sachant que dans codeaffaire je peu avoir plusieur fois le meme chiffre,je souhaite que lorsuqe je clic sur une ligne il prenne en compte CODEAFFAIRE+TYPE+INCREM

exemple 000 1 001 c'est la seul fois ou je peu avoir des identification différente le 001 s'incremente

merci de regarder si c'est possible