Access SQL   ›   ACCESS SORULARI VE ÖRNEK UYGULAMALARI   ›   ACCESS SORULARI   ›   [VBA] Kalan Borç

[VBA] Kalan Borç
EminA
Önemli Üye 300-400

*
Kayıt Tarihi: 30.04.2013
Toplam 41 konu açtı.
Toplam 387 yorum yaptı.
Toplam 0 puanı bulunmakta.
Beğeniler: 0 / 1
#1
29-09-2017, 13:22 (En son düzenleme: 29-09-2017, 13:23 EminA.)
Arkadaşlar, benim şu ana kadar bir türlü mantığını anlayamadığım bir konu. O kadar örnek incelememe rağmen VTme bir türlü uygulayamadım. VTde öğrenci formunda taksit formu var taksit girişi yaptığımda kalan borcu hesaplatamıyorum. Bu konuda yardım istiyorum. Bir de mantığını basitçe izah ederseniz çok sevinirim. İleride yapacağım VTlerde nasıl bir mantıkla bu işlemi yaptıracağımı çözmem gerek. İlgileneceklere şimdiden teşekkürler.

Kullanıcı Emin Abaoğlu
Şifre: 5012


Eklenti Dosyaları
.rar   EminA - 24.09.2017.rar (Boyut: 161,73 KB / İndirilme: 95)



  Bul
  Alıntı
Bu mesajı beğenenler:
dsezgin
Forum Yöneticisi

*
Kayıt Tarihi: 24.03.2013
Toplam 27 konu açtı.
Toplam 9.087 yorum yaptı.
Toplam 1.089 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2013,
Beğeniler: 57 / 239
#2
29-09-2017, 21:17
tblOUcret tablosuna TakipNu otomatik sayi turunden alan ekledim. Odenen aidatin taksit sayisindan fazla ihtimali dusuncesi ile ekledim.
Form frmOgrenci ListeUcret nesnesi kayit kaynagi SQL'i
SQL
  1. SELECT tblOUcret.ucretID, tblOUcret.uVadeTarihi, tblOUcret.uOdemeTarihi, tblOUcret.uAylikTaksit, tblOUcret.uOdemeAlan, tblOUcret.uOdemeTuru, Format(Nz(DLookUp("uKesinUcret","tblOgrenci","oKayitNo=" & [ucretID]),0)-DSum("uAylikTaksit","tblOUcret","ucretID=" & [ucretID] & " And clng(format(uOdemeTarihi,'yyyymmdd') & TakipNu)<=" & CLng(Format([uOdemeTarihi],"yyyymmdd") & [TakipNu])),"Currency") AS DsKalanBorc FROM tblOUcret WHERE (((tblOUcret.ucretID)=[Forms]![frmOgrenci]![oKayitNo])) ORDER BY tblOUcret.uOdemeTarihi, tblOUcret.TakipNu



Form frmOgrenci frmTaksit alt formu nesnesi kayit kaynagi SQL'i
SQL
  1. SELECT tblOUcret.ucretID, tblOUcret.uVadeTarihi, tblOUcret.uOdemeTarihi, tblOUcret.uAylikTaksit, tblOUcret.uOdemeAlan, tblOUcret.uOdemeTuru, tblOUcret.uKalanBorc, Nz(DLookUp("uKesinUcret","tblOgrenci","oKayitNo=" & [ucretID]),0)-DSum("uAylikTaksit","tblOUcret","ucretID=" & [ucretID] & " And clng(format(uOdemeTarihi,'yyyymmdd') & TakipNu)<=" & CLng(Format([uOdemeTarihi],"yyyymmdd") & [TakipNu])) AS DsKalanBorc, tblOUcret.TakipNu FROM tblOUcret ORDER BY tblOUcret.uOdemeTarihi, tblOUcret.TakipNu;



Visual Basic
  1. Private Sub uAylikTaksit_AfterUpdate()
  2. If IsNull(Me.uAylikTaksit) Or Me.uAylikTaksit = "" Then
  3.     MsgBox "Aylik taksit degerini bos giremezsiniz."
  4.     Me.uAylikTaksit.Undo
  5. Else
  6.     Me.ucretID = Forms("frmOgrenci").oKayitNo
  7.     Me.uKalanBorc = Nz(DLookup("uKesinUcret", "tblOgrenci", "oKayitNo=" & Me.ucretID), 0) - DSum("uAylikTaksit", "tblOUcret", "ucretID=" & Me.ucretID & " And clng(format(uOdemeTarihi,'yyyymmdd') & TakipNu)<=" & CLng(Format(Me.uOdemeTarihi, "yyyymmdd") & Me.TakipNu))
  8. End If
  9. End Sub


ile sonuc alinabilir.

Yuruyen bakiye gibi dusunebilirsiniz, odenen kayit dizinin ustunde ki kayitlara ait odenen degerin toplanmasi.

NOT : Odeme miktar oncesi odeme tarihi girilmesi gerekmektedir. Duzenlemeyi siz yapabilirsiniz.


.rar   EminA - 24.09.2017.rar (Boyut: 178,17 KB / İndirilme: 110)
Access Fonksiyonlarının(Deyimler), Sorgu da kullanımı
Rapor veya-Pdf-Dosyalarını Birleştirme Uygulaması



  Website   Bul
  Alıntı
Bu mesajı beğenenler:
EminA
Önemli Üye 300-400

*
Kayıt Tarihi: 30.04.2013
Toplam 41 konu açtı.
Toplam 387 yorum yaptı.
Toplam 0 puanı bulunmakta.
Beğeniler: 0 / 1
#3
29-09-2017, 21:35
Çok çok teşekkür ederim Sezgin Hocam. Emeğinize sağlık.



  Bul
  Alıntı
Bu mesajı beğenenler:
EminA
Önemli Üye 300-400

*
Kayıt Tarihi: 30.04.2013
Toplam 41 konu açtı.
Toplam 387 yorum yaptı.
Toplam 0 puanı bulunmakta.
Beğeniler: 0 / 1
#4
30-09-2017, 21:58
Sezgin Hocam, bunu VTye mevcut haliyle uygulamak mümkün müdür?



  Bul
  Alıntı
Bu mesajı beğenenler:
dsezgin
Forum Yöneticisi

*
Kayıt Tarihi: 24.03.2013
Toplam 27 konu açtı.
Toplam 9.087 yorum yaptı.
Toplam 1.089 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2013,
Beğeniler: 57 / 239
#5
01-10-2017, 00:13
uAylikTaksit_AfterUpdate proseduru tabloya kayit yapiyor ve liste kutu kayit kaynaginda uAylikTaksit alanini gosterirseniz istediginiz olur sanirim. Degiskende gostermemin sebebi onceki kayit dizininde ilgli hanenin bos oldugundandir.
Access Fonksiyonlarının(Deyimler), Sorgu da kullanımı
Rapor veya-Pdf-Dosyalarını Birleştirme Uygulaması



  Website   Bul
  Alıntı
Bu mesajı beğenenler:
EminA
Önemli Üye 300-400

*
Kayıt Tarihi: 30.04.2013
Toplam 41 konu açtı.
Toplam 387 yorum yaptı.
Toplam 0 puanı bulunmakta.
Beğeniler: 0 / 1
#6
01-10-2017, 23:18
Tamam Sezgin Hocam sağolun.



  Bul
  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
access-sql-8 [FORM] Borç/alacak Formu orhnkprn 2 463 23-12-2022, 09:39
Son Mesaj: orhnkprn
  Kalan Bakiye Sorunu burhan 3 566 30-05-2021, 16:26
Son Mesaj: burhan
  [FORM] Arada Kalan Numaraları Kazanma hturkavci03 18 1.880 16-02-2020, 21:02
Son Mesaj: userx53
  [FORM] Kalan Borç Hanesindeki Değerin Toplam Borç Hanesine Otomatik Düşmesini Sağlamak M_Kemal_Askeri 7 1.395 20-12-2019, 17:37
Son Mesaj: halily
  [TABLO] Tabloların Tümünün Kalan Toplamlarını Alabilmek Ahmet51 4 1.174 20-02-2018, 08:57
Son Mesaj: Ahmet51
  [RAPOR] Raporda Kalan (Bakiye) Hesaplama Sorunu RENATO 4 2.692 16-01-2016, 22:39
Son Mesaj: RENATO
  [SORGU] sorguda kalan formülü ibrahim korkmaz 4 1.987 20-06-2015, 18:44
Son Mesaj: ibrahim korkmaz
  [FONKSiYON] Sabit kalan ve devreden tarih sorunu ercan acar 4 1.722 21-01-2015, 20:28
Son Mesaj: ercan acar

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar):