شرح طريقة البحث

[مهند1000]

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

شكرا لكم يا اخوتي


مهند1000

db1.rar

[منذر عساج]

اخي الكرم

اليك التعديلات التي طلبتها

يمكنك البحث عبر السم - الحالة الإجتماعية - القسم - الوصف

يمكن البحث بجميع الخيارات أو بأحدها على الأقل

db1.rar

[مهند1000]

السلام عليكم........

شكرا لك مرة اخرى يا استاذ منذر على الاطلاع للموضوع فعلا هذا ما قصدته ولكن عندي طلبان لك اذا بتعمل مهروف:

1- أريد منك ان تعلمنا كيفية بناء هذا البحث بالتفصيل لأني عندي عدة جداول أريد عمل البحث لها

2- اذا ممكن كيف نلغي التعديل على النتائج الظاهرة بحث المستخدم لا يستطيع التعديل على نتائج البحث

شكر

مهند1000

[Her]

شكراً للاخ مهند اللذي طرح السؤال

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

اتمنى من مشرفنا الغالي مايبخل علينا بما علمه رب العزه والجلال

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

وشكراً

[منذر عساج]

حباً وكرامة أخي الكريم

في المثال أعلاه لدينا عدد من الحقول التي نرغب البحث من خلالها ( شاهد حدث عند النقر للزر بحث)
1- الاسم
الكود الخاص بالبحث بالأسم هو

كود

 

   If Not IsNull(Me.txtFilterMainName) Then
        strWhere = strWhere & "([اسم الموظف] Like ""*" & Me.txtFilterMainName & "*"") AND "
    End If

والترجمة للكود هي أذا كان حقل مربع النص txtFilterMainName على النموذج غي فارغ فإن النتيجة هي فلترة الجدول عبر الحقل (اسم الموظف ) بما يطابق مربع النص على النموذج txtFilterMainName

2-الحالة الإجتماعية

كود

      

  If Not IsNull(Me.cboFilterIsCorporate) Then
        strWhere = strWhere & "([رقم الحالة] = " & Me.cboFilterIsCorporate & ") AND "
    End If

cboFilterIsCorporate اسم مربع النص على النموذج
(رقم الحالة ) الحقل المكافئ له في الجدول .

3- الوصف الوظيفي

كود

  

  If Not IsNull(Me.cboFilterIsCorporate1) Then
        strWhere = strWhere & "([رقم الوصف] = " & Me.cboFilterIsCorporate1 & ") AND "
    End If

cboFilterIsCorporate1 اسم مربع النص على النموذج
(رقم الوصف) الحقل المكافئ له في الجدول

4-القسم

كود

   

 If Not IsNull(Me.cboFilterIsCorporate2) Then
        strWhere = strWhere & "([رقم القسم] = " & Me.cboFilterIsCorporate2 & ") AND "
    End If

cboFilterIsCorporate2 اسم مربع النص على النموذج
(رقم القسم) الحقل المكافئ له في الجدول

[Her]

احبك الله مشرفنا العزيز

جعل الله ماقدمت في موازين حسناتك ونفع بك المؤمنين

اشكرك على سرعة الرد

واستميحك العذر على تاخري بلاجابه

ولاكني لم افهم شي مماشرحت

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

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

وشكراً

[Her]

مرحباً

هذا ما استطعت التوصل اليه من طرق البحث

وشكراً

Axx.rar

[نرجس الورد]

السلام عليكم

شكرا لك أخي الكريم مهند 1000 على موضوعك .. وشكرا لمشرفنا الفاضل منذر عساج

في هذا الجزء (رقم 1) من كل كود :

كود

If Not IsNull(Me.txtFilterMainName) Then

 

تقوم باستبدال : txtFilterMainName باسم المربع الذي تريده للبحث

وفي الجزء التالي (رقم 2) من كل كود :

كود

strWhere = strWhere & "([اسم الموظف] Like ""*" & Me.txtFilterMainName & "*"") AND "

 

تقوم باستبدال : اسم الموظف .. باسم الحقل الذي تريد البحث فيه في الجدول الأصلي

وفي نفس الجزء تقوم باستبدال : txtFilterMainName بنفس مربع البحث الذي تريده للبحث .. أي سيتكرر هذا الاسم في هذا الجزء مع الاسم في الجزء الأعلى (رقم 1) . .

أما بالنسبة للعلامة : ""*" .. فهي للبحث بجزء من الاسم

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

كود

lngLen = Len(strWhere) - 5
    If lngLen <= 0 Then
        MsgBox "&iacute;&Igrave;&Egrave; &Ecirc;&Iacute;&Iuml;&iacute;&Iuml; &Atilde;&Iacute;&Iuml; &Ccedil;&aacute;&Icirc;&iacute;&Ccedil;&Ntilde;&Ccedil;&Ecirc; ", vbInformation, "&Icirc;&iacute;&Ccedil;&Ntilde;&Ccedil;&Ecirc; &Ccedil;&aacute;&Egrave;&Iacute;&Euml; &Yacute;&Ccedil;&Ntilde;&Ucirc;&Eacute;."
    Else
        strWhere = Left$(strWhere, lngLen)
        Me.Filter = strWhere
        Me.FilterOn = True
    End If

وللدقة فالجزء الذي واجهتني المشكلة فيه هو

كود

lngLen = Len(strWhere) - 5
   If lngLen <= 0 Then

أرجو أن يتحفنا الأخ منذر عساج بمزيد من علمه وبحر معلوماته

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

Ser11.rar

تم تعديل أبريل 5, 2014 بواسطه أبا عمر

[منذر عساج]

أختي الكريمة /نرجس الورد

شكراً لك على الشرح الوافي

بالنسبة لمثالك كان لديك ثلاثة أخطاء

1) وجود جملة end sub زائدة في الكود

2) تسمية مربع النص الخاص بالبحث بالإسم تختلف عن ما هو موجود في الكود فعلى النموذج (نص8) وفي الكود (name)

3) بالنسبة لأضهار مربع التحرير والسرد (الوظيفة) فارغاً قومي بإزالة مصدر عنصر التحكم لهذا الحقل (job)

ومن الأفضل تسمية الحقول ومربعات النص بالإنجليزية لسهولة الإستخدام

Ser11.rar

[منذر عساج]

بالنسبة للأخ / Her

فالمسألة بسيطة جدا

1) قم بأنشاء نموذج ويفضل أن يكون مجدول لمشاهدة كافة النتائج .

2) قم بنسخ مربعات النص وزر بحث وإلغاء البحث من مثالي الأول الى نموذجك

3) قم بنسخ جزء من الكود فقط والخاص بالبحث عبر الاسم ورقم الهاتف

4) طابق الاسماء بين مربعات النص وما هو موجود في الكود .

واليك التعديل

Axx.rar

[Her]

السلام عليكم

كل الشكر لك مشرفنا العزيز على ماتفضلت به من شرح

اتعبتك معاي ولاكني لم استفد شئ ..

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

اشكرك على التعديل

دمتم بود

[نرجس الورد]

السلام عليكم

كل عام وأنتم بخير

أخي المشرف الفاضل منذر عساج

في البحث عن الاسم وضعت مربع نص عادي

ماذا لو أردنا جعل مصدر لهذا المربع فجعلنا مصدره هو "اسم الموظف" من جدول الموظفين

لقد قمت بعمل هذا المثال ولم ينجح معي ؟

كما أنه يظهر رسالة : لا يمكن تحديد قيمة لهذا الكائن ؟

أرجو افادتي بالحل لهذه المشكلة

Ser12.rar

تم تعديل ديسمبر 18, 2007 بواسطه نرجس الورد

[محب العلم]

نرجس ،

تم التعديل المطلوب

Ser12v1.rar

تحياتي

تم تعديل ديسمبر 18, 2007 بواسطه محب العلم

[نرجس الورد]

نرجس ،

تم التعديل المطلوب

Ser12v1.rar

تحياتي

شكراااا لك أخي الفاضل محب العلم

ولكن ماهو التعديل الذي قمت به ؟

هل قمت بتغيير نوع المربع إلى مربع تحرير وسرد ؟ ثم قمت بتحديد المصدر ؟

أم فعلت شيء آخر أيضاً ؟

والطريقة التي أستخدمها هي وضع الأكواد لكل مربع بحث في حدث : بعد التحديث

وجميع هذه المربعات تعمل معي في البحث ما عدا مربع البحث بالاسم عندما أجعله مربع تحرير وسرد تفشل عملية البحث منه ؟

تم تعديل ديسمبر 18, 2007 بواسطه نرجس الورد

[محب العلم]

احسنت يا نرجس ،

هل قمت بتغيير نوع المربع إلى مربع تحرير وسرد ؟ ثم قمت بتحديد المصدر ؟

تحياتي

[نرجس الورد]

أخي الفاضل محب العلم

نفس الطريقة قمت بها في نماذجي ولكن تظهر لي رسالة بالخطأ كالتالي

هذه الرسالة تظهر فقط في الاسم لمربع التحرير والسرد أما عندما يكون رقم فلا أواجه مشكلة مع هذه الرسالة !!

[نرجس الورد]

مرفق مثال لمشكلتي

في هذا المثال حقل البحث بالاسم لا يعمل وفي بعض النماذج لدي يقوم بإظهار الرسالة السابقة !

مصدر البحث في الاسم هو حقل تجميعي في الاستعلام من نوع :

كود

FullName: [Name] & " " & [Father] & " " & [Family]

 

Ser13.rar

تم تعديل أبريل 5, 2014 بواسطه أبا عمر

[محب العلم]

نرجس،

المشكلة حدثت لأنك أدخلت في المصدر للأسماء الرقم مرة أخرى، تم حذف الرقم وإبقاء الأسم

التعديل : Ser13update.rar

تحياتي

[نرجس الورد]

شكرا جزيلا لك أخي الكريم محب العلم

تم حل المشكلة جزاك الله خيرا ورزق حلالا

[نرجس الورد]

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

كل عام وأنتم وأسعد الله مساءكم وأيامكم

أستاذي الفاضل محب العلم

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

وللأسف كانت المشكلة في استخدام الحقل الثاني للغة العربية ( القسم / Department_Ar ) حيث أنها في جدول منفصل لمنع التكرار . . ولا يمكن البحث منه بهذه الطريقة !!

ولتعرف مشكلتي أكثر أدرج لك قاعدة البيانات كاملة

My_Dictionary.rar

تم تعديل ديسمبر 20, 2007 بواسطه نرجس الورد

[محب العلم]

نرجس ،

اعتقد ان المشكلة قد حلت

تحياتي

[نرجس الورد]

أخي الكريم محب العلم ساعدك الله

المشكلة في مربع البحث : ( القسم ) العربي لا زالت قائمة !! . . تأكد أخي الكريم زادك الله علماً

واعذرني

My_DictionaryUpdate2.rar

[محب العلم]

نرجس،

تم تصميم وسيلة بحث للعربية والإنجليزية

التعديل :

تحياتي

[نرجس الورد]

نرجس،

تم تصميم وسيلة بحث للعربية والإنجليزية

التعديل :

تحياتي

بارك الله فيك وحفظك الله

أعرف أني أتعبتك . .لك جزيل الشكر والتقدير

سأنظر في طريقتك الجديدة الرائعة

[محب العلم]

نرجس ،

تم إكمال عناصر البحث وضبط الأمر

التعديل :

تحياتي