كيف يتم البحث في مربع قائمة

اخي الفاضل komaja

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

نصيحه لوجه الله تعالى " عندما تقوم بنقل كود معين تأكد انك نقلته بطريقه صحيحه " وعندما يكتب الكود يكنب بناء على تعليمات معينه .

الان دعنا نرى الاخطاء التي وقعت فيها في الكود وحتى لو قمت بالتجربه 100 مره طالما هناك خطأ في الكود فلن يعمل معك البرنامج

هذا الكود الخاص بك في برنامجك

Private Sub txtSearch_Change()
Dim vSearchString As String
vSearcjStromg = Me.txtSearch.Text
Me.txtSearch2.Value = vSearchString
Me.SearchList.Requery
End Sub

وهذا الكود الاصلي للبرنامج سواء في الشرح في هذه المشاركه او في المثال الخاص بالبحث

Private Sub txtSearch_Change()
Dim vSearchString As String
vSearchString = Me.txtSearch.Text
Me.txtSearch2.Value = vSearchString
Me.SearchList.Requery
End Sub

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

vSearcjStromg

في السطر الثالث

بينما الصحيح هو

vSearchString

عموما هذا ملفك بعد التعديل

test_up.rar

الأخت زهرة ..مشرفة القسم

لقد أخطأت حيث أنني لم أكن أقصد ال ListBox بل ComboBox

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

الاخت الفاضلة / زهرة

خالص تحياتي وجزاكي الله الف خير على مجهوداتك ومتابعتك المستمر وهذا ليس بجديد على اهل الكرم مثل حضرتك لكي مني الدعاء لكي

وللاسرة ولكل اعضاء والف شكر اختي الفاضلة

هشام

1sh.rar

اخي الفاضل

كان لديك خطأ بسيط

حيث انه في الاستعلام قمت بإزالة المعيار عن حقل الرقم

وفي المثال المشروح حقل الرقم هو من ضمن الحقول المختاره والمبتي عليه البحث في النموذج رقم 2 لهذا تم تعديل مثالك مع ما يتناسب مع الحقل " الاسم " NAME

ملاحظة : عندما تقوم بإختيار سجل من مربع القائمة في النموذج رقم 1 اي تضلل على السطر كاملا والضغط عليه فسوف يفتح لك النموذج رقم 2 وسيكون هذا النموذج في حالة تصفية بيانات ولن تستطع اضافة بيانات اليه لأنه في حالة تصفية لهذا وضعت لك زر امر في النموذج في حالة رغبتك بإزالة عامل التصفيه والبدء بإضافة سجل جديد

Ish_UP.rar

بارك الله بك أختي الغالية زهرة .......... نفع الله بك المسلمين

الله يبارك فيك اختي الكريمه زهره

الله يجزاك خير وينفع بعلمك

وبيض الله وجهك

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

الله يبارك فيك اختي الغاليه زهره

الى الاخت الزهرة زهرة محمد

السلام عليكم

إن شاء الله صحة دائمة

اختي العزيزة لقد جربت برنامج تراي ناو

لكني صراحتا لم افهم الكود me.searchlist . requery

حيث اني اعرف انه اذا اردت تنفيذ كود استعلام اذكر اسم الاستعلام للدلالة عليه..

وشكرا

اخي الفاضل iraqieng82

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

me.searchlist . requery

هذا الكود خاص بتحديث مربع القائمة الموجودة في النموذج

me تعبر عن الكائن ( وهو النموذج المفتوح )

searchlist ( هو كائن مربع القائمة في النموذج المفتوح )

requery يطلق عليها تحديث البيانات بدون اعادة اغلاق النموذج ثم فتحه اي يتم التحديث تلقائيا

لهذا يكون تفسير الكود هو : التحديث التلقائي لبيانات مربع القائمة في النموذج المفتوح الحالي ( طبعا الكود لا بد ان يكون في حدث بعد التحديث او في حدث الحالي للنموذج او احيانا للقائمة نفسها عند تغير البيانات

شكرا اخت زهرة على الاجابة

ولكن ما اردت ان اعرفه الية تنفيذ الاستعلام حيث لم نقم باستداعء الاستعلام او حتى ذكر اسم الاستلام

ارجو ان اكون قد وضحت المشكلة

شكرا

مهندس مهند

العراق

اخي الفاضل : المهندس مهند

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

اتمنى ان تعرض النموذج الذي به مربع القائمة في وضع التصميم ثم تختار خصائص مربع القائمة وتتأكد من ان مصدر الصف هو الاستعلام

لهذا عندما نرغب في تحديث هذه القائمة فإننا نشير الى مربع القائمة فقط بإعتبار ان الاستعلام موجود مسبقا ولا يتم استدعاؤه في هذه الحالة لأن مربع القائمة مبني على هذا الاستعلام .

اتمنى ان تكون الصوره اتضحت الآن .

بارك الله فيكي يأخت زهرة على الشرح الوافي

شكرا اخت زهرة على الاجابة

اسف ان كنت اثقل عليك بالاسالة

سادرس الاجابة ان شاء الله

(كلمة إن شاء الله غير صحيحة)

اقتباس

(كلمة إن شاء الله غير صحيحة)

ما هو الخطا في هذه الكلمة

وما هو الصح في نظرك

إقتباس

(كلمة إن شاء الله غير صحيحة)

ما هو الخطا في هذه الكلمة

وما هو الصح في نظرك

==========

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

لكن نلتمس لاخينا العذر

لعله يرد العكس هو الخطاء

-------------

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

فهذه ملاحظه يشكرون عليها القائمين على هذا المنتدى وجزاهم الله خير

وياليت كل المنتديات فيها هذا الخاصيه

الله يجزاك خير

اقصد ان تكون الكلمة متصلة

حيث اني كتبتها بالمشاركة (اي متصلة) لاني اراها في كثير من المنتديات والمواقع العربية

لذا احببت التنويه .

اما بالنسبة للمنتدى فانها بالفعل انه عند كتابتها متصلة يتم فصلها مباشرة ولكني لم انتبه الى هذا الشيء

لذا ارجو ان لاتفهم مشاركتي خطاء

شكرا للاخت زهرة

وبالنسبة للاخ _azizat احمد الله اني مسلم واتقي الله حيثما كنت والله يعلم اني في بلد وفي منطقة بهذا البلد ليس لنا الا الله .

وشكرا للجميع

اخي الفاضل

ان كلمة ( انشاء ) في اللغة العربية هو ما تقوم بإنشاءه اي تصنعه ( انشأ - ينشىء - فهو منشأ )

وطبعا هذه الكلمة تختلف كليا عن كلمة ( ان شاء ) فهي تفيد المشيئة من الله عز وجل اما اذا كانت الكلمة مربوطه مع بعضها ( فأستغفر الله العظيم واتوب اليه ان نقول مثل هذا ) والمسلم دائما مربوط بمشيئة الله تعالى

قال الله تعالى : ( وَلا تَقُولَنَّ لِشَيْءٍ إِنِّي فَاعِلٌ ذَلِكَ غَداً (23) إِلاَّ أَنْ يَشَاءَ اللَّهُ وَاذْكُرْ رَبَّكَ إِذَا نَسِيتَ وَقُلْ عَسَى أَنْ يَهْدِيَنِي رَبِّي لأَقْرَبَ مِنْ هَذَا رَشَداً (24) ) سورة الكهف

وفي الحديث الشريف : ( عن عبادة قال : سمعت رسول الله صلى الله عليه وسلم يقول : " خمس صلوات كتبهن الله عز وجل على العباد ، فمن جاء بهن لم يضيع منهن شيئاً استخفافاً بحقهن كان له عند الله عهد أن يدخله الجنة ، ومن لم يأت بهن فليس له عند الله عهد إن شاء عذبه وإن شاء أدخله الجنة " . ) رواه مالك في الموطأ 1/254-255

الشاهد هنا كلمة ( أَنْ يَشَاءَ اللَّهُ ) و ( إن شاء عذبه وإن شاء أدخله الجنة )

لهذا فقد تم التنبه لهذه الكلمة من كثرة الاخطاء التي يقع فيها كثيرا من الناس وتم تعديلها وحتى لو كتبتها بطريق الخطأ فسوف يقوم المنتدى بتعديلها مباشرة

بارك الله اخي الكريم لما يحب ويرضى

أختي المشرفة الغالية زهر

أدعوك لزيارة موضوعي هنا

وافادتي بما يلزم من البحث

حيث لدي جدول بمعلومات ويضم الاسم ورقم الجوال والعنوان والهوية

وأريد البحث عن المعلومات كل على حدة

فمثلا البحث بالاسم في مربع لوحده

والبحث بالرقم الجوال في مربع لوحده

والبحث برقم الهوية لوحده

والبحث بالعنوان لوحده

يمكن الاطلاع على قاعدة البيانات من هنا

/index.php?showtopic=120212

لدي نموذج بحث وهو شغال بس المشكله لما اكتب الكلمه

لايكتبها كامله انما حرف واحد فقط فما الحل

serach.rar

السلام عليكم

الاخوة الافاضل

المشكلة لدي ان البيانات تتكرر في النموذج الخاص بالبحث

Akar.rar

إلى كل أعضاء المنتدي .. اشكركم جميعا على المجهود العظيم هذا .. ولكن لدي سؤال :

انا فعلت كما قلتم بالضبط ويعمل بصورة ممتازة ولكن أود ان اعرف كيف اجعل searchlist فارغة تماما قبل عملية البحث وتبدأ ان تمتليء بمجرد الكتابة في textbox ولكم جزيل الشكر ..

أخي الفاضل مايكل

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

لحل هذه المشكلة قم بعمل التالي :

1. اعرض النموذج في وضع التصميم

2. اختر مربع النص المخفي txtSearch2 واختر خصائصه ثم ضع في القيمة الإفتراضية هذه الجملة "ادخل كلمة البحث"

3. قم بإنشاء زر أمر جديد وليكن اسمه مثلا "بحث جديد " او ReSearch وضع به هذا الكود

Private Sub ReSearch_Click()
Me.txtSearch2.Value = "ادخل كلمة البحث"
Me.txtSearch.Value = ""
Me.SearchList.Requery
End Sub

4. قم بحفظ ما قمت بعمله

الآن عند فتح النموذج ستجد مربع القائمة SearchList خالي من البيانات وبمجرد ان تبدأ الكتابة في مربع النص txtSearch للبحث عن اي كلمة سوف تظهر لك البيانات بناء على ما تقوم بكتابته .

اذا رغبت في اعادة البحث من جديد اضغط على زر الأمر " بحث جديد "

وهذا المثال بعد التعديل

za_Try_Now_up.rar

بسم الله الرحمن الرحيم

بارك الله فيك اختنا زهرة

مثال رائع ..وفي روعته جمال .... وفي جمالها فائدة عظيمـــة

وشرح .... أجمـــــل من الرائع