اعطاء قيم تلقائيا لمربعات النص

[firas zuhair]

السلام عليكم

لدي فورم وفيه مثلا 11 مربع نص احد هذه المربعات وليكن (t)ساضع فيه تاريخ معين (وبقية المربعات مرتبه من (t1...t10))

المطلوب هو ان المربع t1سياخذ التاريخ الموجود في مربع النص t مضاف اليه 30 يوم والمربع t2سياخذ التاريخ الموجود في مربع النص t مضاف اليه 60 يوم وهذا بالنسبه لبقية المربعات وبنفس الزيادة اي 30 يوم عن المربع الذي قبله

ولكن لااريد بالطريقه التقليديه وهي

me.t1=me.t+30

اريد الحل باستخدام دواره ولتكنfor

for i=1 to 10

وبعدها تكملة الكود

ارجو ان الفكرة قد وصلت

وشكرا

[firas zuhair]

للرفع

[rudwan]

ضع هذا الكود في حدث بعد التحديث للعنصر الفاعل t

Private Sub t_AfterUpdate()
Dim i As Integer
Dim MyDate As Date
MyDate = Me.t

i = 0
For i = 1 To 5
Me("t" & i).Value = MyDate + (30 * i)
Next i
End Sub

[firas zuhair]

شكرا ياخي العزي على ردك

وجزاك الله خير الجزاء