اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

فلترة حسب الشهر الحالى والسابق


الحلبي

الردود الموصى بها

الاخوة الافاضل السلام عليكم 

مرفق مثال بسبط لما هو مطلوب 

المطلوب عند الضغط على زر الشهر الحالى يفلتر لنا النموذج الفرعى كل الموظفين الذين حصلوا على دورة تدريبة خلال هذا الشهر

عند الضغط على زر الشهر السابق يفلتر لنا اسماء الموظفين الحاصلين على الدورة خلال الشهر السابق 

عند الضغط  على نفس الزر الشهر السابق يعطى الشهر الذي يسبقه فى كل مرة يعطى الشهر السابق ثم السابق وهكذا 

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

FILTER.accdb

رابط هذا التعليق
شارك

السلام عليكم

تفضل اخي الكريم

Private Sub Command1_Click()
' الشهر الحالي
        Dim x1, x2 As Date

        x1 = DateSerial(Year(Date), Month(Date), 1)
        x2 = DateSerial(Year(Date), Month(Date) + 1, 0)
        
        myCriteria = "([T1].[COURSEDATE] between #" & x1 & "# and #" & x2 & "#)"
        
        Me.TSUB.Form.Filter = myCriteria
        Me.TSUB.Form.FilterOn = True

End Sub

Private Sub Command2_Click()
' الشهر السابق
        Dim x1, x2 As Date

        x1 = DateSerial(Year(Date), Month(Date) - 1, 1)
        x2 = DateSerial(Year(Date), Month(Date), 0)
        myCriteria = "([T1].[COURSEDATE] between #" & x1 & "# and #" & x2 & "#)"
        
        Me.TSUB.Form.Filter = myCriteria
        Me.TSUB.Form.FilterOn = True


End Sub

FILTER.rar

تحياتي

  • Like 1
رابط هذا التعليق
شارك

استاذنا الفاضل / @محمد ابو عبدالله

اقتباس

تفضل اخي الكريم

زادك الله من فضله واكرمك الله وبارك الله في رزقك وصحتك

فعلا هذا المطلوب مع ملوحظه صغيرة

عند الضغط على زر الشهر السابق اجد انه يفلتر لنا شهر 12 وشهر 11 معا ، المفروض ان يفلتر شهر 12 فقط

وعند الضغط عليه مرة تانية يفلتر لنا شهر 11 فقط وفي كل مرة ضغط يفلتر شهر 10 ثم 9 وهكذا  .....         (اى في كل ضغطه يأتي بالشهر السابق فقط ولا يجمع شهرين مع بعض)

هل هذا ممكن استاذي الفاضل 

واي ما كان  فانه كود في منتهى الجمال والروعة لا يصدر الا من خبير 

زادك الله من علمه وكل الاحترام والتقدير لشخصكم 

رابط هذا التعليق
شارك

تفضل اخي الكريم

تم تعديل كود الشهر السابق كالتالي

Private Sub Command2_Click()
' الشهر السابق
        Dim x1, x2 As Date

        x1 = DateSerial(Year(Date), Month(Date) - 1, 1)
        x2 = DateSerial(Year(Date), Month(Date), 0)
'        myCriteria = "[T1].[COURSEDATE] Between #" & x1 & "# And #" & x2 & "#"
        myCriteria = "[T1].[COURSEDATE] Between DateSerial(Year(Date()), Month(Date()) - 1, 1) And DateSerial(Year(Date()), Month(Date()), 0)"

        Me.TSUB.Form.Filter = myCriteria
        Me.TSUB.Form.FilterOn = True

End Sub

FILTER.rar

تحياتي

  • Like 1
رابط هذا التعليق
شارك

مازال لا يأتى بشهر 11  (اي الشهر الاسبق) عند االضغطه الثانية

غلبتك معايا انا اسف لك 

حسب وقتك يمكن التعديل 

سوف احاول ان اعدل فى الكود يمكن على الله تصيب المحاوله

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

 

تم تعديل بواسطه الحلبي
رابط هذا التعليق
شارك

السلام عليكم

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

months العلا سوفت 01096620227.accdb

رابط هذا التعليق
شارك

الاستاذ / @alaa aboul-ela

الله يبارك لك طب فين البيانات 

     المقصود من السؤال هو عندما اضغط على زر الشهر الحالى يعطينى كل الموظفين الذي اخذوا دورة خلال الشهر الحالى ايا كان الشهر مع ظهور البيانات للموظف

وعند الضغط على الزر الاخر يعطيني الشهر السابق مع ظهور البيانات

حاول  تكرما منك ان تطبيق الاستعلام  على المثال الذى ارفقته انا اعلاه

جزاكم الله خير على المساعدة والمشاركة   

رابط هذا التعليق
شارك

اتفضل يا اخي الكريم 

الملف حسب طلبك

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

تمنياتي لك بالتوفيق

البحث بالشهر - العلا سوفت 01096620227.accdb

رابط هذا التعليق
شارك

الاستاذ / @alaa aboul-ela

اولا : جزاك الله خير على المساعدة والله يبارك لك 

ثانيا : الملف الموجود ملف اخر عبارة عن بحث خاص تقريبا عن مستشفى . والتطبيق غير موجود على المثال المقدم

واعتقد ان الاستعلامات بها شيئا من التطويل والتركيب ،ولان المثال الذي قدمته انا مثال مبسط للاصل الذي يحتوى على بعض الاكواد تعوق هذه الاستعلامات

فالافضل ان نبتعد عن الاستعلامات ونكمل الاكواد التى قام بها الاستاذ / محمد ابو عبد الله

وعلى كل حال ان مقدر تعبك معى وانا فخور بمساعتك لى واشتراكك معى 

بارك الله فييك وفى اهلك وزادك الله من العلم

كل الاحترام والتقدير لشخصكم الكريم

رابط هذا التعليق
شارك

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

وسأقوم برفع الملف الصحيح ... تحياتي

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

اكل شهر على حدى - العلا سوفت 01096620227.accdb

تم تعديل بواسطه alaa aboul-ela
  • Like 1
رابط هذا التعليق
شارك

السلام عليكم

مشاركه مع اخى محمد @محمد ابوعبد الله واخى عبدالله

اخى محمد @حلبي

للحصول على الشهر السابق

Private Sub Command2_Click()
' الشهر السابق
        

    Dim x1, x2 As Date
         x1 = DateSerial(Year(Date), Month(Date) - 1, 1) - 1
        x2 = DateSerial(Year(Date), Month(Date), 0)
         myCriteria = "[T1].[COURSEDATE] Between #" & x1 & "# and #" & x2 & "#"
        'myCriteria = "[T1].[COURSEDATE] Between DateSerial(Year(Date()), Month(Date()) - 1, 1) And DateSerial(Year(Date()), Month(Date()), 0)"
       Me.TSUB.Form.Filter = myCriteria
       Me.TSUB.Form.FilterOn = True
    
End Sub

 

لم تظبط معى للحصول على الشهر السابق عند الضغط مره اخرى للحصول على شهر 11 وهكذا

ان شاء الله ساحاول غدا مع اخوانى

تقبلوا تحياتى وتمنياتى لكم وللجميع بالتوفيق

رابط هذا التعليق
شارك

الاستاذ /  @alaa aboul-ela

والله مجهود كبير منك واشغلتك معايا المثال المرفق من حضرتك به افكار صدقنى جميلة وانا فعلا استفدت منه واحتفظت به في مكتبتى

ولكن دعنى اقول لك ملاحظة صغيرة وهى عندما اريد ان ابحث عن الدورات التى حصل عليها موظف ما في السنة الماضية وليكن شهر ديسمبر لعام 2019 فيأتى لنا بشهر ديسمبر للعام الحالى

ولذلك ان ابحث عن كود وليس استعلام يأتى بالشهر السابق لاي عام 

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

جزاك الله كل الخير ورحم الله والديك فى الدنيا والاخره بارك الله في علمك وصحتك واولادك

خبيرنا واستاذنا الفاضل الحبيب الى قلبى / ابو بسمله

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

يمكن اكون غير منتبه ومخطئ ارجو ان تنظر الى الكود اعلاه وممكن ان يكون حضرتك لم تنتبه او لم ترى مشاكة الاستاذ / محمد ابو عبد الله

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

جزاك الله خيرا استاذنا وخبيرنا / احمد الفلاحجى على مساعدتك الدائمة لي وزادك الله من العلم والصحة والرزق ان شاء الله

الاحترام والتقدير التام لكما وللجميع

رابط هذا التعليق
شارك

بالاضافة الى ما تفضل به الاخوة الكرام ولهم الشكر

من فضلك اخي الكريم @حلبي جرب معي الكود التالي يعمل بطريقة افضل من الاول

Option Compare Database

Private Sub Command1_Click()
' الشهر الحالي
        Dim X1, X2 As String

        X1 = Format(DateSerial(Year(Date), Month(Date), 1), "mm/dd/yyyy")
        X2 = Format(DateSerial(Year(Date), Month(Date) + 1, 0), "mm/dd/yyyy")
        
        myCriteria = "([T1].[COURSEDATE] between #" & X1 & "# and #" & X2 & "#)"
        
        Me.TSUB.Form.Filter = myCriteria
        Me.TSUB.Form.FilterOn = True

End Sub

Private Sub Command2_Click()
' الشهر السابق
        Dim X3, X4 As String

        X3 = Format(DateSerial(Year(Date), Month(Date) - 1, 1), "mm/dd/yyyy")
        X4 = Format(DateSerial(Year(Date), Month(Date), 0), "mm/dd/yyyy")
        
        myCriteria = "([T1].[COURSEDATE] between #" & X3 & "# and #" & X4 & "#)"
        
        Me.TSUB.Form.Filter = myCriteria
        Me.TSUB.Form.FilterOn = True

End Sub

 

FILTER.rar

تحياتي

 

تم تعديل بواسطه محمد ابوعبد الله
  • Like 1
رابط هذا التعليق
شارك

استاذي الفاضل / @محمد ابوعبد الله

تمام وبالفعل الكود الجديد ياتى بالشهر السابق

بقى ان يأتي بالشهر الاسبق عند الضغط عليه مرة اخرى

بعد اذن حضرتك انا قمت بحذف الوحدة النمطية لانى ارى ليس لها فائدة هنا

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

تم تعديل بواسطه الحلبي
رابط هذا التعليق
شارك

الاستاذ الفاضل / @Abu Farid

سؤال لو سمحت لى : هل انت عضو جديد ام خبير

الاستشعار عندى يقول شئ تانى اخر . دعنى اتابع ردودك بعد ذلك لكى اتحقق

ولو سمحت لو سمحت لا تقول لى انك طالب علم ومازلت تتعلم وانك فى اول الطريق

هذه ليست محاولة منك كما قلت بل هو الحل الامثل ، نعم هذا المطلوب

كيف هذا ياشيخ روح الله يعمر بيتك ويجزاك كل خير ـ ويرحم والديك دنيا وآخره ويزيدك الله علما ويعافيك في صحتك ومالك ورزقك ـ امين امين

واحب ان اشكر استاذنا الفاضل / @محمد ابوعبد الله- واستاذنا / @احمد الفلاحجي واستاذنا / @alaa aboul-ela

على ما قدموه لى من مساعدات ويارب يارب يجزاهم الله خير على ما يقدموه لنا 

كل الاحترام والتقدير لكم جميعا

  • Like 1
رابط هذا التعليق
شارك

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

سؤال لو سمحت لى : هل انت عضو جديد ام خبير

لا أخي انا تلميذ و ساكون تلميذا و استفيد من خبراتكم 

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

هذه ليست محاولة منك كما قلت بل هو الحل الامثل ، نعم هذا المطلوب

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

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

روح الله يعمر بيتك ويجزاك كل خير ـ ويرحم والديك دنيا وآخره ويزيدك الله علما ويعافيك في صحتك ومالك ورزقك ـ امين امين

آمين آمين وياك يا أخي الكريم

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

FILTER.accdb

  • Like 1
رابط هذا التعليق
شارك

ايه ده ياشيخ

ولا اجمل ولا اروع ولا ابسط ولا اسهل من كده 

تصدقنى  لو قلت لك انى كنت هسأل حضرتك حالا عن فصل شهور السنة - سبحان الله 

تسلم اناملك وبارك الله فيك وجعله في ميزان حسناتك ان شاء الله

رابط هذا التعليق
شارك

ماشاء الله ولا قوه الا بالله اللهم صل وسلم وبارك على سيدنا محمد وآله ومن والاه معلم الامه يارب العالمين

بارك الله وجزاكم الله خيرا اخوتى واساتذتى @محمد ابوعبد الله و @Abu Farid

نعم اخى محمد @حلبي اخى @Abu Farid اجابته جميله وروعه مثله وهو يستاهل الخبير وليس انا وان شاء الله عن قريب سيكون فى مجموعه خبراء موقعنا الرائع لطلبه العلم

واتشرف انا اكون طالب لدي اخوتى ومعلمينا واساتذتى الافاضل

تقبلوا تحياتى وتمنياتى لكم وللجميع بالتوفيق :fff:

 

  • Thanks 1
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information