imad2024 قام بنشر فبراير 3 مشاركة قام بنشر فبراير 3 (معدل) السلام عليكم طلب مساعده في البحث عندي موظفين لهم بداية العقد ونهاية العقد قمت بوضع برنامج مبسط اريد ان ابحث بين تاريخين كما يلي : 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 بواسطه imad2024 رابط هذا التعليق شارك More sharing options...
kkhalifa1960 قام بنشر فبراير 3 مشاركة قام بنشر فبراير 3 هل هذا ما تقصده أستاذ @imad2024 . وافني بالرد . بحث-1.rar رابط هذا التعليق شارك More sharing options...
imad2024 قام بنشر فبراير 3 الكاتب مشاركة قام بنشر فبراير 3 شكرا لك على المساعده هل يمكن ان يكون البحث في سجل واحد وان لا يكون البحث في ثلاث استعلامات ان يكون استعلام واحد ونموذج واحد وامر بحث واحد ليقوم في البحث في جميع التواريخ المذكوره لان البرنامج الموجود يوجد به بحث عن الاسم والعنوان ومعلومات اخرى ومن ضمنها بداية ونهاية العقد وانا بحاجه الى زر امر بحث واحد وسجل بحث واحد من اجل ان تكون النتيجه واحده شكرا لك مره اخرى على مساعدتك رابط هذا التعليق شارك More sharing options...
kkhalifa1960 قام بنشر فبراير 3 مشاركة قام بنشر فبراير 3 أخي اذا كان هذا طلبك اضغط على أفضل اجابة . اما عن طلبك الجديد ارسل المرفق بطلب جديد موضح عليه طلبك . رابط هذا التعليق شارك More sharing options...
imad2024 قام بنشر فبراير 4 الكاتب مشاركة قام بنشر فبراير 4 نفس البرنامج هل يمكن البحث في الثلاث حالات بامر بحث واحد شكرا لك على المساعده هل يمكن ان يكون البحث في سجل واحد وان لا يكون البحث في ثلاث استعلامات ان يكون استعلام واحد ونموذج واحد وامر بحث واحد ليقوم في البحث في جميع التواريخ المذكوره مع الشكر رابط هذا التعليق شارك More sharing options...
سامي الحداد قام بنشر فبراير 4 مشاركة قام بنشر فبراير 4 السلام عليكم مشاركة مع الاساتذة حسب ما فهمت . عملت كمبوبوكس عدد 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 رابط هذا التعليق شارك More sharing options...
imad2024 قام بنشر فبراير 4 الكاتب مشاركة قام بنشر فبراير 4 شكرا لك على المداخله المطلوب اذا امكن المساعده 1- انا بحاجه ان ابحث مثلا الذين لهم بداية عقد العمل يبداً من تاريخ 1-1-2024 الى تاريخ 1-4-2024 . 2- انا بحاجه ان ابحث مثلاً الذين ينتهي عقد عملهم من تاريخ 2024/2/1 الى تاريخ 2024/3/1 . 3- وكذلك انا بحاجه ان ابحث مثلاً في الموضوعين اعلاه الذين لهم عقد عمل بين تاريخين وينتهي عقد العمل بين تاريخين. المطلوب ان ابحث في بداية عقد العمل من تاريخ الى تاريخ فقط او ان ابحث في انتهاء العقد من تاريخ الى تاريخ فقط او ان ابحث في بداية عقد العمل ونهاية عقد مع بعض وشكرا لك رابط هذا التعليق شارك More sharing options...
أفضل إجابة سامي الحداد قام بنشر فبراير 5 أفضل إجابة مشاركة قام بنشر فبراير 5 جرب التعديل 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 رابط هذا التعليق شارك More sharing options...
imad2024 قام بنشر فبراير 5 الكاتب مشاركة قام بنشر فبراير 5 شكرا لك ( سامي الحداد ) ولمن ساعدني في البدايه kkhalifa1960 هذا ما اريده بارك الله في جهودكم معي رابط هذا التعليق شارك More sharing options...
سامي الحداد قام بنشر فبراير 5 مشاركة قام بنشر فبراير 5 الشكر لله عز وجل. حياك الله اخي الكريم. رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان