cs_ITALIA
Messages postés2169Date d'inscriptionvendredi 20 avril 2001StatutMembreDernière intervention30 juin 20099 2 nov. 2004 à 12:55
En DAO ca donne :
( En cochant Projet... Références ....Microsoft DAO 3.51 Object Library )
Set Db = OpenDatabase("C:\MaBase.mdb")
Set MAJ = Db.OpenRecordset("SELECT * FROM Table1")
If MAJ.recordcount <>0 then
Do Until MAJ.eof Set RenseigDb.OpenRecordset("SELECT * FROM Table2 WHERE numarticle " & MAJ("numarticle") &" ")
if Renseign.recordcount<>0 then
MAJ.Edit
MAJ("quantité")=MAJ("quantité")+Renseig("QtéPrise")
Maj.Update
end If
MAJ.Movenext
Loop
End If
Set MAJ=Nothing
Set Db=Nothing