الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

مساعدة على تعديل كود يوجد ملف للتعديل

بدأه mrastra في 29 مارس 2016 · 2 رد · 232 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم

ارجو التكرم بالمساعدة فى تعديل الكود المرفق 

المطلوب 

بعد تحديث خانه عدد السجلات قى النموذج يبدا العدد من جديد ..... من اول الرقم 1

ثانيا عند الوصول الى شهر 11 تبدا سنه جديدة بعد السنه الحاليه 

ملحوظة :-

الشهر ليس ثابت البداية وانما ممكن يكون 1 او  3 او 5 او 7 او 9 او 11

المهم العدد يبدا من " ابتداء من شهر " ويوصل الى العدد 11 ثم يبدا من الرقم 1 قم 3 ثم 5 ثم 7 ثم 9 ثم 11 وحينها تبدا سنه تالية يعنى لو السنه كانت 2007 يبقى ابتداء من شهر 1 تكون السنه 2008 وهكذا 

اسف للاطالة 

الملف فى المرفقات

#2

لماذا لا يمكننى ارفاق ملفات

#3

طيب الكود كالتالى  

Private Sub num_AfterUpdate()
Dim i  As Integer
DoCmd.SetWarnings False
DoCmd.RunSQL "delete * from tb_sub where eshterak_id = " & Me.eshterak_id & ";"
Do Until DLast("[month_date]", "[tb_sub]") = 11
For i = 1 To Me.num
DoCmd.RunSQL " insert into tb_sub (eshterak_id ,month_date,year_date) values ( " & Me.eshterak_id & "," & Me.fr * i & "," & Me.ye & ")"
Next i
Me.frm_sub.Requery
DoCmd.SetWarnings True
End Sub

مواضيع مشابهة