طلب مساعدة: البحث في سجلين من نوع تاريخ من خلال مدخلين من النوع تاريخ

[mer6h]

بسم الله الرحمن الرحيم

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

 

الأخوة الكرام،، أتمنى التفضل بمساعدتي كرماً.

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

يحتوي الجدول على رقم المشترك، اسم المشترك، تاريخ بداية الاشتراك، تاريخ نهاية الاشتراك...

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

عمود تاريخ بداية الاشتراك، وتاريخ نهاية الاشتراك معاً،

مثال:-

في الجدول:

رقم المشترك - اسم المشترك - تاريخ بداية الاشتراك - تاريخ نهاية الاشتراك

1 - محمد العوضي - 11/11/2019 - 11/11/2020

2 - صالح عياش - 21/02/2019 - 21/03/2019

3 - حسن محمد - 02/02/2019 - 02/08/2019

في النموذج:

يتم ادخال تاريخين لعرض الاشتراكات القائمة في الفترة المدخلة حالياً (مثلاً من تاريخ 07/09/2019 إلى تاريخ 01/02/2020) والمفترض أن يكون المخرج في النموذج الفرعي =

محمد العوضي

حسن محمد

 

_______        المطلوب كود ينفذ لي هذا الامر للتصفية وعذراً على الإطالة، قمت بارفاق القاعدة للتوضيح أكثر        _______

شكراُ لكم مقدماً.

 

 

 

tray.zip

تم تعديل يونيو 12, 2020 بواسطه mer6h

[kanory]

انظر المرفق ....

 

tray.zip

[mer6h]

51 دقائق مضت, kanory said:

انظر المرفق ....

 

tray.zip 22.72 kB · 2 تنزيلات

جزاك الله خير خبيرنا، لكن لم يستخرج لي الاسماء الصحيحة تبعاً للفترة المحددة

 

[محمد أبوعبدالله]

بالاضافة الى ما تفضل به استاذي الفاضل kanory وله الشكر

اليك هذه الطريقة ارجو ان تفيدك باذن الله

        myCriteria = "[Gym].[startDate] >= #" & Format(Me.sd, "dd\/mm\/yyyy") & "# And [Gym].[startDate]<= #" & Format(Me.ed, "dd\/mm\/yyyy") & "#"

        myCriteria = myCriteria & " Or "
        
        myCriteria = myCriteria & "[Gym].[endDate] >= #" & Format(Me.sd, "dd\/mm\/yyyy") & "# And [Gym].[endDate]<= #" & Format(Me.ed, "dd\/mm\/yyyy") & "#"
        
        Me.subGym.Form.Filter = myCriteria
        Me.subGym.Form.FilterOn = True

1tray.zip

تحياتي