Alan Adı : Arsivmi
Veri Türü : Sayı
Alan Boyutu : Bayt
Ondalık Basamaklar : 0
Varsayılan Değer : 0
Bir buton ekleyin:
Adı : btnArsiveGonder
Butonun 'Tıklanma Olayı' kodları şu şekilde olacak:
Private Sub btnArsiveGonder_Click()
Dim kacTane As Integer
kacTane = DCount("*", "Mst_Alt", "Knd=" & Me.Sr & " AND IsNull([Od_T])")
If (kacTane = 0) Then
DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE Mst_Alt SET Arsivmi=1 WHERE Knd=" & Me.Sr
DoCmd.RunSQL "UPDATE Musteri SET Arsivmi=1 WHERE musteriid=" & Me.Sr
DoCmd.SetWarnings True
MsgBox "Bilgiler arşive taşındı.", vbInformation, "AccessTr.Net - alpeki99"
Else
MsgBox "Şu anda taksitleri bitmediğinden arşive taşınma işlemi yapılamaz.", vbInformation, "AccessTr.Net - alpeki99"
End If
End Sub
Müşteri tüm ödeme tarihleri dolu ise yani ödeme yaptıysa arşive gönderecek şekilde yaptım ama elbette bu yanlış. Normalde Borcu = Ödediği Taksitlerin Toplamı şeklinde yapmanız lazım.
Tavsiyeler :
Bu şekilde tablo yapısı yanlış bunu düzeltmeniz lazım. Mesela müşteri iki veya daha fazla mal aldığı zaman sizde bunları ayrı ayrı takip etmek istediğinizde bu tablo yapısı size yardımcı olmaz. Eğer bana toplam borç = tahsilat toplamı olsa yeter derseniz birşey diyemem.
Tavsiyeler :