Discussion :

[Treuze]

Bon je vous donne le code je pense que trouverz rapidement l'erreur, moi j ai bo chercher sur internnet je ne sais pas comment exprimé mon
LIGNE_DE_COMMANDE]!QTE_A_QUALITE + quantité

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
20
21
22
23
24
25
26
 
Private Sub TransposerElement(lstSource As ListBox, lstDestination As ListBox)
 
Dim i As Integer
Dim Db As DAO.Database
Set Db = CurrentDb
 
With lstSource
'S'il ne faut déplacer que les élements sélectionnés,
 For i = 0 To .ListCount - 1
  'si l'élement est sélectionné dans la liste source,
  'inverse le champ selection
  If .Selected(i) Then
    quantité = InputBox("Entrez la quantité déplacée")
    Db.Execute "UPDATE LIGNE_DE_COMMANDE SET QTE_A_QUALITE=[LIGNE_DE_COMMANDE]!QTE_A_QUALITE + quantité WHERE REF_PIÈCE=" & _
     Chr(34) & .Column(1, i) & Chr(34)
  End If
 Next i
'sinon, permutte la globalité
'Db.Execute "UPDATE LIGNE_DE_COMMANDE SET QTE_A_QUALITE=" & [LIGNE_DE_COMMANDE]!QTE_A_QUALITE
'Rafraichit la zone de liste source
.Requery
End With
'Rafraichit la zone de liste destination
lstDestination.Requery
End Sub

[zazaraignée]

Salut

Et si tu refaisais tout ça en éliminant les caractères accentués de tes variables. Pour les noms de champs, j'imagine qu'il est trop tard!

[Treuze]

C est trop tard !
Mais est ce que tu pourrais me dire comment assigner a un champ la valeur de ce champ + celle d une variable ??

[calimero91]

tu fait : champ = champ + NomDeVariable

[AlainTech]

tu fait : champ = champ + NomDeVariable

calimero91, as-tu déjà utilisé des requêtes SQL?
Ce n'est pas si simple.

Treuze, ça doit donner quelque chose du genre:

Code :

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

...LIGNE_DE_COMMANDE]!QTE_A_QUALITE + " & quantité & " WHERE...

comme tu l'as fait après le REF_PIÈCE=

[zazaraignée]

Salut

Et puis, quant à moi, je n'ai pas encore suffisemment tripatouillé dans les programmes qui inter-agissent avec les bases de données pour être de bon conseil. Mais je sais une chose très très importante: les caractères accentués et la programmation, ça ne fait pas bon ménage.

[Treuze]

Merci !c est bien ca