دليل تليفونات محتاج لضبط عملية البحث

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

لعل في المرفق ما تريد

وبالتوفيق

koao_tel.zip

الاخ العزيز koao

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

وشكرا لك على تفضلك بالرد

فعلاً ما تفضلت به هو المطلوب

ولو تفضلت بشرح كيفية الاجراء الذى قمت به

نكون لك شاكرين

وجزاك الله خير الجزاء مرة اخرى

أنت تأمر أخي الكريم

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

On Error Resume Next
Forms!tel!compny.SetFocus

السطر الأول من الكود لمنع الخطأ الذي سيظهر وحاولت أن أتلاعب بالكود لمنع الخطأ فلم أتمكن ... ولحيلت العاجز إستخدمته

السطر الثاني خاص بنقل التركيز إلى أي عنصر من عناصر النموذج الرئيسي

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

Dim x As String
    x = Me!tel1!SearchList.ItemData(Me!tel1!SearchList.ListIndex + 1)
    Me!name.SetFocus
    DoCmd.FindRecord x, , True, , True

في السطر الثاني أسندنا اللإسم المحدد في صندوق القائمة للمتغير x وتحقق ذلك بإستخدام الخاصية ItemData والتي تعطينا قيمة مدخل معين في صندوق القائمة بدلالة رقم الفهرس للصف والذي يبدأ بالصفر وبحكم أن القائمة بأعلاها سطر لعنوان رأس العامود..فإن أول إسم في القائمة سيكون فهرسه واحد ... وهكذا يلزمنا أن نلحق رقم الفهرس الذي حدده المستخدم ونقوم بذلك بإستخدام الخاصية ListIndex لصندوق القائمة والتي ترجع صفر لأول صف بعد صف عنوان رأس العامود... لذا أضفنا واحد

السطر الثالث نقل التركيز إلى مربع النص الذي به الإسم

السطر الرابع كود البحث عن سجل معين في النموذج على دلالة المعاملات التي فيها ... وهي تاخذ المعاملات التالية

1- FindWhat = النص الذي يبحث عنه .. وهو مطلوب

2- Match = المطابقة .. وهو إختياري ... وهو يأخذ أحد القيم التالية :

* acAnywhere ... أي شيء في الحقل

* acEntire ....كامل الحقل وهو الإفتراضي في حال تجاهله

* acStart ... بداية الحقل

3- MatchCase = مطابقة حالة الأحرف .. وهو إختياري ... ويأخذ القيمة True أو False وهو الإفتراضي في حالة تجاهله

4- Search = البحث ... وهو إختياري .. ويأخذ أحد القيم التالية :

* acDown... بحث تنازلي

* acSearchAll ....بحث كامل وهو الإفتراضي في حال تجاهله

* acUp ... بحث تصاعدي

5- SearchAsFormatted = بحث بنفس التنسيق ... .. وهو إختياري ... ويأخذ القيمة True أو False وهو الإفتراضي في حالة تجاهله

6- OnlyCurrentField = فقط الحقل الحالي أو الذي عليه التركيز ... وهو إختياري .. ويأخذ أحد القيم التالية :

* acAll... بحث بكل الحقول

* acCurrent ....بحث بالحقل الحالي ... وهو الإفتراضي في حال تجاهله

7- FindFirst = بحث من أول سجل ... .. وهو إختياري ... ويأخذ القيمة True أو False وهو الإفتراضي في حالة تجاهله

وبالتوفيق

الاخ العزيزkoao

جزاك الله خيرا على ما تقدمه من علم نافع

وجعل ما تبذله من مجهود فى ميزان حسناتك يوم القيامة