احتاج شرح خطوات هذا العمل فضلا وليس امرا

السلام عليكم 

بعد إذن الاستاذة زهرة اليك هذا الشرح عله يفي بالغرض 

==============================

في البداية تم عمل مصدر البيانات للفورم إستعلام ووضع في معيار الرتبة في الاستعلام هذا السطر 

Like "*" & [forms]![Form]![ComboRank] & "*"

ويقصد به ان يتم الاستعلام عن البيانات في الجدول Table1 على ان تحتوي الرتبة على الكلمة الموجودة في مربع التحرير والسرد المسمى ComboRank في الفورم Form

فاذا كان مصدر البيانات هذا الاستعلام فبمجرد التغيير في مربع التحرير والسر ComboRank سيتم تصفية البيانات بناءً على هذه القيمة المختارة 

وقد تم وضع هذا الكود ي حدث بعد التحديث لمربع التحرير والسرد ComboRank

Private Sub ComboRank_AfterUpdate()Me.RequeryEnd Sub

لتنشيط الفورم وإعادة الاستعلام عن البيانات المصفاة من الاستعلام مصدر البيانات 

================

هذا الكود في زر الامر إعادة البحث

Private Sub CmdRest_Click()
Me.ComboRank = ""
Me.Requery
End Sub

لمسح القيمة في مربع التحرير والسرد وإعادة الاستعلام في الفورم

============

هذا الكود في حدث فتح الفورم 

Private Sub Form_Open(Cancel As Integer)
Me.ComboRank.SetFocus
End Sub

لجعل التركيز في مربع التحرير والسرد 

==================

ان شاء الله ان اكون وفقت في الشرح واي جزئية تريد أنا حاضر حسب الاستطاعة

طيب يالغالي كيف اضافة الاختيارات (الاولى-الثانيه-الثالثه-الرابعه-الخامسه)

لو بغيت اعدلها كيف؟ او بغيت اضيف السابعه -الثامنه ووو الخ؟

وشكرا لك

السلام عليكم 

تظهر هذه القائمة لان مصدر الصف استعلام هذه جملته 

SELECT DISTINCT Table1.sRankFROM Table1;

والدرجات الجديدة التي طلبت بمجرد اضافتها في الجدول Table1 ستظهر ضمن القائمة  ولكي تظهر في الجدول Table1 لابد من إضافتها في الجدول tblRank

والله اعلم

وعليكم السلام

طيب يالغالي كيف اضيف الزياده 7 و8 ووو الخ للي بالجدول؟

ولو بغيت اغير مسمى من الاولى الى 1 والثانيه الى 2 وووو الخ

هل اقدر اضيفها او كيف الطريقه؟

ولو تشرح لي طريقة عمل مثل هالبرنامج من الالف الى الياء من جداول وغيرها اكون لك من الشاكرين

تحملني وانا اخوك توي طازج بعالم الاكسس

والله يجزاك خير

انتظر رد الخبراء

وشكرا

الله يجزاكم خير ياليت تشرحون لي طلبي

وشكرا