Discussion :

[sooprano]

salut j travail ds vb6 j'ai 2 table Concerner et Produit j vx effectuer la mise a jour alors j'ai fé ce code mais quand j verifier la table Produit j vois aucune Modification (Mise a jour)

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
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
 
Select Case Button.Index
Case Is = 1 'Bouton Valider
va = MsgBox("Voulez Vous Vraiment Valider???", vbYesNo + vbInformation, "Validation")
If va = 6 Then
SQL = " insert into Concerner " & _
" values ( '" & Combo1 & "' , '" & Combo2 & "' , " & Text1 & ")"
 
'mise a jour dans la table Produit
sql2 = " update Produit " & _
" set Qs_prod = Qs_prod - val(text1) where Num_prod= '" & Combo2 & "'"
Base.Execute SQL
Base.Execute sql2
 
End If
 
End Select
End Sub

[SfJ5Rpw8]

et l'insertion elle se passe bien ..?

voir ta requête sql .. il ne faut pas laisser dans la variable string .. des variables/formules dont tu veux utiliser la valeur entre les "

Code :

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

1
2
3
 
sql2 = " update Produit " & _
" set Qs_prod = Qs_prod - " & val(text1)  & " where Num_prod= '" & Combo2 & "'"

[sooprano]

oups j'ai oublié d faire " & cé pa grave une autre j'n'oublierai pa
Merci pr votre aide