souci sur ajout de données de zone de liste

Bonjour

J'ai une zone de liste avec 3 colonnes:
colonne1 (on ne la voit): cle
colonne2 : produit
colonne3(on ne la voit pas): prixvente

ma zone de liste s'appelle "idproduit"

j'ai essayé ce code que j'ai recupéré dans la FAQ et que j'ai mis dans notinlist:

Code:

---

1 2 3 4 5 6 7 8 9 10 11

DoCmd.SetWarnings False If MsgBox("Voulez-vous ajouter " & NewData & " à la liste des désignations ?", _ vbYesNo + vbQuestion + vbDefaultButton2, "Ajout") = vbYes Then sql = "INSERT INTO produit ( produit, prixvente ) SELECT " & NewData & " ," & Me!prixTTC & ";" DoCmd.RunSQL sql   Response = acDataErrAdded Else Response = acDataErrContinue 'Modifiable0.Undo End If

---

En faisant ainsi je souhaite qu'il ajoute le nouveau nom du produit que j'ai mis ainsi que le prix qui est dans un textbox "prixTTC". Malheureusement cela ne fonctionne pas et je me casse la tete en vain.
j'ai un message qui en fait reprend le nouveau produit que j'ai tapé et me demande d'entrer sa valeur de paramètre.
et donc ca plante. un peu d'aide SVP.
merci

essaye ce code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

DoCmd.SetWarnings False If MsgBox("Voulez-vous ajouter " & NewData & " à la liste des désignations ?", _ vbYesNo + vbQuestion + vbDefaultButton2, "Ajout") = vbYes Then sql = "INSERT INTO produit ( produit, prixvente ) VALUES (" & NewData & " ," & Me![prixTTC] & ");" DoCmd.RunSQL sql   Response = acDataErrAdded Else Response = acDataErrContinue 'Modifiable0.Undo End If

---

Il faut auss que la clé soit une numérotation automatique sinon çà va planter

j'ai essayé plus simple en ne rentrant qu'un produit:

Code:

---

1 2 3 4 5 6 7 8 9 10

DoCmd.SetWarnings False If MsgBox("Voulez-vous ajouter " & NewData & " à la liste des désignations ?", _ vbYesNo + vbQuestion + vbDefaultButton2, "Ajout") = vbYes Then sql = "INSERT INTO produit ( produit) VALUES (" & NewData & " );" DoCmd.RunSQL sql   Response = acDataErrAdded Else Response = acDataErrContinue 'Modifiable0.Undo

---

avec ma table avec 2 champs:
1: clé auto appelé "n"
2: texte appelé "produit"

cela ne marche toujours pas, il me demande de rentrer le paramètre en reprenant le nouveau produit que je viens de taper.
pour info ma zone de liste contient 2 colonnes, la 1ere étant un colonne cachée (n) et l'autre le produit. La colonne liée est la 2.

PS: désolé de repondre si tard, je m'étais absenté.
merci

Pour quelle raison tu mets la description de ton produit comme colonne liée?
En général c'est justement le numéro de produit qui vient en colonne liée et c'est le nom du produit qui apparaît dans la liste déroulante

Code:

---

1 2	sql = "INSERT INTO produit ( produit) VALUES ('" & NewData & "' );"

---

il faut rajouter des' avant et après newdata pour lui montrer que c'est du texte, j'ai essayer avec une requête et c'est concluant

A+

magnifique, you are the best. en colonne liée j'ai mis 2 car j'ai besoin de recupéré pour un autre champ le texte correspodant.

si tu dois récupérer le texte de la colonne 2 tu peux le faire de la façon suivante:

Code:

---

1 2	me![mazonedeliste].colum(1)

---

en sachant que (0) est la 1ère colonne

ok merci