Tüm borçları sıfırlama

[TURISSEMOS]

fabrikada işçilerin ilaçlarını biz alıyoruz.Bunun içinde bir prg.yaptım fakat işçinin tüm borçlarını bir buton ile sıfırlamak istiyorum.Bunun içinde şu kodu yazdım fakat sadece ilk kayıtı siliyor.Tüm kayıtları nasıl sıfırlarım.KOd şu;
Private Sub Command144_Click()
Dim C As Integer
C = MsgBox("Personelin tüm borçları silinecek..! Eminmisiniz?", vbOKCancel + vbQuestion, "İLAÇ TAKİP PROGRAMI")
If C = vbOK And [Sap no] = [Combo134] Then
[Alınan miktar] = [Toplam miktar]
[Borcu alındı mı ?] = True
MsgBox " Personelin tüm borçları tahsil edilmiştir."
ElseIf C = vbCancel Then
Me.Undo
End If
End Sub
Bu kodu nasıl yazabilirimde tüm borçları sıfırlarım.Teşekkürler.Ayrıca Ramazanınız mübarek olsun.

 

[akd]

Merhaba sayın TURISEMOS,
koda falan gerek yok bence, formun solundaki kayıt seçicilerinden birini seçip ctrl+A' ya tıkladığında hepsini seçicecek sonra delete tuşuna tıklaman yeterlidir.
İyi çalışmalar..

 

[TURISSEMOS]

Yanlış yazmışım silme değil, sıfırlanacak.