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

اهداء لأعضاء هذا المنتدى الرائع


إذهب إلى أفضل إجابة Solved by Foksh,

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

عندي هذا النموذج الرائع منذ سنوات

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

هو للامانة ليس من تصميمي

اتوقع صممه الأخ الحبيب @ابو جودي

 

اقدمه لكم هديه  فهناك من يحتاجه

بحث حسب تاريخ.accdb

 

-.gif.96f22752f50d68af67b1a77c1a12fe0f.gif

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

  • أفضل إجابة

جزاك الله خير على الهدية أخونا الفاضل @عبد اللطيف سلوم ، ولمشاركتك فكرة أستاذنا @ابو جودي ( رغم غيابه عنا في الفترة الأخيرة ) .

 

إلا أني دائماً أتوجه إلى أن تكون بداية الأسبوع عندي يوم السبت وليس الإفتراضي حسب الكمبيوتر يوم الأحد ، فهذا تعديل لا يلمس شيء في هديتك سوى أنه يجعل احتساب الأسبوع يبدأ من يوم السبت لا الأحد :smile: .

 

Private Sub salloum_AfterUpdate()
    Me.x1 = Me.salloum.Column(1)
    Select Case Me.salloum.Column(0)
        Case "1"
            Me.n1 = DateSerial(Year(Date), 1, 1)
            Me.n2 = DateSerial(Year(Date), 12, 31)
        Case "2"
            Me.n1 = DateSerial(Year(Date), Month(Date), 1)
            Me.n2 = DateSerial(Year(Date), Month(Date) + 1, 0)
        Case "3"
            Me.n1 = DateAdd("d", -Weekday(Date, vbSaturday) + 1, Date)
            Me.n2 = DateAdd("d", 6, Me.n1)
        Case "4"
            Me.n1 = DateSerial(Year(Date) - 1, 1, 1)
            Me.n2 = DateSerial(Year(Date) - 1, 12, 31)
        Case "5"
            Me.n1 = DateSerial(Year(Date), Month(Date) - 1, 1)
            Me.n2 = DateSerial(Year(Date) - 1, 12, 31)
        Case "6"
            Me.n1 = DateAdd("d", -Weekday(Date, vbSaturday) + 1, Date) - 7
            Me.n2 = DateAdd("d", 6, Me.n1)
        Case "7"
            Me.n1 = Null
            Me.n2 = Null
    End Select
End Sub

 

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

8 دقائق مضت, Foksh said:

جزاك الله خير على الهدية أخونا الفاضل @عبد اللطيف سلوم ، ولمشاركتك فكرة أستاذنا @ابو جودي ( رغم غيابه عنا في الفترة الأخيرة ) .

 

إلا أني دائماً أتوجه إلى أن تكون بداية الأسبوع عندي يوم السبت وليس الإفتراضي حسب الكمبيوتر يوم الأحد ، فهذا تعديل لا يلمس شيء في هديتك سوى أنه يجعل احتساب الأسبوع يبدأ من يوم السبت لا الأحد :smile: .

 

Private Sub salloum_AfterUpdate()
    Me.x1 = Me.salloum.Column(1)
    Select Case Me.salloum.Column(0)
        Case "1"
            Me.n1 = DateSerial(Year(Date), 1, 1)
            Me.n2 = DateSerial(Year(Date), 12, 31)
        Case "2"
            Me.n1 = DateSerial(Year(Date), Month(Date), 1)
            Me.n2 = DateSerial(Year(Date), Month(Date) + 1, 0)
        Case "3"
            Me.n1 = DateAdd("d", -Weekday(Date, vbSaturday) + 1, Date)
            Me.n2 = DateAdd("d", 6, Me.n1)
        Case "4"
            Me.n1 = DateSerial(Year(Date) - 1, 1, 1)
            Me.n2 = DateSerial(Year(Date) - 1, 12, 31)
        Case "5"
            Me.n1 = DateSerial(Year(Date), Month(Date) - 1, 1)
            Me.n2 = DateSerial(Year(Date) - 1, 12, 31)
        Case "6"
            Me.n1 = DateAdd("d", -Weekday(Date, vbSaturday) + 1, Date) - 7
            Me.n2 = DateAdd("d", 6, Me.n1)
        Case "7"
            Me.n1 = Null
            Me.n2 = Null
    End Select
End Sub

 

cooltext455342767203434.png.f7ac9a87f12bbe932c7d70d360c87a28.png

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

  • 3 weeks later...
6 ساعات مضت, محمود _ المصري said:

ولكن يوجد غير مظبوطة فقط في اختيار الشهر الماضي لو امكن تعديلة وارسالة مرة اخري اكون شاكر ليكم

تفضل أخي محمود 🙂 

قائمة منسدلة تسهل لك تحديد التواريخ لنموذج البحث.accdb

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

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
×
×
  • اضف...

Important Information