Bahsettiğiniz tür bir taksitlendirme işlemini, satışını yaptığım bir programda kullandığım için burada paylaşamıyorum. Ama şunu belirteyim ki, dateadd komutu ile yapılıyor. Taksitlerdeki küsuratları da son taksite ekleyen bir şekilde, ayrıca peşinatı da "peşinat" olarak nakite girecek şekilde hazırlamıştım. Bu programımı şu anda satmaktayım, o yüzden burda paylaşmam mümkün değil. Ayrıca 5 yıldır geliştirdiğim ve oldukça fazla emek olan bir program. Ama örnek olması açısından taksitlendirme kodlarını vereyim aşağıda:
Kod:
Dim gün As Integer, ay As Integer, yıl As Long
Dim Tarih As Date, subat As Boolean
Dim MÜŞTERİNO As String
Dim TAKSİTBAŞLANGICI As Date
Dim TAKSİTTUTARI As String
Dim İŞLEMNO As String
Dim TAKSİTSAYISI As String
If TAKSİT_SAYISI = İŞLEM_NO Then TAKSİT_TUTARI = TAKSİT_TUTARI + TTUTAR
MÜŞTERİNO = Me![MÜŞTERİ_NO]
TAKSİTBAŞLANGICI = Me![TAKSİT_BAŞLANGICI]
TAKSİTTUTARI = Me![TAKSİT_TUTARI]
İŞLEMNO = Me![İŞLEM_NO] + 1
TAKSİTSAYISI = Me![TAKSİT_SAYISI]
tar = DateAdd("m", İŞLEMNO - 1, Metin40)
Me![TAKİŞNO] = otono
DoCmd.GoToRecord , , acNewRec
Me![MÜŞTERİ_NO] = MÜŞTERİNO
Me![İŞLEM_NO] = İŞLEMNO
Me![TAKSİT_BAŞLANGICI] = tar
Me![TAKSİT_TUTARI] = TAKSİTTUTARI
Me![TAKSİT_SAYISI] = TAKSİTSAYISI
Me![TAKİŞNO] = otono
burada özellikle tar=dateadd satırına dikkat edin. Bu satır taksit tarihlerini veren satırdır. O satırda geçen metin40 alanı işlem tarihidir ve =date() ile günlük tarih olarak sabitlenmiştir. Görülmez, sadece referans için konulmuştur.
Kolay gelsin.
İnadına, ille de Accesstr.net...
