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:
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.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
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
Partager