ِAbo_El_Ela

معلش اسف مكنتش مركز 

last result.accdb

جرب 

النتيجة المطلوب عرضها ايه 

يا استاذي كلنا بنفيد و نستفيد 

بناءا علي اية دي اخر نتيجة 

حضرتك جربت المرفق

مفهمتش حضرتك تقصد ايه 

دي اخر نتيجة ازاي 

حضرتك هاتعمل استعلام اجمالي للجدول 

و في خانة التاريخ ها تخليها max

و في خصائص التقرير خلي القيم العليا 1

last result.accdb

استاذي الكبير موسي بارك الله في علمك 

معلومة جديده بالنسبة لي 

بارك الله في علمك 

اعمل استعلام و دوس علي اجماليات 

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

بعد تجربة الاعدادات 

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

1 دقيقه مضت, ابو البشر said:

ليس هذا فقط بل جميع تنسيقات النموذج

لا 

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

1 دقيقه مضت, ابو البشر said:

هل جربت المرفق

نعم 

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

36 دقائق مضت, ابو البشر said:

جرب المرفق .... اذا ناسبك ... طبق نفس تنسيق النموذج ......

شكرا استاذي الغالي علي الاهتمام و الرد 

و لكن مازالت المشكله 

عموما سوف اضبطها يدويا 

منذ ساعه, ابو البشر said:

الطريقة الأولى : عليك بتصفير منطقة تفصيل النموذج .....

حتي مع التصغير بينزل النموذج اسفل التسك بار 

منذ ساعه, ابو البشر said:

الطريقة الثانية : هل انت استخدمت كود تحجيم النموذج حسب مقاس الشاشات المختلفة ......

لا لاني لا اعرف الطريقة 

و شاكر جدا لاهتمام حضرتك

في 27‏/10‏/2022 at 18:34, ابو البشر said:

هل تحتاج ظهور التاسك مع برنامجك ...

اذا كان لا ... ضع كود لاخفاء التاسك

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

6 دقائق مضت, rockjone33 said:

اعادة تحجيم مقاس النموذج.. 

من مقاس دقة الشاشة الوندوز اختر 1920×1080 HD 

النافذه منبثقه.. 

عند النموذج قياس من 0 العرض الى20 (( والطول من0 الى 11 او قلل ومعاينة)) ..

 

اشكرك استاذي علي اهتمامك 

و لكن ممكن التبسيط اكثر 

السلام عليكم و رحمة الله 

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

فكيف لي ان اظهرها بدون تكبير ذيل النموذج 

ايه المشكله

2 دقائق مضت, ِAbo_El_Ela said:

ايه المشكله

 

و فين 

ايه الناقصص في هذا الكود 

Me.txt100.SetFocus
If txt100.Text = "ãÍãÏ" Then
DoCmd.SetProperty btn100, acPropertyVisible, True
Else

End If

و هل المشكلة في مكان الحدث 

في 11‏/10‏/2022 at 22:51, husamwahab said:

السلام عليكم

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

 

Root10.rar 99.9 kB · 18 downloads

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

الشكر لك استاذي الحلبي 

و الشكر ايضا لاستاذي ابو بسمله 

جعله الله في ميزان حسناتكما 

و نفع الله بعلمكما

20 دقائق مضت, الحلبي said:

لهذا انا طلبت ان يكون هناك اضافة حقل جديد يسمى  بانواع الاجازة ( اجازة عادية ـ تمديد ـ قطع اجازة ـ عدم اكتمال الاجازة)

شكرا استاذي الحلبي تم بالفعل اخذ الفكرة في الاعتبار 

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

51 دقائق مضت, ابوبسمله said:

الاستاذ صلاح له سجلين فى الاستعلام والمطلوب اظهار رقم القرار 8688 اللى سوف يبتدى فى 20/12/2022 وينتهى فى 19/12/2023

ازاى بقى تاريخ القرار بتاع السجل ده فى سنه 2020 وهو احدث قرار للموظف والقرار الاخر فى سنه 2021

لعل كلامى يكون واضح الان بان السجلات غير منطقيه للعمل عليها

استاذي ابو بسمله معك حق فهذا فعلا خطاء في الادخال 

و هذا ما كنت اريده فعليا

و لكن بعد فكرة استاذي الحلبي وبعد النظر للاحصائية فلابد فعليا من اضافة تلك الخانة و تمت الاضافة بالفعل

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

و شكرا لاستاذي الحلبي علي مجهوده و ابداء الرأي الثمين و سعة الصدر

اساتذتي الاعزاء اولا اشكركم علي اهتمامكم 

في 12‏/10‏/2022 at 15:08, الحلبي said:

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

15 دقائق مضت, ابوبسمله said:

ماهو وجه الخطوره دكتور محمد فانت ادرى بذلك فافدنا بالمعلومه لنتعلم وجزاك الله خيرا

استاذي الحلبي ممكن توضيح اكثر للفكرة

18 دقائق مضت, ابوبسمله said:

ستاذ @ABOLO2 حاولت العمل على مثالك ولكن البيانات الموجوده غير منطقيه للعمل عليها وقمت باختيار هذا الموظف لانه هو المكرر لديك بالاستعلام

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

استاذي ابو بسمله 

جرب المرفق مرة اخري

سجل المحضرين - 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