عند اختيار All من قائمة منسدلة يتم كتابة تاريخ بتكست

[abouelhassan]

السلام عليكم اخوانى الافاضل ادام الله كرمكم يارب

لدى فورم اسمه frm_Main

احتاج كود يعمل الاتى اخوانى الافاضل عند اختيار All من قائمة نوع العدد يتم كتابة التاريخ1/1/2020 فى تكست التاريخ من وفى تكست التاريخ الى يتم كتابة تاريخ اخر يوم الشهر الماضى يعنى اليوم4/12/2021 يتم كتابة 30/11/2021 فى التاريخ الى وهكذا فى حالة التاريخ الى اذا كان تاريخ اليوم مثلا1/1/2022 يكتب31/12/2021

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

 

DATA1041-5.mdb

[Moosak]

تفضل يا أبو الحسن 

Private Sub srch_All_AfterUpdate()

    If Me.srch_All = "All" Then
        Me.srch_Date_From = DateSerial(2020, 1, 1)
        Me.srch_Date_To = DateSerial(Year(Date), Month(Date), 1) - 1
   Else
        Me.srch_Date_From = ""
        Me.srch_Date_To = ""
    End If
End Sub

 

DATA1041-5.mdb

[king5star]

تفضل اتمني يكون المطلوب

Function GetNowLast(DateFrom As Date) As Date

    Dim dYear, dMonth, getDate As Date

    dYear = YEAR(DateFrom)
    dMonth = Month(DateFrom)

    getDate = DateSerial(dYear, dMonth, 0)

    GetNowLast = getDate

End Function

DATA1041-5.mdb

تم تعديل ديسمبر 4, 2021 بواسطه king5star

[abouelhassan]

استاذى العزيز Moosak بارك الله فيك اخى تسلم ايدك الكود يعمل تمام زادك الله من فضله وعلمه اللهم امين يارب

استاذى العزيزking5star بارك الله فيك تسلم ايدك يارب الكود توقف بارك الله فيك وزادك يارب من فضله وعلمه اللهم امين يارب

هنا

srch_Date_To = GetNowLast(srch_Date_From)

شكر وتقدير واحترام لحضراتكم من قلبى

[Moosak]

12 ساعات مضت, abouelhassan said:

استاذى العزيزking5star بارك الله فيك تسلم ايدك يارب الكود توقف بارك الله فيك وزادك يارب من فضله وعلمه اللهم امين يارب

أخي @abouelhassan كود الأستاذ كنج 5 ستار يشترط كتابة ( التاريخ من ) لكي يعمل ..

[Eng.Qassim]

اخي العزيز @abouelhassan

كود الاخ @king5starلا يعمل والحقل فارغ ..الافضل ان تضع رسالة تنبيه اذا كان حقل التاريخ فارغا حتى لايعطي رسالة خطا

تحياتي

[abouelhassan]

خالص شكرى وتقديرى واحترامى اساتذتى الافاضل الكرام

[abouelhassan]

استاذى الحبيب Moosak

حاولت التعديل فى كود حضرتك بحيث انى عندما اختارpositive من القائمة يكون التاريخ فى التاريخ من هو اول يوم فى الشهر الماضى

والتاريخ الى اخر يوم فى الشهر الماضى بمعنى لو اليوم هو 1/12/2021 عندما اختار Positive يكتب فى التاريخ من1/11/2021 وفى التاريخ الى 30/11/2021 وهكذا فعدلت فى الكود الى

Private Sub srch_All_AfterUpdate()

    If Me.srch_All = "All" Then
        Me.srch_Date_From = DateSerial(2020, 1, 1)
        Me.srch_Date_To = DateSerial(Year(Date), Month(Date), 1) - 1
  If Me.srch_All = "Poitive" Then
        Me.srch_Date_From = DateSerial(Year(Date), Month(Date), 1)
        Me.srch_Date_To = DateSerial(Year(Date), Month(Date), 1) - 1
end if
   Else
        Me.srch_Date_From = ""
        Me.srch_Date_To = ""
    End If
End Sub

بس للاسف لم يعمل ممكن حضرتك تخبرنى اين يكمن الخطأ

مع خالص الشكر والتقدير وخالص الدعاء من القلب لك اخى الكريم

[Moosak]

تفضل التعديل أبو الحسن 

Private Sub srch_All_AfterUpdate()

    If Me.srch_All = "All" Then
        Me.srch_Date_From = DateSerial(2020, 1, 1)
        Me.srch_Date_To = DateSerial(Year(Date), Month(Date), 1) - 1
   
   ElseIf Me.srch_All = "positive" Then
        Me.srch_Date_From = DateSerial(Year(Date), Month(Date) - 1, 1)
        Me.srch_Date_To = DateSerial(Year(Date), Month(Date), 0)
   
   Else
        Me.srch_Date_From = ""
        Me.srch_Date_To = ""
    End If

    Me.srch_All_PN = Me.srch_All
End Sub

 

DATA1041-5.mdb

[abouelhassan]

تسلم وتعيش استاذى الحبيبMoosak 

الكود ممتاز جداااا تسلم يارب بارك الله فيك اخى الكريم

اشكرك

احترامى وتقديرى

[Moosak]

العفو يا أبا الحسن