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

[ابو جودي]

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

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

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

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

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

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

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

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

 

qus.rar

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

  في 5‏/11‏/2017 at 13:44, ابا جودى said:

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

Expand  

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

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

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

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

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

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

التعديل: qus.zip

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

[Shivan Rekany]

  في 5‏/11‏/2017 at 13:44, ابا جودى said:

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

Expand  

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

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

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

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

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

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

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

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

qus.rarFetching info...

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

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

  في 5‏/11‏/2017 at 15:41, Shivan Rekany said:

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

Expand  

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

 

[ابو جودي]

  في 5‏/11‏/2017 at 15:41, Shivan Rekany said:

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

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

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

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

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

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

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

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

qus.rarFetching info...

Expand  

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

  في 5‏/11‏/2017 at 16:01, أبو إبراهيم الغامدي said:

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

 

Expand  

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

[يوسف أحمد]

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

 

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

 

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

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

 

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

qus.zip