1. taksit alanının yani Metin123'ün güncelleştirme sonrasında olayına aşağıdaki kodu ekleyiniz.
If MsgBox(Me.Metin123 & " tarihinden itibaren " & Me.tsayisi & " taksit işlemi yapılsın mı?", vbYesNo + vbCritical) = vbYes Then
For x = 1 To Me.tsayisi
Y = (x * 6) + 123
Controls("Metin" & Y) = DateAdd("m", x, Me.Metin123)
Next x
End If
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