- Katılım
- 15 Kasım 2005
- Mesajlar
- 48
- Excel Vers. ve Dili
- Access 2003 İngilizce
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.
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.