For x = 1 To Me.tsayisi
1'den başlayıp taksit sayısı seçimi yaptığın açılan kutudaki değer kadar döngü çalışacak. buradaki Me.tsayisi kodunu Me.tsayisi - 1 ile değiştir.
Y = (x * 6) + 123
Controls("Metin" & Y) = DateAdd("m", x, Me.Metin123)
alt formdaki taksit tarihlerinin yazılacağı metin kutularının isimleri Metin123,Metin129,Metin135,....Metin261 şeklinde 6'şar artarak gittiği için döngüde,
x = 2 için, y = (2 * 6) + 123 = 135
x = 3 için, y = (3 * 6) + 123 = 141
x = 2 de kodun uygulanmış hali
Controls(Metin135) = DateAdd("m", 2, Me.Metin123)
Metin135'e metin123'deki değere 2 ay ekler,
x = 3 de kodun uygulanmış hali
Controls(Metin141) = DateAdd("m", 3, Me.Metin123)
Metin141'e metin123'deki değere 3 ay ekler,
konu cevaplanmış sorular bölümüne taşınmıştır.
Taksit Sayısına Göre Taksit Tarihi Yazdırma
Bu Konudaki Yorumlar |
Taksit Sayısına Göre Taksit Tarihi Yazdırma - Yazar: celilpartal - 26/07/2015, 10:41
Cvp: TAKSİT SAYISINA GÖRE TAKSİT TARİHİ YAZDIRMA - Yazar: ozanakkaya - 26/07/2015, 20:35
Cvp: TAKSİT SAYISINA GÖRE TAKSİT TARİHİ YAZDIRMA - Yazar: celilpartal - 26/07/2015, 22:16
Cvp: TAKSİT SAYISINA GÖRE TAKSİT TARİHİ YAZDIRMA - Yazar: ozanakkaya - 26/07/2015, 23:55
Cvp: Taksit Sayısına Göre Taksit Tarihi Yazdırma - Yazar: atoz112 - 28/07/2015, 13:15
Cvp: Taksit Sayısına Göre Taksit Tarihi Yazdırma - Yazar: celilpartal - 01/08/2015, 17:41
|
Konuyu Okuyanlar: 1 Ziyaretçi