طلب مساعده في البحث

[imad2024]

السلام عليكم طلب مساعده في البحث

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

اريد ان ابحث بين تاريخين كما يلي :

1- الذي تم تسجيلهم في فتره معينه ( من تاريخ العقد الى تاريخ العقد )

2- الذين ينتهي تسجيل عقدهم في فتره معينه ( من تاريخ نهاية العقد الى تاريخ نهاية العقد )

3- البحث عن الذين تم تسجيلهم بين تاريخين وينتهي عقدهم بين تاريخين .

على سبيل المثال :

           1- البحث عن الذين بدايه عقدهم من تاريخ (1-1-2024 ) الى تاريخ ( 1-6-2024 )

وكذلك البحث عن 

          2- البحث عن الذين نهاية عقدهم  من تاريخ ( 1-6-2024 ) الى تاريخ ( 31-12-2024 )

وكذلك البحث عن :

          3- البحث عن الذين بداية عقدهم من تاريخ ( 1-1-2024 الى تاريخ 31-12-2024 ) وينتهي عقدهم كذلك بتاريخ ( من 1-1-2024 الى تاريخ 1-6-2025 )

مع الشكر

      

بحث.accdb

تم تعديل فبراير 3, 2024 بواسطه imad2024

[kkhalifa1960]

هل هذا ما تقصده أستاذ @imad2024 . وافني بالرد .

بحث-1.rar

[imad2024]

شكرا لك على المساعده

هل يمكن ان يكون البحث في سجل واحد وان لا يكون البحث في ثلاث استعلامات

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

 

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

 

شكرا لك مره اخرى على مساعدتك

[kkhalifa1960]

أخي اذا كان هذا طلبك اضغط على أفضل اجابة .

اما عن طلبك الجديد ارسل المرفق بطلب جديد موضح عليه طلبك .

[imad2024]

نفس البرنامج هل يمكن البحث في الثلاث حالات بامر بحث واحد

شكرا لك على المساعده

هل يمكن ان يكون البحث في سجل واحد وان لا يكون البحث في ثلاث استعلامات

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

مع الشكر

[سامي الحداد]

 السلام  عليكم 

مشاركة مع الاساتذة حسب ما فهمت .

عملت كمبوبوكس عدد 2 تاريخ بداية العقد ونهاية العقد وبدون استعلام فقط الكود التالي 

Private Sub FindDates_Click()
    Dim startDate As Date
    Dim endDate As Date

    If Not IsNull(Me.CboStartDate.Value) And Not IsNull(Me.CboEndDate.Value) Then
        startDate = DateValue(Me.CboStartDate.Value)
        endDate = DateValue(Me.CboEndDate.Value)

        If endDate >= startDate Then
            Me.Filter = "(Date1 = #" & Format(startDate, "yyyy-mm-dd") & "# AND Date2 = #" & Format(endDate, "yyyy-mm-dd") & "#) OR " & _
                        "(Date1 = #" & Format(endDate, "yyyy-mm-dd") & "# AND Date2 = #" & Format(startDate, "yyyy-mm-dd") & "#)"
            Me.FilterOn = True
        Else
            MsgBox ".يجب أن يكون تاريخ الانتهاء أكبر من أو يساوي تاريخ البدء", vbExclamation, "خطاء في نطاق التاريخ"
        End If
    Else
        Me.FilterOn = False
    End If
End Sub

عسى ان يكون هدا طلبك 

بالتوفيق

بحث.accdb

[imad2024]

شكرا لك على المداخله

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

1- انا بحاجه ان ابحث مثلا الذين لهم بداية عقد العمل يبداً من تاريخ 1-1-2024 الى تاريخ 1-4-2024 .

2- انا بحاجه ان ابحث مثلاً الذين ينتهي عقد عملهم من تاريخ 2024/2/1 الى تاريخ 2024/3/1 .

3- وكذلك انا بحاجه ان ابحث مثلاً في الموضوعين اعلاه الذين لهم عقد عمل بين تاريخين وينتهي عقد العمل بين تاريخين.

المطلوب ان ابحث في         بداية عقد العمل         من تاريخ الى تاريخ فقط

        او ان ابحث في          انتهاء العقد               من تاريخ الى تاريخ فقط

        او ان ابحث في          بداية عقد العمل ونهاية عقد  مع بعض

وشكرا لك

[سامي الحداد]

جرب التعديل 

Private Sub FindDates_Click()
    Dim startDateFrom As Date
    Dim startDateTo As Date
    Dim endDateFrom As Date
    Dim endDateTo As Date
    Dim filterCondition As String

    If Not IsNull(Me.txtStartFrom) And Not IsNull(Me.txtStartTo) Then
        startDateFrom = DateValue(Me.txtStartFrom.Value)
        startDateTo = DateValue(Me.txtStartTo.Value)

        filterCondition = "(Date1 >= #" & Format(startDateFrom, "yyyy-mm-dd") & "# AND Date1 <= #" & Format(startDateTo, "yyyy-mm-dd") & "#) OR " & _
                          "(Date2 >= #" & Format(startDateFrom, "yyyy-mm-dd") & "# AND Date2 <= #" & Format(startDateTo, "yyyy-mm-dd") & "#)"
    End If

    If Not IsNull(Me.txtEndFrom) And Not IsNull(Me.txtEndTo) Then
        endDateFrom = DateValue(Me.txtEndFrom.Value)
        endDateTo = DateValue(Me.txtEndTo.Value)

        If filterCondition = "" Then
            filterCondition = "(Date1 >= #" & Format(endDateFrom, "yyyy-mm-dd") & "# AND Date1 <= #" & Format(endDateTo, "yyyy-mm-dd") & "#) OR " & _
                              "(Date2 >= #" & Format(endDateFrom, "yyyy-mm-dd") & "# AND Date2 <= #" & Format(endDateTo, "yyyy-mm-dd") & "#)"
        Else
            filterCondition = filterCondition & " OR " & _
                              "(Date1 >= #" & Format(endDateFrom, "yyyy-mm-dd") & "# AND Date1 <= #" & Format(endDateTo, "yyyy-mm-dd") & "#) OR " & _
                              "(Date2 >= #" & Format(endDateFrom, "yyyy-mm-dd") & "# AND Date2 <= #" & Format(endDateTo, "yyyy-mm-dd") & "#)"
        End If
    End If

    
    If filterCondition <> "" Then
        Me.Filter = filterCondition
        Me.FilterOn = True
    Else
        Me.FilterOn = False
    End If
End Sub

 

بحث.accdb

[imad2024]

شكرا لك ( سامي الحداد ) 

ولمن ساعدني في البدايه kkhalifa1960

هذا ما اريده 

بارك الله في جهودكم معي

[سامي الحداد]

الشكر لله عز وجل.

حياك الله اخي الكريم.