البحث بجزء من الكلمة أو بحرف فى كومبوبوكس

[Ibrahim_samaha]

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

ولكم جزيل الشكر

 

[Moosak]

تفضل أخي هذي بعض نتائج البحث في المنتدى :

 

 

 

والكثير غيرها ..

 

ستجد مربع البحث أعلى يسار الصفحة في الشريط الأزرق لو شئت التعمق 🙂 

تم تعديل يناير 22, 2022 بواسطه Moosak

[nssj]

وهذا موضوع آخر

هدية بسيطة : البحث بجزء من الكلمة داخل مربع التحرير بمجرد الكتابة comboBox

[Ibrahim_samaha]

والله بحثت ونفذت الافكار فى المواضيع ولكن للاسف دون جدوى
الرجاء المساعدة
وجهازى بنظام 64 bit

تم تعديل يناير 22, 2022 بواسطه Ibrahim_samaha

[أبوبسمله]

23 دقائق مضت, Ibrahim_samaha said:

والله بحثت ونفذت الافكار فى المواضيع ولكن للاسف دون جدوى
الرجاء المساعدة
وجهازى بنظام 64 bit

مشاركه مع اخوانى

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

بالتوفيق

[Ibrahim_samaha]

1 hour ago, الفلاحجى said:

مشاركه مع اخوانى

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

بالتوفيق

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

kids.accdb

[سامي الحداد]

تفضل اخي الكريم

هل هذا هو المطلوب

 

kids.accdb

[Moosak]

إضافة إلى ملف أخي سامي .. وتطبيق خاصية البحث بأي جزء من القائمة المنسدلة ..

ثم إحضار رقم الملف :

هنا الأكواد :

Private Sub Combo0_AfterUpdate()
Me.ReText = Me.Combo0
Me.Combo0.Requery
Me.FileNumTxt = Me.Combo0.Column(1)
End Sub

Private Sub Combo0_Change()
Me.ReText = Me.Combo0
End Sub

Private Sub SearckBtn_Click()
Me.Combo0.SetFocus
Me.Combo0.Requery
Me.Combo0.Dropdown

End Sub

Private Sub ShowAllBtn_Click()
Me.ReText = ""
Me.Combo0.SetFocus
Me.Combo0.Requery
Me.Combo0.Dropdown
End Sub

والملف المرفق :

 

kids (1).accdb

تم تعديل يناير 23, 2022 بواسطه Moosak

[أبوبسمله]

جزاكم الله خيرا اخوانى واساتذتى @سامي الحداد و @Moosak  على مشاركتكم 💐

بالتوفيق اخوانى

[Ibrahim_samaha]

جزاكم الله خيرا على مجهودكم

ولكن لا يعمل البحث بجزء من الكلمة
ولكن باول حرف فقط

وذلك فى ملفكم المرفق ايها الاخوه الكرام

@Moosak@سامي الحداد

 

فما هى المشكلة

انا جربت اكواد كثيرة وكذلك
functions
ولكن لا يعمل هل تكمن المشكلة فى نسخة اوفيس او نسخة الكمبيوتر نفسه؟؟

نسخة اوفيس 2013لدى

[Ibrahim_samaha]

On 1/22/2022 at 8:21 AM, Moosak said:

 

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

تم تعديل يناير 24, 2022 بواسطه Ibrahim_samaha

[Moosak]

جربته على أكثر من نسخة وهو يعمل بشكل جيد ..

ولعل الإخوة يفيدوننا إن كان الملف يعمل معهم أم لا ؟

[moamen salem]

الكود 

[الحساب] = DLookup("[اسم الحساب]", "بحث وادراج", "[اسم الحساب] like'*" & [الحساب] & "*' ")

 

 

تم تعديل يناير 24, 2022 بواسطه jjafferr
عند وضع كود في المشاركة، وحتى يظهر تنسيق الكود بالطريقة الصحيحة، يرجى: إستخدام زر القائمة <> ووضع الكود في النافذة المنبثقة

[أبوبسمله]

9 ساعات مضت, Moosak said:

جربته على أكثر من نسخة وهو يعمل بشكل جيد ..

ولعل الإخوة يفيدوننا إن كان الملف يعمل معهم أم لا ؟

شغال زيه الفل استاذ موسى يمكن هو ماخدش باله من طريقه التشغيل جزاك الله خيرا

عالعموم اضع له طريقه اخى واستاذى العزيز خالد @kha9009lid الغائب عن العين الحضر فالقلب مع جميع اخوانى واخواتى الذيت تعلمت واتعلم منهم كل يوم جزاهم الله عنا كل خير

وهى تصفيه القائمه بمجرد الكتابه بالكمبو

بالتوفيق اخوانى

kids(2).accdb

[Moosak]

منذ ساعه, الفلاحجى said:

عالعموم اضع له طريقه اخى واستاذى العزيز خالد @kha9009lid الغائب عن العين الحضر فالقلب مع جميع اخوانى واخواتى الذيت تعلمت واتعلم منهم كل يوم جزاهم الله عنا كل خير

وهى تصفيه القائمه بمجرد الكتابه بالكمبو

طريقة رائعة جدا وإبداعية في نفس الوقت .. لله دركما 😃🌹

[سامي الحداد]

أسف تاخرت بالرد لانشغالي 

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

بالتوفيق

kids.accdb

[أبوبسمله]

11 ساعات مضت, سامي الحداد said:

أسف تاخرت بالرد لانشغالي 

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

بالتوفيق

kids.accdb 508 kB · 0 downloads

احسنت اخى واستاذى @سامي الحداد بارك الله فيك وجزاك الله كل خيرا

جزاكم الله خيرا اخوانى واساتذتى 💐