tiger wanted قام بنشر يوليو 8, 2020 مشاركة قام بنشر يوليو 8, 2020 بسم الله الرحمن الرحيم مرسل لكم ملف اريد تطبيق الزيادة الشهرية باستخدام for next ولكن الكود لا يعمل بالشكل المطلوب ولكم جزيل الشكر والتقدير tb.accdb رابط هذا التعليق شارك More sharing options...
محمد أبوعبدالله قام بنشر يوليو 8, 2020 مشاركة قام بنشر يوليو 8, 2020 السلام عليكم استخدم الكود التالي 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 تحياتي رابط هذا التعليق شارك More sharing options...
tiger wanted قام بنشر يوليو 8, 2020 الكاتب مشاركة قام بنشر يوليو 8, 2020 اشكرك ولكن بعد تنفيذ الكود يظهر هذا الناتج المرفق وشكرا رابط هذا التعليق شارك More sharing options...
محمد أبوعبدالله قام بنشر يوليو 8, 2020 مشاركة قام بنشر يوليو 8, 2020 (معدل) قم بتعديل الكود التالي 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 بواسطه محمد أبوعبدالله اضافة المرفق رابط هذا التعليق شارك More sharing options...
tiger wanted قام بنشر يوليو 8, 2020 الكاتب مشاركة قام بنشر يوليو 8, 2020 اشكرك يا اخى ولكن ما اطلبه هو زيادة شهرية مثل 1/1/2020 الثانى 1/2/2020 واشكرك على الرد وان وجدت الحل فبرجاء الارسال وشكرا رابط هذا التعليق شارك More sharing options...
محمد أبوعبدالله قام بنشر يوليو 8, 2020 مشاركة قام بنشر يوليو 8, 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 تحياتي 2 رابط هذا التعليق شارك More sharing options...
kanory قام بنشر يوليو 8, 2020 مشاركة قام بنشر يوليو 8, 2020 مشاركة مع استاذي محمد tb.accdb 5 رابط هذا التعليق شارك More sharing options...
husamwahab قام بنشر يوليو 8, 2020 مشاركة قام بنشر يوليو 8, 2020 مشاركة مع اساتذتي هو كود استاذي العزيز محمد أبوعبدالله مع بعض التعديل 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 2 رابط هذا التعليق شارك More sharing options...
tiger wanted قام بنشر يوليو 9, 2020 الكاتب مشاركة قام بنشر يوليو 9, 2020 مرفق لكم ملف يتم فيه توزيع الشهور حسب رغبة التباعد وعدد مرات التكرار وشكرا للجميع final.accdb رابط هذا التعليق شارك 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.