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.