- Katılım
- 30 Ocak 2006
- Mesajlar
- 937
- Excel Vers. ve Dili
- Access 2003
Sevgili Modalı, gerçekten de dateadd ile çözüm bulduk. Bir arkadaşla beraber oturup problemi çözdük.
For i=1 To taksitsayısı
tar = DateAdd("m", i, tar1)
Next i
bu kodlardan hareketle bizim kodlarımızı şöyle oluşturduk:
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
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)
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
Tabii bu arada dikkatinizi çekmiştir tar tanımı nerede diye.. Onu general declerationda tanımladık. Bu arada metin40 diye bir ifade kullandık. O da form üzerinde taksitin ilk başlangıç tarihi metin kutusuna yazıldığında aktarılan değeri sabit olarak vermek üzere formdan gelen bir veri.. Çünkü form üzerindeki taksit başlangıcı değeri her entere basıldığında bir ay sonraki tarihe geliyor.. Bu arada bizim ilk başlangıç tarihi verisini metin40 alanı sabit olarak tutuyor. (Yani tarzanca bir çözüm)
tar = DateAdd("m", İŞLEMNO - 1, Metin40) ifadesindeki -1 değeri ne diye sorarsanız ilk tarihi yazınca o tarihten sonra 2 ay atlıyordu, o yüzden -1 yaptık.
For i=1 To taksitsayısı
tar = DateAdd("m", i, tar1)
Next i
bu kodlardan hareketle bizim kodlarımızı şöyle oluşturduk:
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
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)
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
Tabii bu arada dikkatinizi çekmiştir tar tanımı nerede diye.. Onu general declerationda tanımladık. Bu arada metin40 diye bir ifade kullandık. O da form üzerinde taksitin ilk başlangıç tarihi metin kutusuna yazıldığında aktarılan değeri sabit olarak vermek üzere formdan gelen bir veri.. Çünkü form üzerindeki taksit başlangıcı değeri her entere basıldığında bir ay sonraki tarihe geliyor.. Bu arada bizim ilk başlangıç tarihi verisini metin40 alanı sabit olarak tutuyor. (Yani tarzanca bir çözüm)
tar = DateAdd("m", İŞLEMNO - 1, Metin40) ifadesindeki -1 değeri ne diye sorarsanız ilk tarihi yazınca o tarihten sonra 2 ay atlıyordu, o yüzden -1 yaptık.