Moderatori: Anthony47, Flash30005
Dim db As Database
Dim rs As Recordset
Set db = CurrentDb()
Set rs = db.OpenRecordset("NumeroReport", dbOpenDynaset)
rs.Edit
rs!NumRep = rs!NumRep + 1
rs.Update
Me.Contatore = rs!NumRep
rs.Close
Set rs = Nothing
Set db = Nothing
Torna a Applicazioni Office Windows
Visitano il forum: Nessuno e 31 ospiti