(26/07/2015, 20:35)ozanakkaya yazdı: 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
Teşekkürler ozanakkaya tam olarak istediğim işlevi gösteriyor. kodun çalışma mantığınıda anlatırmısın. öğrenmek istiyorum