amigna
Messages postés53Date d'inscriptionmardi 6 novembre 2007StatutMembreDernière intervention18 août 2008
-
1 mars 2008 à 20:25
PCPT
Messages postés13272Date d'inscriptionlundi 13 décembre 2004StatutMembreDernière intervention 3 février 2018
-
1 mars 2008 à 21:04
Bonsoir,
Quand je sélectionne un médicament pour la vente.
Quand je clique valider pour entrer les données dans la base de données access j'ai une message d'erreur qui dit : erreur de syntaxe dans la chaine dans l'expression "5000)'.
Le chiffre c'est le montant total de la vente pour vous expliquer d'où vient le 5000
le 5000 c'est le montant total exemple Quantité X prix = 5000
si je clique sur débogage il met en jaune
cn.exécute req
Private Sub Val_Click()
Call connect
If Lv1.ListItems.Count < 1 Then
MsgBox "Veuillez sélectionner au moins un médicament !!!", vbInformation, "Information"
Else
If (MsgBox("Etes vous sûr de bien vouloir ajouter cette vente ?", _
vbQuestion + vbYesNoCancel, "Modification") = vbYes) Then
montant.Text = Replace(montant.Text, ",", ".")
req = "insert into vente values(" & code.Text & ",'" & date.Text & "','" & heure.Text & "','" + montant.Text + ")"
cn.Execute req
MsgBox "Ajout avec succés!!!", vbInformation, "Information"
For i = 1 To Lv1.ListItems.Count
cn.Execute "insert into ventemed values(" & code.Text & ",'" & Lv1.ListItems.Item(i).Text & "'," & Lv1.ListItems.Item(i).SubItems(2) & ")"
cn.Execute "update LotStock set QuantiteEnStock=QuantiteEnStock-" & Lv1.ListItems.Item(i).SubItems(2) & " where CodeMedicament='" & Lv1.ListItems.Item(i).Text & "'"
Next i
affiche
MsgBox Err.Description
End If
End If
Exit Sub
End Sub