اذهب الي المحتوي
أوفيسنا

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

قام بنشر (معدل)

السلام عليكم

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

اريد ان اعمل نموذج به مربع نص وتحته قائمة بحيث بمجرد كتابة حرف من اسم الطالب في مربع النص يظهر لي في القائمة كل الطلاب الذين اسماؤهم تبدأ بهذا الحرف بحيث بمجرد تغيير الحرف في مربع النص تتغير الاسماء المعروضة في القائمة ( توقعاتي ان الكود يكتب في حدث ال 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