On Error GoTo Err_Hata
Dim db As Database
Dim rst As Recordset
Set db = CurrentDb()
Set rst = db.OpenRecordset("Personel")
Do While Not rst.EOF
rst.Edit
'Hesaplama Kodları
rst.Update
rst.MoveNext
Loop
rst.Close
Exit_Hata:
Set rst = Nothing
Set db = Nothing
Exit Sub
Err_Hata:
MsgBox (Err.Number)
Resume Exit_Hata
Yukarıdaki 'Hesaplama Kodları yerine personel formundaki hesaplama kodlarını dahil etmeniz gerekli. Persnel formundaki Me.GırUcret kodunu puantaj formunda rst!GırUcret şeklinde kullanmalısınız.
