المساعدة في اضافة سجلات متعددة

[mmam93]

السلام عليكم

عندي جدول و احتاج اني اضيف سجلات بتواريخ سنة كاملة 

هل ممكن عملة آليا؟

 

وشكرا

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

وعليكم السلام ورحمة الله وبركاته

تفضل اخي الكريم

لاضافة سنة كاملة باليوم

    mySQL = "Select * From tbl1"
    Debug.Print mySQL
    Set rst = CurrentDb.OpenRecordset(mySQL)
    For i = 0 To 364
        rst.AddNew
        rst!txtDate = DateAdd("d", i, txt_From)
        rst.Update
    Next

لاضافة سنة كاملة بالشهر

    mySQL = "Select * From tbl1"
    Debug.Print mySQL
    Set rst = CurrentDb.OpenRecordset(mySQL)
    For i = 0 To 11
        rst.AddNew
        rst!txtDate = DateAdd("m", i, txt_From)
        rst.Update
    Next

db1.rar

تحياتي

[د.كاف يار]

4 ساعات مضت, محمد أبوعبدالله said:

وعليكم السلام ورحمة الله وبركاته

تفضل اخي الكريم

لاضافة سنة كاملة باليوم

    mySQL = "Select * From tbl1"
    Debug.Print mySQL
    Set rst = CurrentDb.OpenRecordset(mySQL)
    For i = 0 To 364
        rst.AddNew
        rst!txtDate = DateAdd("d", i, txt_From)
        rst.Update
    Next

لاضافة سنة كاملة بالشهر

    mySQL = "Select * From tbl1"
    Debug.Print mySQL
    Set rst = CurrentDb.OpenRecordset(mySQL)
    For i = 0 To 11
        rst.AddNew
        rst!txtDate = DateAdd("m", i, txt_From)
        rst.Update
    Next

db1.rar 19.77 kB · 0 تنزيلات

تحياتي

ماشاء الله حل سهل و ذكي و جميل

كنت اود المشاركة لكني لن استطيع تقديم فكرة افضل من هذه

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

اشكرك استاذي الفاضل على كلماتك الرقيقة

دمت لاخيك

تحياتي

[mmam93]

شكرا لكم على سرعة المساعدة