السلام عليكم جميعا , عملت برنامج قاعدة بيانات لابأس به ولكن وجدت صعوبه في تنفيذ أستعلام متعدد وأختياري . يعني على فورم العرض (الموجود في البرنامج) عدة خيارات فاذا أخترت أحد الحقول أو أثنان أو كلها فيجب أن يقوم الأستعلام بالبحث عن الحقول المختارة . فمن يحل لي هذا الأشكال وجزاه الله كل خير .أختكم في الله
عنوان الملف :
الأخت ليلي
السلام عليكم
مرفق المثال بعد إجراء عدد من التعديلات آمل أن تكون هي المطلوبة
علماً بأنني سبق أن كتبت موضوعاً قريباً لما طلبت آمل مراجعته على الرابط التالي :
كيف تتيح للمستخدم البحث بأي حقل من حقول البيانات ـ أبو هاجر (1)
http://www.arabteam2000.com/vb/showthread....&threadid=16992
تحياتي
أخوك / أبو هاجر
يعطيك العافية على تعاونك والبرنامج يعمل بشكل جيد في عملية البحث . بس كان بودي أن خاصية صندوق التدقيق check box والتي أرفقتها في المثال مع الفورم ضمن تصميم البرنامج . فهل ممكن تطبيقها أم هناك صعوبه ؟ وهذا لا ينفي جهودكم السابقة ويعطيكم ألف عافية
أختي الكريم
خاصية check box لم يعد لها حاجة لأنها إضافة لا داعي لها وهي مما يزيد العبء على المستخدم مع أنك تستطيعين معرفة رغبة المستخدم في استخدام هذا الشرط أو لا من خلال فحص الحقل لمعرفة هل أدخل فيه قيمة أم لا برمجياً وهذا أفضل من وجهة نطري
على كل خاصية check box يمكنك استخدامها بكل بساطة ويمكنك الاستفادة من الكود السابق على أن يكون الأساس في اعتماد الشرط أو تجاهله هو قيمة الـ check box وهل هي : False أم True
تحياتي
أخوك / أبو هاجر
وأين يوضع الشرط بالضبط من الكود :
Private Sub Command24_Click()
'On Error GoTo Err_Command24_Click
Dim ctl As Control
Dim frm As Form
Dim tempwhere As String
Set frm = Forms(Me.name)
tempwhere = ""
For Each ctl In frm.Controls
If TypeOf ctl Is ComboBox Then
If IsNull(ctl.Value) = False Then
If tempwhere = "" Then
tempwhere = ctl.Tag & " = '" & ctl.Value & "'"
Else
tempwhere = tempwhere & " and " & ctl.Tag & " = '" & ctl.Value & "'"
End If
End If
End If
Next
stDocName = "أستعلام الأسماء"
DoCmd.OpenForm stDocName, acFormDS, , tempwhere, acFormEdit
Exit_Command24_Click:
Exit Sub
Err_Command24_Click:
MsgBox Err.Description
Resume Exit_Command24_Click
End Sub
===================
مع خالص الشكر
جزاك الله كل خير أبوهاجر ولكن يوجد ملاحظه ون شاء الله توافقني عليها .
يفترض عندما أضغط على زر التنفيذ (أستعلام) وأنا لم أختار أي حقل المفترض لا يطلع أي معلومات والسبب أني لم أختار البحث عن أي حقل وهذا المفترض الطبيعي , ولكن الذي يحصل أنه يظهر جميع الحقول , ياليت تجرب وتشوف بنفسك . والله يعطيك العافية على كل حال .
أختي الكريمة
السلام عليكم
بالفعل هذا ما يحدث وهذا كان مقصوداً منى ولم يفت على لأن من لم يحدد أي شرط يفترض أنه يريد عرض جميع البيانات
اقتباسالمفترض لا يطلع أي معلومات والسبب أني لم أختار البحث عن أي حقل
هذا من وجهة نظري غير صحيح لأن الأصل أن هذا النموذج مخصص للبحث ومن حق المستخدم علينا أن نتيح له عرض البيانات بدون أي شرط لأن مسألة الشرط اختيارية وهذا ما أفعله شخصياً في برامجي
مع أنه يمكنك تعديل الكود بحيث يتم عرض رسالة تفيد بعدم اختيار أي شرط عندما لا يقوم المستخدم بإدخال أي شرط
إذا لم تستطيعي فعل ذلك بنفسك فأنا مستعد للمساعدة
تحياتي
أخوك / أبو هاجر
يالليت الله يخليك ويالليت يكون آخر الحقل داله أو نتيجة مجموع سجلات البحث . مع الشكر والتقدير
الأخت الكريمة
السلام عليكم
مرفق المثال بعد التعديلات المطلوبة
يجب إدخال شرط ما وسوف يتم عرض رسالة بعدد السجلات المطابقة أو رسالة بعدم وجود أي سجل
تحياتي
أخوك / أبو هاجر
كلمة شكر في حقك قليلة ولكن أقول جزاك الله عني وعن أعضاء المنتدى كل خير لما تقدمه من مساعدات وحلول لجميع المشاركين بدون أستثناء فألف شكر يرعاك الله ياأخي الفاضل وسامحني على تعبك معاي .
هذا الموضوع مغلق.