البحث في الكومبو بوكس يخاصية drop down

[محمدنجار]

الاخوه اعضاء المنتدى المحترمون .... اسعد الله اوقاتكم

في المرفق Sample كومبو بوكس  يفرز ويبحث في قائمته عند الكتابة بخاصية  drop down  حسب الحرف الاول من الكلمة . (جاهز)

اما المرفق  dropdown  فقد عملته على شاكلة المثال  Example لكنه تعطي خطأ  ولا اعرف السبب ..

ان أمكن تصحيح الخطا وتعريفنا به .... مع تمنياتي للجميع بالنجاح .

 

dropdown.rar

Sample.rar

[AlwaZeeR]

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

 

 

waz-dropdown.rar

[محمدنجار]

5 ساعات مضت, alwazeer said:

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

waz-dropdown.rar

أجسنت أخي الكريم .. اجابة مثالية .. انا ممتن لك..... ممكن اعرف اين كان الخطا كي استطيع تطبيق المثال هل هو فقط في Txt ؟

تم تعديل يونيو 30, 2016 بواسطه محمدنجار

[AlwaZeeR]

حياك الله اخي الكريم

الحقل (Txt) لم يكن موجوداً وكان ناقصاً.

 

[محمدنجار]

اخي الكريم السلام عليكم

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

والسؤال كيف يتم تفريغ Txt بعد الاختيار وعند الذهاب الى سجل جديد في النموذج المستمر ؟

مع خالص شكري

 

تم تعديل يونيو 30, 2016 بواسطه محمدنجار

[AlwaZeeR]

3 ساعات مضت, محمدنجار said:

اخي الكريم السلام عليكم

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

والسؤال كيف يتم تفريغ Txt بعد الاختيار وعند الذهاب الى سجل جديد في النموذج المستمر ؟

مع خالص شكري

 

ضع بعد (cbo1.SetFocus)

txt = ""

في حدث عند التغيير أو في حدث بعد التحديث

[محمدنجار]

اخي الكريم الوزير .... أسعد الله اوقاتك

اسف لتاخري في الرد واطلاعك  النتائج فقد كنت ابحث واحاول ايجاد الحل .... لكني لم افلح !؟

في المرفق الكومبو group يقوم بتصفية الكومبو  food ... حاولت تطبيق خاصية dropdown على الكومبو food . وحسب توجيهاتك .

لكن النتائج لم تكن مُرضية.. حيث تتوقف التصفية بعد اختيار السجل الاول ..المهم المثال يوضح اكثر ... طلبي هو جمع التصفية مع خاصية dropdown

ولك مني اطيب الامنيات بالنجاح .

Dropdown (2).rar

Dropdown (2) 2003.rar

تم تعديل يوليو 2, 2016 بواسطه محمدنجار

[AlwaZeeR]

Private Sub food_Change()
Me.Txt = Me.food.Text
Txt.SetFocus
'food.Requery
food.SetFocus
Txt = ""
End Sub

حياك الله اخي محمد

اوقف التحديث في حدث عند التغيير للكومبو Food

 

 

[محمدنجار]

1 ساعه مضت, alwazeer said:

Private Sub food_Change()
Me.Txt = Me.food.Text
Txt.SetFocus
'food.Requery
food.SetFocus
Txt = ""
End Sub

حياك الله اخي محمد

اوقف التحديث في حدث عند التغيير للكومبو Food

 

 

جواب شافي ووافي ... احسنت اخي العزيز ... بارك الله بعمرك ومن تحب .

[AlwaZeeR]

العفو اخي الكريم

::

تحياتي