البحث عن سجل في نموذج فرعي و نقل التركيز إليه

[صالح حمادي]

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

لقد لفت إنتباهي عند تصفح المنتدى مجموعة أسئلة تدور حول نقل التركيز إلى سجلات نموذج فرعي. و استخدام أكواد طويلة بعض الشيء لحل هذه المشكلة.

فقررت أن أكتب هذا الموضوع لأضع الطريقة التي استخدمها فهي قصيرة و سريعة

أولا: الانتقال إلى سجل معين حسب ترتيبه 

نستخدم هذا الكود

Me.sub1.SetFocus
DoCmd.GoToRecord , , acGoTo, Me.txt2

بحيث sub1 هو اسم النموذج الفرعي و txt2 هو اسم مربع النص الذي نكتب فيه رقم ترتيب السجل

أولا: الانتقال إلى سجل معين من خلال البحث عن اسمه

نستخدم هذا الكود

Me.sub1.SetFocus
DoCmd.SearchForRecord , , acFirst, "[first_name]='" & Me.txt & "'" 

txt هو المربع الذي نستخدمه للبحث

الانتقال الى سجل فرعي.accdb

[الحلبي]

جميل جدا ورائع بارك الله فيك 

[m.r]

مشكور اخي صالح حمادي

[صالح حمادي]

7 ساعات مضت, حلبي said:

جميل جدا ورائع بارك الله فيك 

 

11 دقائق مضت, m.r said:

مشكور اخي صالح حمادي

شكرا جزيلا إخوتي على المرور الطيب