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

[Ibrahim_samaha]

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

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

 

[Moosak]

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

 

 

 

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

 

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

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

[nssj]

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

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

[Ibrahim_samaha]

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

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

[أبوبسمله]

  في 22‏/1‏/2022 at 21:29, Ibrahim_samaha said:

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

Expand  

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

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

بالتوفيق

[Ibrahim_samaha]

  في 22‏/1‏/2022 at 21:53, الفلاحجى said:

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

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

بالتوفيق

Expand  

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

kids.accdbFetching info...

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

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

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

 

kids.accdbFetching info...

[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).accdbFetching info...

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

[أبوبسمله]

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

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

[Ibrahim_samaha]

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

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

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

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

 

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

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

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

[Ibrahim_samaha]

  في 22‏/1‏/2022 at 06:21, Moosak said:

 

Expand  

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

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

[Moosak]

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

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

[moamen salem]

الكود 

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

 

 

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

[أبوبسمله]

  في 24‏/1‏/2022 at 06:49, Moosak said:

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

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

Expand  

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

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

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

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

kids(2).accdbFetching info...

[Moosak]

  في 24‏/1‏/2022 at 16:42, الفلاحجى said:

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

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

Expand  

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

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

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

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

بالتوفيق

kids.accdbFetching info...

[أبوبسمله]

  في 25‏/1‏/2022 at 05:10, سامي الحداد said:

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

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

بالتوفيق

kids.accdb 508 kB · 0 downloads

Expand  

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

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