*استعلام* سؤال عن استعلام بالاسم او جزء منه

للاستستعلام بحرف أو جزء من الاسم

انشئ استعلام

وفي خانة الحقل أدخل التالي:

([الاسم];[ادخل الاسم او جزء منه])Expr1: InStr

وفي خانة الفرز أكتب

تصاعدي

وفي خانة معايير أكتب

صواب

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

تحياتي ...............

Max

طريقة جميلة

و هذه أخري

فى خانة المعايير cRITERIA

لحقل الاسم ضع الجملة الآتية

Like "*" & [ENTER NAME] & "*"

و يمكنك اختيار الفرز أم لا كما تريد

شكرا لردودكم..ولكن..

بالنسبة للطريقة الأولى فلم تنجح وكان تظهر رسالة بأن اسم exp غير صالح ،، مع العلم بأنني وضعت العبارة المذكورة في الحقل الخاص بالاسم مما يلغي الحقل الاساسي وهو الاسم ولا أعلم الخطأ الموجود..

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

وشكرا

بالنسبة للطريقة الثانية

ان كنت تريد ادخال بداية الاسم فقط فاكتب

Like [ENTER NAME] & "*"

بالنسبة لطريقة الاخ ماكس

فهي تعمل بنجاح

EXP1: InStr([NAME];[ENTER NAME OR PART])

طريقة أخرى للفائدة

في صف معايير تحت أي حقل تريد البحث فيه في الاستعلام أكتب التالي:

Like Chr(42) & [بحث بالاسم أو أي حرف منه] & Chr(42)

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

ثم جرب

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

ولدي سؤال متعلق بالموضوع وهو هل بالامكان أن تظهر رسالة تفيد بعدم وجود أسماء تبدأ بالحرف المدخل؟؟

وشكرا

(f)

أعتقد أن الرسالة فى حالة عدم وجود بيانات فى الاستعلام غير ممكنة

و لكن فى التقرير أو الفورم المبنية عليه ممكن

أم أنت مصر علي الرسالة فى الاستعلام

كيف الطريقة اذا ممكن مع اعتبار أنني سأقوم بعمل نموذج مبني على هذا الاستعلام ..وشكرا

فى حدث عند الفتح للفورم

أو عند أي حدث مناسب للتصميم

فى حالة البيانات فى فورم فرعي
If Forms![FORMNAME]![SUBFORMNAME].Form.RecordsetClone.RecordCount = 0 Then
   MsgBox "لا يوجد بيانات", vbCritical, "رسالة تحذير"
   Cancel = True
   SendKeys "{ESC}"
   Exit Sub
End If


فى حالة البيانات فى فورم رئيسي
If Forms![FORMNAME].Form.RecordsetClone.RecordCount = 0 Then
   MsgBox "لا يوجد بيانات", vbCritical, "رسالة تحذير"
   Cancel = True
   SendKeys "{ESC}"
   Exit Sub
End If

أخي العزيز / طريقة جيدة ولكن عند ضغط موافق بدون إدخال أي حرف تظهر جميع الأسماء ،، فهل يمكن ظهور رسالة بأنه لا توجد بيانات في هذه الحالة ،، وشكرا

لماذا لاتضعون مثال يوضح الكود فتكون الأمثلة موثقة ولاتحتاج لتأويل مارأيكم ؟

الاخ محسن ثبت بالتجربة أن الامثلة تفقد أما صفحات المنتدي فلها نسخ احتياطية

و لا مانع من الامثلة (عند الحاجة طبعا ) و لكن الاهم هو أن ننشر و نكتب التفاصيل

فضلا عن أن الفائدة تكون اكبر بالتجربة ، أما المثال الجاهز ، ففي رأي أنه آخر حل و مكانه عندما يكون الموضوع معقد أو يصعب شرحه

لأن الاطلاع علي مثال غير عمله ، و حينما يكون الموضوع مختصر فمن الأفضل الاكتفاء بطريقة الحل توفيرا لوقت السائل و المجيب

أما ان تعذر ايصال المطلوب ، فليس أمامنا الا آخر حل ( المثال )

أيضا الكتابة مباشرة فى رأيي ثراء أكثر للمنتدي من ناحية التصفح لاحقا من قبل أعضاء جدد

فأنتهز هذه الفرصة لأرجو من جميع الاخوة ان لا يهملوا شرح الحل أو وضع الكود اعتمادا علي وجود المثال

و أما لا أقلل من أهمية الامثلة ، و لكن أؤؤكد علي ام الشرح أو نشر الكود يأتي فى المرتبة الاولي

و هذه مجرد وجهة نظر تقبل الخطأو الصواب

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

و أنذكر مقولة لأحد الاخوة فى المنتدي (رمضان غالبا) و هي :

" من اراد الوصول الي المنبع فعليه تعلم السباحة ضد التيار"

و ما يأتي بسهولة من معلومة يفقد بسهولة

أشعر بأنني أسهبت أكثر من اللازم ، فعذرا

فانا من فترة أردت الكتابة فى هذا الموضوع و لم أجد فرصة

(كفاية بقي ;) ;) ;) )

أما عن السؤال الاصلي فهذا يتوقف علي تصميم القاعدة فهلا نشرت الفورم أو و صفت لنا أكثر

مثلا أنت فى فورم يسمي فورم 1 و تريد عمل ...و تريد أن تظهر شاشة الادخال قبل ..

كل يوم يزداد إعجابي بمشرفنا الهمام وفقك الله لما يحبه ويرضاه :o

شكرا علي سعة الصدر

و الصبر علي قراءة المشاركة الطويلة