مشاركة مع الاستاذ قاسم ممكن اختصار الكود الى
Me.Filter = "[id]=" & Me.c_2.Column(0)
Me.FilterOn = True
او كتابته هكذا
DoCmd.ApplyFilter , "[id]=" & Me.cbo1.Column(0)
او بدون الحاجة الى اكواد من خلال وضع معيار في خانة المعرفة في الاستعلام مصدر بيانات النموذج
Like "" & [Forms]![نموذج1]![c_2] & ""
يمكن استخدام النجمة لعرض كافة السجلات قبل التصفية
ويمكن ايضا البحث بدون فلترة وهنا سيتم نقل المؤشر للسجل المطلوب
DoCmd.SearchForRecord acDataForm, "نموذج1", acFirst, "[id]=" & Me.c_2.Column(0)
انا غيرت اسم حقل المعرف الى id لكونه اسهل عند كتابة الاكواد
تحياتي