1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
| dim sql as string
dim rec as recordset
'1) vérifier la date de consommation
sql = "SELECT * FROM infosproduits WHERE datelimite = " & me.dateconso & ";"
set rec = currentdb.openrecordset ( sql )
if (rec.recordcount > 0) then
'Mise à jour du stock
rec.movefirst
dim nb as integer
nb = rec("quantite") + me.quantite 'valeur stockée dans la base de donnée + celle encodée dans le formulaire d'achat
sql = "UPDATE infosproduits SET quantite = " & nb & " WHERE idProduit = " & me.idProduit & ";"
docmd.runsql ( sql )
else
'Ajouter au stock
sql = "INSERT INTO infosproduits VALUES (" & me.idProduit & "," & me.quantite & "," & me.dateconso & ");"
docmd.runsql (sql)
end if
rec.close |
Partager