ترقيم تلقائي في نموذج فرعي بناء على حقل معين

[Tarekfathallah]

السلام عليكم ارجو المساعدة في ترقيم تلقائي ضمن جدول فرعي بناء على حقل معين اي :

لدينا جدول رئيسي اسمه makassa وجدول فرعي اسمه istimaramakasa  بحاجة الى ترقيم تلقائي في حقل m بناء على حقل n_istimara في جدول makasa

اي اذا كتبت في حقل n_istimara عدد 10 سوف يتم تلقائيا فتح في الجدول الفرعي istimaramakasa حقل m 10 اسطر فقط ولا يمكنني اكثر ويكون الترقيم فيها من 1 الى 10 وهكذا

------------------- للرفع ------------------------

مرفق ربطا قاعدة البيانات

147.rar

[بحار الاكسس]

دقيقة واحدة 

 

اتفضل لو عجبك اضغط LIKE

147.rar

تم تعديل مايو 6, 2016 بواسطه بحار الاكسس

[Tarekfathallah]

مشكور يا استاذ بحار الاكسس ولكنه ليس المطلوب : المطلوب عند كتابة عدد الاستمارات ان يفتح في الجدول الفرعي ISTIMARAMAKASA  عدد اسطر = عدد الاستمارات في حقل N_ISTIMARA

ولك جزيل الشكر

----------------------- للرفع ----------------------------

[كرار صبري _ أبو جنى]

في ٦‏/٥‏/٢٠١٦ at 21:56, tarek_f26180 said:

السلام عليكم

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

 

[Tarekfathallah]

سلمت اخ كرار صبري _ أبو جنى 

وسلمت يداك ولكن اريد التطبيق على برنامجي عندما ادخل معلومة في فورم makasa  حقل bar وانتهي من عملي واصل الى النموذج الفرعي istimaramakasa حقل istimaracode  ما اريده عند ادخال المعلومة في هذا الحقل ان يأخذ تلقائيا في حقل m هو رقم تسلسلي من 1 الى 30 لعدد الاستمارات istimaracode الموجودة والتابعة مباشرة لحقل bar ولك جزيل الشكر

--------------------- للرفع ----------------------------

تم تعديل مايو 8, 2016 بواسطه tarek_f26180

[Tarekfathallah]

سلام عليكم يا اخوة هل من مجيب هل ما اطلبه صعب او لا يمكن تطبيقه في الاكسيس

------------------------ للرفع ----------------------------

[Elsayed Bn Gemy]

Dim sedo As Integer
Dim X
Dim Rs
sedo = Me.n_istimara.Value
Set Rs = CurrentDb.OpenRecordset("istimaramakasa")
For X = 1 To sedo
       Rs.AddNew
              Rs![bar] = Me.[bar].Value
      Rs!m = Nz(DMax("[m]", "istimaramakasa", "bar='" & Me.bar & "'"), 0) + 1
       Rs.Update
       Next
       Rs.Close
Set Rs = Nothing
Me.[istimaramakasa Subform].Requery

اضف هذا الكود فى حدث بعد التحديث لn_istimara فى النموذج الرئيسيى وليس الفرعى

 

تم تعديل مايو 10, 2016 بواسطه السيد جمال السيد

[Tarekfathallah]

شكرا لك اخ السيد جمال السيد ما ظبطت ولم تنفذ معي ممكن تنفذها لي على برنامجي وتجربتها من قبلك وشكرا لك

---------------------------- للرفع ------------------------------

147.rar

[Elsayed Bn Gemy]

اخى الكود يعمل معى  ارسل لنا صورة الخطا الذى يظهر معك

 

[Tarekfathallah]

شكرا لك ولردك اخ السيد جمال السيد رسالة الخطأ مرفقة ربطا

rs.update

وممكن لو سمحت التعديل لي على البرنامج الخاص بي او اذا في تعديل على جدول آخر مثل حقل m

تم تعديل مايو 12, 2016 بواسطه tarek_f26180

[Elsayed Bn Gemy]

اخى الكريم الكود السابق يغنيك عن العلاقة بين الجدولين علاقة الراس بالاطراف

ازل العلاقة بي الجدولين

[Tarekfathallah]

شكرا لك يا اخي ولك فائق الشكر واحتراماتي لك