Dim SqlFazla, SqlBorc, txtKimlik, SqlGuncelle, txtNot As String '<-- "txtNot" eklendi
txtNot = CStr(Date) & " tarihinde verilen " & txtVerilen & " TL""den " & dblx & " TL ödendi " ' '<-- Bu satır eklendi
" OdenenTar=cdate(" & CLng(Date) & "), " & _ '<-- Bu satır değişti
" Not='" & txtNot & _ '<-- Bu satır eklendi
Sub FazlaDagit(Optional Kimlik As String = "")
Dim Fazla As New ADODB.Recordset
Dim BORC As New ADODB.Recordset
Dim SqlFazla, SqlBorc, txtKimlik, SqlGuncelle, txtNot As String '<-- "txtNot" eklendi
Dim dblBakiye, dblBorc As Double
txtKimlik = IIf(Kimlik = "", "", " AND ((TBLUYEGENELBIL.KIMID)=" & Kimlik & ")")
SqlFazla = " SELECT TBLUYEGENELBIL.KIMID, TBLUYEGENELBIL.KalanPara" & _
" FROM TBLUYEGENELBIL " & _
" WHERE (((TBLUYEGENELBIL.KalanPara)>0)" & txtKimlik & ")"
Fazla.Open SqlFazla, CurrentProject.Connection, adOpenKeyset, adLockOptimistic 'burada açtığın bağlantı
If Fazla.RecordCount <= 0 Then GoTo 10 ' goto 10 ile kapanmadan
Fazla.MoveLast
Fazla.MoveFirst
Do Until Fazla.EOF
dblBakiye = 0
dblBakiye = Fazla.Fields("KalanPara")
SqlBorc = " SELECT TBLUYEODEMETABLOSU.KIMID, TBLUYEODEMETABLOSU.sira, TBLUYEODEMETABLOSU.TaksitMik, TBLUYEODEMETABLOSU.OdemeMik " & _
" FROM TBLUYEODEMETABLOSU " & _
" WHERE (((TBLUYEODEMETABLOSU.OdemeMik) < TBLUYEODEMETABLOSU.TaksitMik) And ((TBLUYEODEMETABLOSU.KIMID) =" & Fazla.Fields("KIMID") & ")) " & _
" ORDER BY TBLUYEODEMETABLOSU.SonOdemeTar"
BORC.Open SqlBorc, CurrentProject.Connection, adOpenKeyset, adLockOptimistic 'burada açtığın bağlantı
If BORC.RecordCount <= 0 Then GoTo 20 ' goto 10 ile kapanmadan
BORC.MoveLast
BORC.MoveFirst
'
Do Until BORC.EOF
If dblBakiye <= 0 Then GoTo 20
dblBorc = 0
dblBorc = BORC.Fields("TaksitMik") - BORC.Fields("OdemeMik") 'ödenmesi gereken
dblx = IIf(dblBakiye >= dblBorc, dblBorc, dblBakiye)
dblBakiye = dblBakiye - dblx
txtNot = CStr(Date) & " tarihinde verilen " & txtVerilen & " TL""den " & dblx & " TL ödendi "
SqlGuncelle = " update TBLUYEODEMETABLOSU set " & _
" OdemeMik=OdemeMik + ccur('" & dblx & "'), " & _
" OdenenTar=cdate(" & CLng(Date) & "), " & _
" Not='" & txtNot & _
"' where sira=" & BORC.Fields("sira")
CurrentDb.Execute SqlGuncelle
SqlGuncelle = " update TBLUYEGENELBIL set " & _
" KalanPara=KalanPara - ccur('" & dblx & "') " & _
" where KIMID=" & Fazla.Fields("KIMID")
CurrentDb.Execute SqlGuncelle
BORC.MoveNext
Loop
20 '
BORC.Close
Set BORC = Nothing
Fazla.MoveNext
Loop
10
Fazla.Close
Set Fazla = Nothing
End Sub