اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

البحث بمجرد الكتابة مباشرةً (داخل قائمة)


ha98

الردود الموصى بها

السلام عليكم

عندي جدول به حقل مثلا اسم الطالب

اريد ان اعمل نموذج به مربع نص وتحته قائمة بحيث بمجرد كتابة حرف من اسم الطالب في مربع النص يظهر لي في القائمة كل الطلاب الذين اسماؤهم تبدأ بهذا الحرف بحيث بمجرد تغيير الحرف في مربع النص تتغير الاسماء المعروضة في القائمة ( توقعاتي ان الكود يكتب في حدث ال change لمربع النص )

على فكرة انا عملت نفس الحركة هذه ولكن في حدث afterupdate لمربع النص أي ان النتائج تظهر بعد كتابة الحرف وضغط انتر

ولكن ماأريده لم انجح في تحقيقه

تحياتي لكم

تم تعديل بواسطه امير عاطف
  • Thanks 1
رابط هذا التعليق
شارك

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

Private Sub ser_KeyUp(KeyCode As Integer, Shift As Integer)

DoCmd.ApplyFilter , "customer_name like '*" & [Forms]![FormName]![ser] & "*'"

End Sub

حيث يتم كتابة اي اسم او جزء من الاسم للسجل أو مجموعة السجلات للحقل [customer_name] في مربع النص المسمى [ser] داخل النموذج [formname] بحيث يكون مصدر السجل للنموذج [formname] هو الجدول الذي به حقل [customer_name] والذي نقوم بالبحث عنه

ومن الافضل ان تكون طريقة العرض الافتراضية للنموذج هو نماذج مستمرة حتى اذا كتبت مثلاً [حمد] يظهر محمد و احمد وحمد وحمدان

للعلم ... اذهب الى Tools ثم Option ثم Keyboard ثم اسفل الاطار Behaviouring Entering Field علم على الخيار Go To End Of Field

تم تعديل بواسطه امير عاطف
رابط هذا التعليق
شارك

يمكنك وضع اداة List Boxt في النموذج السابق ووضع اسم الحقل الذي تبحث عنه وهو هنا بمثالنا السابق [customer_name] امام الخاصية Control Source للأداة list box بدون اي تغيير بالكود السابق ستؤدي الى نفس النتيجة

رابط هذا التعليق
شارك

الاخ الكريم ha98

قمت بعمل فكرة أخرى لمثال للبحث بمجرد الكتابة مباشرةً وتظهر نتائج البحث بــــ List Box

جرب مثلاً واكتب في مربع البحث (حمد) سوف يظهر احمد ومحمد وحمدان وحمدون وحمد بمجرد كتابة كل حرف

وها هو المثال

Ser_ListBox.zip

تم تعديل بواسطه امير عاطف
رابط هذا التعليق
شارك

زائر
هذا الموضوع مغلق.
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information