مشكلة في الاختيار من كمبوبوكس للبحث عن تاريخ متوافق

[ahmed_2040]

مشكلتي مختصره في الصورة التالية وهيا عند الاختيار من الكمبو بوكس ووضع تاريخين ياتي بالنتائج حسب الشرط بتاع كمبو بوكس ,وتظهر في المربع الكبير 

 مع العلم اني عندي استعلام 

باسم advsearch , ,والفورم باسم advsearch1  ,حقل التاريخ الاول باسم Dfrom  ,وحقل التاريخ الثاني باسم Dto  ,والكمبوبوكس باسم listsearch  ,و النتائج بتظهر في Searchlist

ارجو منك التكرم بحل المشكلة سواء برمجيا باستخدام Select Case في Vba مع دالة Sql او في الاستعلام

 

تم تعديل أكتوبر 15, 2018 بواسطه ahmed_2040

[Hamdi Edlbi-khalf]

مرحباً

هل تقصد أن البرنامج لا يستجيب للشروط التي في حقل التاريخ و يستجيب فقط للشرط الذي في مربع السرد و الحوار مع إهمال شرط التاريخ؟

إن كان ذلك فأتوقع أنك قد وضعت في معايير الحقول في الاستعلام الشروط

بطريقة OR أي في أسطر متعاقبة

و لم تضعها ضمن سطر واحد أي بطريقة AND

 

[ahmed_2040]

اولا اشكرك بشدة علي سرعة الرد اخي الكريم والعضو المميز

ثاتيا : كلامك مظبوط 100% انا وضعتها بطريقة اور اسطر متعاقبة 

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

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

[Forms]![adv_Search1]![DFrom] And <=[Forms]![adv_Search1]![DTo]=<

حيث ان  حيث ان b4 حقل تاريخ التعيين في جدول Data_Tech  

b5 تاريخ استلام العمل 

a10 تاريخ الميلاد 

 

تم تعديل أكتوبر 15, 2018 بواسطه ahmed_2040

[ابو ياسين المشولي]

17 دقائق مضت, ahmed_2040 said:

اولا اشكرك بشدة علي سرعة الرد اخي الكريم والعضو المميز

ثاتيا : كلامك مظبوط 100% انا وضعتها بطريقة اور اسطر متعاقبة 

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

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

[Forms]![adv_Search1]![DFrom] And ([Data_Tech].[b4])<=[Forms]![adv_Search1]![DTo]=<

حيث ان  حيث ان b4 حقل تاريخ التعيين في جدول Data_Tech  

b5 تاريخ استلام العمل 

a10 تاريخ الميلاد 

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

 

[ahmed_2040]

 

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

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

تم تعديل أكتوبر 15, 2018 بواسطه ahmed_2040

[Hamdi Edlbi-khalf]

مرحباً

طالما أن الأستاذ @ابو ياسين المشولي

دخل على الموضوع فقد حضر الماء ...

[ابو ياسين المشولي]

29 دقائق مضت, ahmed_2040 said:

 

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

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

انا لم اقلك ارفق ملفك قلت ارفق مثال

والمثال يمكن تعمل النموذج المطلوب

والبينات تدخلها عشواثيه

للتطبيق

 

الان, Khalf said:

مرحباً

طالما أن الأستاذ @ابو ياسين المشولي

دخل على الموضوع فقد حضر الماء ...

تسلم اخي Khalf

وانت فيك الخير والبركه

[Hamdi Edlbi-khalf]

2 ساعات مضت, ahmed_2040 said:

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

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

و لكن ليسمح لي أخي ابو ياسين ..

ارجع و اكتب الشروط التي كنت كتبها سابقاً في استعلامك مرة أخرى و لكن ضعها في السطر الثاني بعد سطر and الذي كتبها الآن

و أخبرني بالنتيجة .

[ahmed_2040]

يا استاذة الموضوع واضح وضوح الشمس انا محتاج كود يختار من بناء علي اختيار من الكمبوبوكس 

مثال

 If IsNull(Me.DFrom) Or IsNull(Me.DTo) Then
    MsgBox "الرجاء ادخال تواريخ البحث", vbInformation, "ادخل تاريخ البحث"
    Me.DFrom.SetFocus
Else
Select Case ListSearch
Case "تاريخ التعيين"

هنا اكتب ايه عشان يختار من الكمبوبوكس ويعرض االبيانات في القائمة الكبيرة بناء علي التاريخين المحصورين في التيكست بوكس 
Me.SearchList.Requery
Me.DFrom.SetFocus
Case "تاريخ استلام العمل"

هنا اكتب ايه عشان يختار من الكمبوبوكس ويعرض االبيانات في القائمة الكبيرة بناء علي التاريخين المحصورين في التيكست بوكس 
Me.DFrom.SetFocus
Me.SearchList.Requery
Case "تاريخ الميلاد"

هنا اكتب ايه عشان يختار من الكمبوبوكس ويعرض االبيانات في القائمة الكبيرة بناء علي التاريخين المحصورين في التيكست بوكس 
Me.DFrom.SetFocus
Me.SearchList.Requery
Case "تاريخ الإحالة للمعاش"

هنا اكتب ايه عشان يختار من الكمبوبوكس ويعرض االبيانات في القائمة الكبيرة بناء علي التاريخين المحصورين في التيكست بوكس 
Me.DFrom.SetFocus
Me.SearchList.Requery
End Select

مفيش بعد كده اوضح من كده يا استاذ ابو ياسين المشولي

تم تعديل أكتوبر 15, 2018 بواسطه ahmed_2040

[ahmed_2040]

منذ ساعه, ابو ياسين المشولي said:

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

 

 

13 دقائق مضت, Khalf said:

و لكن ليسمح لي أخي ابو ياسين ..

ارجع و اكتب الشروط التي كنت كتبها سابقاً في استعلامك مرة أخرى و لكن ضعها في السطر الثاني بعد سطر and الذي كتبها الآن

و أخبرني بالنتيجة .

تم ذلك ولم يفلح بعد ممكن دالة Sql  والموضوع ينتهي

2 دقائق مضت, ahmed_2040 said:

 

تم ذلك ولم يفلح بعد كما بالمرفقات 

ممكن دالة Sql  والموضوع ينتهي

 

[ahmed_2040]

15 ساعات مضت, ahmed_2040 said:

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

 

تم تعديل أكتوبر 16, 2018 بواسطه ahmed_2040