Kod:
Dim x, ks, deger, sondeger As Integer
On Error GoTo err_hata
DoCmd.GoToRecord , , acFirst
DoCmd.SetWarnings False
Me.txtUretim = Me.txtSayac
ks = DCount("[sayac]", "tablo1")
For x = 1 To ks
1
deger = Me.txtSayac
DoCmd.GoToRecord , , acNext
sondeger = Me.txtSayac - deger
Me.txtUretim = sondeger
Next x
err_hata: MsgBox "işlem tamamlandı"
DoCmd.SetWarnings True