Set db = OpenDatabase(App.Path & "\G2MJD.mdb")
sql = "select * from es where cstr(N)='" & Trim(Text7) & "' "
Set R = db.OpenRecordset(sql, dbOpenSnapshot)
R("qte") = Val(Text1) - Val(Text3)
mise a jour impossible l'objet ou la table est en lecture seul