سؤال عن ضبط معيار الاستعلام من خلال نموذج او بمعيار العام الحالى بتنسيق "yy"

[ابو جودي]

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

اساتذتى الكرام
فى المرفق الاتى الاستعلام   qry_filter   تمام يقوم بعمل فلتر للحقل لكل ما يبدأ بــــ 017

المطلوب فتح الاستعلام qry  من خلال النموذج الموجود بنفس المعيار ولكن المعيار موجود على النموذج فى الحقل txt_filter

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

حتى تتضح الرؤيه اكثر

انا اريد عمل فلتر لحقل ما يبدأ ب 0 ثم رقم العام
اى اريد المطلوب عمل استعلام يحدد السجلات التى تبدأ تبعا للعام الحالى  017
وعندما نكون ان شاء الله فى العام الجديد 2018
من تقاء نفسه يقوم بعمل فلتر للسجلات التى تبدأ بــ 018

فإن كانت هناك فكره افضل من فكرتى فاطلب منكم على استحياء بتفريج همى وكربى فى اجابه هذا التساؤل

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

 

qus.rar

[أبو إبراهيم الغامدي]

1 ساعه مضت, ابا جودى said:

فإن كانت هناك فكره افضل من فكرتى فاطلب منكم على استحياء بتفريج همى وكربى فى اجابه هذا التساؤل

فكرة سليمة 100% .. التنصيص يكون على علامة النمجمة(*) فقط  وتربط بعلامة الدمج (&) 

Like "0" & Format(Date(),"yy") & "*" // تعمل بشكل سليم لو وضعتها في الاستعلام

//  بهذه الطريقة أيضا Format() يمكن استخدام 

Like  Format(Date(),"\0yy") & "*"

أو استخدم هذه إن شئت.. أضفتها في الاستعلام Qry_Filter

Like Mid(Year(Date()),2) & "*" 

التعديل: qus.zip

تم تعديل نوفمبر 5, 2017 بواسطه أبو إبراهيم الغامدي
إضافة تعليمة جديدة

[Shivan Rekany]

1 ساعه مضت, ابا جودى said:

المطلوب فتح الاستعلام qry  من خلال النموذج الموجود بنفس المعيار ولكن المعيار موجود على النموذج فى الحقل txt_filter

اھلا بک ابا جودی
فی استعلام استخدم المعیار ھکذا 

Like [Forms]![Form1]![txt_filter] & "*"

وبدل ان تستخدم رقم صفر مع الفورمات

="0" & Format(Date();"yy")

السنة تقدر تستخدم رايت مع السنة
 

=Right(Year(Date());3)

الیک المرفق بعدتعدیل

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

qus.rar

تم تعديل نوفمبر 5, 2017 بواسطه Shivan Rekany

[أبو إبراهيم الغامدي]

11 دقائق مضت, Shivan Rekany said:

اعتذر من استاذنا @أبو إبراهيم الغامدي لم ارى مشاركتك لان الصفحة كان مفتوع عندي قبل مشاركتك ... شكرا لك

ولو أستاذ شيفان.. العين ما تعلى على الحاجب.. 

 

[ابو جودي]

2 ساعات مضت, Shivan Rekany said:

اھلا بک ابا جودی
فی استعلام استخدم المعیار ھکذا 

Like [Forms]![Form1]![txt_filter] & "*"

وبدل ان تستخدم رقم صفر مع الفورمات

="0" & Format(Date();"yy")

السنة تقدر تستخدم رايت مع السنة
 

=Right(Year(Date());3)

الیک المرفق بعدتعدیل

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

qus.rar

جزاكم الله عنى وعن امة محمد خير الجزاء 

2 ساعات مضت, أبو إبراهيم الغامدي said:

ولو أستاذ شيفان.. العين ما تعلى على الحاجب.. 

 

جزاكم الله عنى وعن امة محمد خير الجزاء 

[يوسف أحمد]

مشاركة مع اساتذتنا الاعزاء

 

اذا كانت نتيجة الاستعلام ستظهر على نموذج فممكن الاستغناء عن الاستعلام و وضع المعيار مباشرة بأمر فتح نموذج الناتج

 

DoCmd.OpenForm "frm1", , , "mid(taj,1,3)='" & Me.txt_filter & "'"

حيث ان frm1  هو اسم النموذج الذي مصدره الجدول و يتم فتحه بالمعيار المطلوب

 

بالتوفيق للجميع

qus.zip