Skip to main content

AccessTr.neT


Metin Kutusu

metınaycıcek
metınaycıcek
35
5166

Metin Kutusu

#20
(13/09/2019, 01:58)metınaycıcek yazdı:
(13/09/2019, 01:54)berduş yazdı: FazlaDagit()" fonksiyonunu aşağıdaki kodla değiştirip dener misiniz?
Kod:
Sub FazlaDagit(Optional Kimlik As String = "")
Dim Fazla As New ADODB.Recordset
Dim Borc As New ADODB.Recordset
Dim SqlFazla, SqlBorc, txtKimlik, SqlGuncelle As String
Dim dblBakiye, dblBorc, dblVerilen 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
dblVerilen = Nz(Forms!frm_anamenu!frm_UYEGENEL.Form!FRM_UYEODEMETABLOSU.Form!txtVerilen, 0)
    '
               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

txtKaynak = IIf(dblVerilen < dblx, " kalan " & dblBakiye + dblx, " tarihinde yatan " & dblVerilen)
txtNot = Date & txtKaynak & " TL''den " & dblx & " lira ödendi "
                    SqlGuncelle = " update TBLUYEODEMETABLOSU set " & _
                           " OdemeMik=OdemeMik + ccur('" & dblx & "'), " & _
                           " OdenenTar=cdate(" & CLng(Date) & ")," & _
                           " Not='" & Nz(txtNot, "") & _
                           "' where sira=" & Borc.Fields("sira")
                    CurrentDb.Execute SqlGuncelle
dblVerilen = dblVerilen - dblx
                    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

Sayın Hocam 
tamam oldu
Sayın Hocam yerı deği biliyorum
özürümü kabul etmenizi rica ediyorum
 bu cevaba dahil bi sorum var.
borc değeri 500 tl olan taksitin  
ödemesini  ödeme yap tan veya kalanpara'dan ödedi  200 tl taksit borcu kaldı, bi sonraki ödememe yaptığında  önceki ödeme not'u siliniyor silinmesini engeleyebilirmiyiz ?
saygılarımla
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Metin Kutusu - Yazar: metınaycıcek - 12/09/2019, 02:43
RE: Metin Kutusu - Yazar: berduş - 12/09/2019, 11:41
RE: Metin Kutusu - Yazar: metınaycıcek - 12/09/2019, 22:00
RE: Metin Kutusu - Yazar: ozanakkaya - 12/09/2019, 12:01
Re: Metin Kutusu - Yazar: berduş - 12/09/2019, 13:46
Cvp: Metin Kutusu - Yazar: berduş - 12/09/2019, 22:23
RE: Metin Kutusu - Yazar: metınaycıcek - 12/09/2019, 22:27
Cvp: Metin Kutusu - Yazar: berduş - 12/09/2019, 22:29
RE: Metin Kutusu - Yazar: metınaycıcek - 12/09/2019, 22:32
RE: Metin Kutusu - Yazar: metınaycıcek - 12/09/2019, 22:47
RE: Metin Kutusu - Yazar: berduş - 13/09/2019, 00:50
RE: Metin Kutusu - Yazar: metınaycıcek - 13/09/2019, 01:24
Cvp: Metin Kutusu - Yazar: berduş - 13/09/2019, 01:31
RE: Metin Kutusu - Yazar: metınaycıcek - 13/09/2019, 01:40
Cvp: Metin Kutusu - Yazar: berduş - 13/09/2019, 01:45
RE: Metin Kutusu - Yazar: metınaycıcek - 13/09/2019, 01:50
Cvp: Metin Kutusu - Yazar: berduş - 13/09/2019, 01:54
RE: Metin Kutusu - Yazar: metınaycıcek - 13/09/2019, 01:58
Cvp: RE: Metin Kutusu - Yazar: metınaycıcek - 15/09/2019, 22:54
RE: Metin Kutusu - Yazar: metınaycıcek - 13/09/2019, 02:09
Cvp: Metin Kutusu - Yazar: berduş - 15/09/2019, 23:18
Cvp: Metin Kutusu - Yazar: metınaycıcek - 16/09/2019, 00:29
Cvp: Metin Kutusu - Yazar: berduş - 16/09/2019, 00:50
Cvp: Metin Kutusu - Yazar: metınaycıcek - 16/09/2019, 02:12
Cvp: Metin Kutusu - Yazar: berduş - 16/09/2019, 10:46
RE: Metin Kutusu - Yazar: metınaycıcek - 16/09/2019, 12:54
Cvp: Metin Kutusu - Yazar: berduş - 16/09/2019, 13:00
RE: Metin Kutusu - Yazar: metınaycıcek - 16/09/2019, 13:47
Cvp: Metin Kutusu - Yazar: berduş - 16/09/2019, 15:02
RE: Metin Kutusu - Yazar: metınaycıcek - 16/09/2019, 17:16
RE: Metin Kutusu - Yazar: metınaycıcek - 16/09/2019, 17:22
RE: Metin Kutusu - Yazar: metınaycıcek - 16/09/2019, 23:17
Cvp: Metin Kutusu - Yazar: berduş - 16/09/2019, 23:19
RE: Metin Kutusu - Yazar: metınaycıcek - 16/09/2019, 23:22
Cvp: Metin Kutusu - Yazar: HORZUM - 25/10/2019, 16:33
Cvp: Metin Kutusu - Yazar: metınaycıcek - 26/10/2019, 00:06
Task