حبايبي السلام عليكم هذي اول مشاركه لي
انا حملت برنامج الاقساط اللي نزلته المشرفه زهره وحاولت اعدل في الكود بس
ماضبط معاي لاني جديد في الاكسس وكنت اعتقد الامر بسيط لكن خيرها في غيرها
والجايات اكثر زي ما يقولون
حبايبي بنظره على الامر اللي في الفورم هذا
DoCmd.GoToRecord , , acFirst
For i = 1 To Forms![f1]![NO]
Me.aa = Forms![f1]![bb]
Me.dd = DateAdd("m", i, Forms![f1]![Date])
Me.cc = Forms![f1]![nn]
Me.ss = Forms![f1]![kk]
DoCmd.GoToRecord , , acNext
Next
DoCmd.Requeryراح تشوفون ان الرقم واحد يزيد شهر واحد .. انا بدي يزيد اكثر من شهر مثلا يزيد سته شهر
انا بدلت الرقم واحد بالرقم سته بس ما ضبط وتعطل الامر نهائي كذا يعني سويت
DoCmd.GoToRecord , , acFirst
For i = 6 To Forms![f1]![NO]
Me.aa = Forms![f1]![bb]
Me.dd = DateAdd("m", i, Forms![f1]![Date])
Me.cc = Forms![f1]![nn]
Me.ss = Forms![f1]![kk]
DoCmd.GoToRecord , , acNext
Next
DoCmd.Requeryالتغيير هون
For i = 6 To Forms![f1]![NO]
ياليت حدى بيساعدني على التعديل بكون ممنون له كثير كثير .
وشكرا
