ِAbo_El_Ela

معلش اسف مكنتش مركز last result.accdb جرب

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

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

مفهمتش حضرتك تقصد ايه دي اخر نتيجة ازاي

حضرتك هاتعمل استعلام اجمالي للجدول و في خانة التاريخ ها تخليها max و في خصائص التقرير خلي القيم العليا 1 last result.accdb

استاذي الكبير موسي بارك الله في علمك معلومة جديده بالنسبة لي بارك الله في علمك

اعمل استعلام و دوس علي اجماليات و في عمود الترقيم التلقائي افتح تجميع حسب و غيرها لـ max

بعد تجربة الاعدادات تم تغطية التاسك بار بالنموذج

لا سوف اجرب و سوف اوافيك بالنتيجة

نعم Private Sub Form_Open(Cancel As Integer) DoCmd.Maximize End Sub

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

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

اريد ظهور التاسك

اشكرك استاذي علي اهتمامك و لكن ممكن التبسيط اكثر

السلام عليكم و رحمة الله عند عرض النموذج فان الازرار الموجودة في اسفل النموذج (تذييل النموذج ) تختفي وراء التسك بار فكيف لي ان اظهرها بدون تكبير ذيل النموذج

ايه المشكله و فين

ايه الناقصص في هذا الكود Me.txt100.SetFocus If txt100.Text = "ãÍãÏ" Then DoCmd.SetProperty btn100, acPropertyVisible, True Else End If و هل المشكلة في مكان الحدث

ممكن استاذي اعرف ليه المرفق مش راضي ينزل عندي و الانترنت داونلود مانجر بيطلع رساله بتقول " لا يعتمد هذا الاصدار تحميل هذا الملف جرب اصدار احدث "

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

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

اساتذتي الاعزاء اولا اشكركم علي اهتمامكم استاذي الحلبي ممكن توضيح اكثر للفكرة استاذي ابو بسمله جرب المرفق مرة اخري سجل المحضرين - Copy.rar

اسف علي التأخير المرفق سجل المحضرين - Copy.rar

عندي جدول الاجازات بدون مرتب و تم عمل استعلام للاجازات الحالية و مصدره الجدول السابق و المعيار الموجود في الاستعلام علي خانة تاريخ نهاية الاجازة (اكبر من تاريخ اليوم ) و لكن عندي موظف تاريخ نهاية الاجازة في 19/12/2022 و لكن صدر له قرار اخر لتجديد الاجازة و تاريخ نهاية الاجازة الجديده 19/12/2023 و اصبح اسمه مكرر في الاستعلام كيق اتجنب تكرار اسمة في الاستعلام بحيث ان ابقي علي الاجازة الجديده و اخفي الاجازة القديمه

اخر تعديل بأذن الله 😂 Option Compare Database Option Explicit Function DatDiffY(Vdate1 As Date, Vdate2 As Date) As Integer Dim year1 As Integer Dim year2 As Integer Dim year3 As Integer Dim month1 As Integer Dim month2 As Integer Dim month3 As Integer Dim day1 As Integer Dim day2 As Integer year1 = Int(DatePart("yyyy", Vdate1)) year2 = Int(DatePart("yyyy", Vdate2)) month1 = Int(DatePart("m", Vdate1)) month2 = Int(DatePart("m", Vdate2)) day1 = Int(DatePart("d", Vdate1)) day2 = Int(DatePart("d", Vdate2)) If month2 < month1 Or day2 < day1 Then If month2 < month1 And day2 < day1 Then If (year2 - year1) - 1 < 0 Then DatDiffY = 0 Else DatDiffY = (year2 - year1) - 1 End If End If If month2 < month1 And day2 > day1 Then If (year2 - year1) - 1 < 0 Then DatDiffY = 0 Else DatDiffY = (year2 - year1) - 1 End If End If Else DatDiffY = year2 - year1 End If End Function Function DatDiffM(Vdate1 As Date, Vdate2 As Date) As Integer Dim day1 As Integer Dim day2 As Integer Dim month1 As Integer Dim month2 As Integer Dim month3 As Integer Dim year1 As Integer Dim year2 As Integer Dim dateC1 As Date day1 = Int(DatePart("d", Vdate1)) day2 = Int(DatePart("d", Vdate2)) month1 = Int(DatePart("m", Vdate1)) month2 = Int(DatePart("m", Vdate2)) year1 = Int(DatePart("yyyy", Vdate1)) year2 = Int(DatePart("yyyy", Vdate2)) If month2 < month1 Or day2 < day1 Then If month2 < month1 And day2 >= day1 Then month3 = month2 + 12 DatDiffM = (month3 - month1) End If If month2 < month1 And day2 < day1 Then month3 = (month2 + 12) - 1 If (month3 - month1) - 1 < 0 Then DatDiffM = 0 Else DatDiffM = (month3 - month1) End If End If If month2 > month1 And day2 < day1 Then month3 = month2 - 1 DatDiffM = (month3 - month1) End If Else DatDiffM = month2 - month1 End If End Function Function DatDiffD(Vdate1 As Date, Vdate2 As Date) As Integer Dim day1 As Integer Dim day2 As Integer Dim tt As Integer Dim yy As Integer Dim uu As Date Dim month1 As Integer Dim month2 As Integer Dim month3 As Integer Dim year1 As Integer Dim year2 As Integer Dim year3 As Integer Dim dateC1 As Date day1 = Int(DatePart("d", Vdate1)) day2 = Int(DatePart("d", Vdate2)) month1 = Int(DatePart("m", Vdate1)) month2 = Int(DatePart("m", Vdate2)) year1 = Int(DatePart("yyyy", Vdate1)) year2 = Int(DatePart("yyyy", Vdate2)) If day2 < day1 Then uu = (DateSerial(year1, month1 + 1, "1") - 1) tt = uu - Vdate1 yy = Vdate2 - DateSerial(year2, month2, "1") If yy = 0 Then yy = 1 End If DatDiffD = tt + yy Else DatDiffD = day2 - day1 End If End Function