Discussion :

[Tierisa]

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 :

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

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

[Alexandre Sahli]

essaye ce code

Code :

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

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

[Tierisa]

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

Code :

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

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

[Alexandre Sahli]

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 :

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

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+

[Tierisa]

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.

[Alexandre Sahli]

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

Code :

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

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

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

[Tierisa]

ok merci