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 27 28
|
Function test(strProd As String, nbQtProd As Double)
Dim db As DAO.Database, rst As DAO.Recordset, fld As DAO.Field
Dim sSQL As String
Dim libP As String
Dim nVal As Double
' Ouverture de la base de données
Set db = CurrentDb()
sSQL = "SELECT Produit.qtProd " & _
"FROM Produit " & _
"WHERE (((Produit.libProd) = '" & strProd & "')) " & _
"; "
' Ouverture du Recordset
Set rst = db.OpenRecordset(sSQL, dbOpenForwardOnly, dbReadOnly)
nVal = nbQtProd + CDbl(rst!qtProd)
'on me signale une erreur se syntaxe à ce niveau
CurrentDb.Execute ("UPDATE Produit " & _
"SET (((Produit.qtProd) = '" & nVal & "' )) " &
"WHERE (((Produit.libProd) = '" & strProd & "')) " & _
"; ")
MsgBox "Ajout effectué avec succès."
' Fermeture du Recordset
rst.Close
End Function |
Partager