تعديل على الملف المرفق

[tiger wanted]

بسم الله الرحمن الرحيم مرسل لكم ملف اريد تطبيق الزيادة الشهرية باستخدام for   next ولكن الكود لا يعمل بالشكل المطلوب ولكم جزيل الشكر والتقدير

tb.accdb

[محمد أبوعبدالله]

السلام عليكم

استخدم الكود التالي

Dim I As Integer
Dim x As Date

    mySqL = "Select * From tt"
    Debug.Print mySqL
    
    Set rst = CurrentDb.OpenRecordset(mySqL)

    For I = 1 To Me.t3 - 1
        rst.AddNew
        rst!dat = DateAdd("m", [t2], I)
        rst.Update
    Next

Me.Requery

tb.rar

تحياتي

[tiger wanted]

اشكرك ولكن بعد تنفيذ الكود يظهر هذا الناتج المرفق وشكرا 

[محمد أبوعبدالله]

قم بتعديل الكود التالي

Dim I As Integer
Dim x As Date

    mySqL = "Select * From tt"
    Debug.Print mySqL

    Set rst = CurrentDb.OpenRecordset(mySqL)

    For I = 1 To Me.t3 * Me.t2 Step Me.t2
        rst.AddNew
'        rst!dat = DateAdd("m", [t2], I)
        rst!dat = DateAdd("m", [t2], Date)
        rst.Update
    Next

Me.Requery

tb.rar

تحياتي

تم تعديل يوليو 8, 2020 بواسطه محمد أبوعبدالله
اضافة المرفق

[tiger wanted]

اشكرك يا اخى ولكن ما اطلبه هو زيادة شهرية مثل 1/1/2020 الثانى 1/2/2020 واشكرك على الرد وان وجدت الحل فبرجاء الارسال وشكرا 

[محمد أبوعبدالله]

اخي الكريم

يوجد لديك حقب t2 فهنت ان وظيفته تباعد الاشهر حسب ما ما هو مكتوب

واليك الكود بدون تباعد الاشهر

Dim I As Integer
Dim x As Date

    mySqL = "Select * From tt"
    Debug.Print mySqL

    Set rst = CurrentDb.OpenRecordset(mySqL)

    For I = 1 To Me.t3
        rst.AddNew
        rst!dat = DateAdd("m", [t2], Date)
        rst.Update
    Next

Me.Requery

End Sub

تحياتي

[kanory]

مشاركة مع استاذي محمد

 

tb.accdb

[husamwahab]

مشاركة مع اساتذتي

هو كود استاذي العزيز محمد أبوعبدالله مع بعض التعديل

  

Dim I As Integer
Dim x As Date

    mySqL = "Select * From tt"
    Debug.Print mySqL

    Set rst = CurrentDb.OpenRecordset(mySqL)

    For I = 1 To Me.t3
        rst.AddNew
        rst!dat = DateAdd("m", [t2] * I, Date)
        rst.Update
        rst.MoveNext
    Next

Me.Requery

End Sub

 

[tiger wanted]

مرفق لكم ملف يتم فيه توزيع الشهور حسب رغبة التباعد وعدد مرات التكرار وشكرا للجميع

final.accdb