أرجو التعديل على المرفق - البحث بالاسم لا يعمل

UP UP UP

ممكن استخدام  QBE

هل المثال لا يمكن تعديله من الاعضاء ام ان هناك خطأ ما

اخي محمد

كل اللي تحتاج له هو هذا الكود في الحدث بعد تحديث Combo6:

Private Sub Combo6_AfterUpdate()

If Me.Etar = 1 Then
'ID is a number
Me.Recordset.FindFirst "[id] = " & Me.Combo6.Column(1)
Else
'Name is text
Me.Recordset.FindFirst "[Name] = '" & Me.Combo6.Column(0) & "'"
End If

End Sub

ورجاء إمسح كل الكود الآخر ، لأنه يعترض ويغير المطلوب.

جعفر

26.Search.mdb.zip

شكرا جزيلا اخى الكريم  ولكن ليس هذا ما اريده فكما ترى ان مربع التحرير والسرد يقوم بفلترة الاسماء وال id بمجرد الكتابة عند الاختيار من id او البحث بالاسم وهذا مفيد مع تزايد عدد الاسماء بصورة كبيرة والا لماذا اقوم بالبحث

مازلت في انتظار المساعدة

أخي البرنامج يعمل البحث عن طريق اﻻسم كذلك :)

اذا اللي انا عملته ليس ما تريد ، فاعطني مثال لوسمحت للذي تريده.

شكرا

جعفر

انت قلت: "وهنا المشكلة فعند اختيار البحث عن طريق الاسم يتعامل مربع التحرير والسرد مع الاسماء ولكن لا يعطينى بيانات العميل"

وانا جعلت البحث يعمل :)

جعفر

اوﻻ آختار البحث بال id او اﻻسم

ثم اختار اﻻسم او id

شكرا اخى على اهتمامك ومساعدتك والمشكلة لا تكمن في فلترة الاسماء

جرب المثال اخى واختر البحث بال id وجرب اكتب مثلا 3

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

وهنا لا توجد مشكلة

ولكن جرب الان البحث بالاسم وجرب اكتب اسم العميل IBRAHIM سوف تجد ان مربع التحرير والسرد يقوم بفلترة الاسماء بالفعل ولكن لا يعطيك في النهاية بيانات العميل IBRAHIM ولا في النموذج الفرعى او النموذج الرئيسى كالذى حدث في طريقة ال  id فالبيانات ثابته لا تتحرك او تعطينى بيانات العميل IBRAHIM

اعتقد ان المشكلة وضحت الان اخى الكريم

بالإضافة الى الكود السابق ، يجب عليك تفعيل احد الخاصيات للـ Combo6 وتجعلها نعم:

جعفر

بعد إدخالك الاسم ، اضغط على زر الكيبورد TAB حتى تكتمل عملية الادخال

26.Search.mdb.zip

اخ جعفر بارك الله فيك ولكن للاسف لم تعمل معى لا اعلم لماذا

اخ ابو شفيق جزاك الله كل خير وشكرا لك على مشاركتك الرائعه وهذا بالفعل ما أردته

بارك الله فيكم ايها الاخوه الكرام وجزاكم الله كل خير

السلام عليكم

اخي محمد

شرحت في المشاركة طريقة علمها

كل ما تحتاجه

هو ان تنقل الوحدة النمطية الى برنامج وتبقيها بذات الاسم السابقة ممكن ذلك بطريقتي

الاولى ان تفتح برنامج وتفتح الملحق بالرسالة بذات الوقت وتمعل copy للوحدة النمطية وتذهب الى برنامج وتعمل لصق paste

او ان تحرر الوحدة النمطية من ملفها مباشرة ثم تؤشر جميع الكودات التي في الوحدة المنطية وتعمل عليها copy ثم تذهب الى برنامجك

وتفتح وحدة نمطية جديدة وتلصق paste الكود الذي نقلته من الوحدة النمطية في ملف الملحق وتسم الوحدة النمطية بـ(FindAsUType)

ثم تنقل من الحقلين من الفورم وتلصقها في الفورم تبعك وبعدها اعمل عرض الفورم

راح تجدها شغالة تمام زي الورد.

سألحق بالمشاركة الاصلية ملف يعمل على 2003

تحياتي

تفضل اخ

ملفك جاهز والبحث شغال

تحياتي

Search.rar

اخ salit ملفك يعمل بصورة جيدة جدا وهو فكرة جديده رائعه سوف استفيد منها كثيرا

بارك الله فيك اخى الكريم