mmam93 قام بنشر سبتمبر 13, 2020 مشاركة قام بنشر سبتمبر 13, 2020 السلام عليكم عندي جدول و احتاج اني اضيف سجلات بتواريخ سنة كاملة هل ممكن عملة آليا؟ وشكرا رابط هذا التعليق شارك More sharing options...
محمد أبوعبدالله قام بنشر سبتمبر 13, 2020 مشاركة قام بنشر سبتمبر 13, 2020 وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم لاضافة سنة كاملة باليوم 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 تحياتي 1 رابط هذا التعليق شارك More sharing options...
د.كاف يار قام بنشر سبتمبر 14, 2020 مشاركة قام بنشر سبتمبر 14, 2020 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 تنزيلات تحياتي ماشاء الله حل سهل و ذكي و جميل كنت اود المشاركة لكني لن استطيع تقديم فكرة افضل من هذه 1 رابط هذا التعليق شارك More sharing options...
محمد أبوعبدالله قام بنشر سبتمبر 14, 2020 مشاركة قام بنشر سبتمبر 14, 2020 اشكرك استاذي الفاضل على كلماتك الرقيقة دمت لاخيك تحياتي رابط هذا التعليق شارك More sharing options...
mmam93 قام بنشر سبتمبر 14, 2020 الكاتب مشاركة قام بنشر سبتمبر 14, 2020 شكرا لكم على سرعة المساعدة رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.