اخفاء ايقونة طلب مستخلف

[بلال اليامين]

السلام عليكم

لدي نموذج فرعي لقد قمت بادخال كود لاخفاء ايقونة طلب الاستخلاف عندما يكون عدد الغياب اقل من 09 ايام

وعندما الضغط على الايقونة للموظف اخر  تظهر جميع الازرار    

اريد اخفاء ايقونة طلب الاستخلاف عندما يكون عدد الغياب اقل من 09 ايام فقط 

اما اكثر من عشرة ايام تظهر الايقونة

 

طلب استخلاف.rar

[Foksh]

50 دقائق مضت, بلال اليامين said:

السلام عليكم

 

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

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

Private Sub تفصيل_Paint()
    If Me.B3.Value > 9 Then
        Me.أمر56.Transparent = True
    Else
        Me.أمر56.Transparent = False
    End If
End Sub

Private Sub Form_Current()
    Dim bVisible As Boolean
    bVisible = (Me.B3.Value < 9 Or IsNull(Me.B3))

    With Me.أمر56
        .Transparent = Not bVisible
        .Enabled = bVisible
    End With
End Sub

 

الملف بعد التعديل :-

 

1234 (6).zip

[بلال اليامين]

اخي افاضل السلام عليكم شكرا على المجهوداتكم 

 

اخفاء ايقونة طلب الاستخلاف عندما يكون عدد الغياب اقل من 09 ايام

العطلة التي  مدتها يوم واحد الى 9 ايام لا نطلب استخلاف

تم تعديل يوليو 26, 2025 بواسطه بلال اليامين
توضيح

[Foksh]

منذ ساعه, بلال اليامين said:

اخفاء ايقونة طلب الاستخلاف عندما يكون عدد الغياب اقل من 09 ايام

 

أخي الفاضل ، وعليكم السلام ورحمة الله وبركاته ..

لو انك امعنت النظر في الأكواد لكان الأمر قد تبين لك أين عليك التعديل !!!

هل هذه الصورة صحيحة ؟

 

إن كانت صحيحة ، فقط نفس الكود السابق ولكن نقلب الإشارات الأكبر تصبح أصغر والعكس

Private Sub تفصيل_Paint()
    If Me.B3.Value < 9 Then
        Me.أمر56.Transparent = True
    Else
        Me.أمر56.Transparent = False
    End If
End Sub

Private Sub Form_Current()
    Dim bVisible As Boolean
    bVisible = (Me.B3.Value > 9 Or IsNull(Me.B3))

    With Me.أمر56
        .Transparent = Not bVisible
        .Enabled = bVisible
    End With
End Sub