في حالة اختيار تاريخ ويصادف يوم الجمعة يصبح الون احمر

[لاتبخل]

السلام عليكم

 في حالة اختيار تاريخ ويصادف يوم الجمعة يصبح الون احمر

ama3.rar

تم تعديل أبريل 29, 2018 بواسطه لاتبخل

[kaser906]

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

[لاتبخل]

هل توجد طريقة لتغيير الون الخط

[أبو آدم]

تفضل

Private Sub txtDate_BeforeUpdate(Cancel As Integer)
    If Weekday(Me.txtDate) = vbFriday Then
       
        Cancel = (MsgBox("The Date is on a " & _
                         Format(Me.txtDate, "dddd") & vbCrLf & vbCrLf & _
                         "Do you want to keep this date?" _
                         , vbYesNo + vbQuestion) = vbNo)
    
        If Cancel Then Me.txtDate.ForeColor = vbRed
    
    End If
End Sub

 

[لاتبخل]

اذا ممكن بس اخلي الكود وين

تم تعديل أبريل 29, 2018 بواسطه لاتبخل

[أبو آدم]

لم انظر الى التطبيق الذي ارفقته بمشاركتك

و لكن الكود يكون في حدث قبل التحديث للحقل الذي يتم ادخال التاريخ به ، و هنا أسميته txtDate

 

[أبو آدم]

أو ممكن ان يكون الشرط كما يلي

    If Weekday(Me.txtDate) = 6 Then
      
        Cancel = (MsgBox("The Date is on a " & _
                         Format(Me.txtDate, "dddd") & vbCrLf & vbCrLf & _
                         "Do you want to keep this date?" _
                         , vbYesNo + vbQuestion) = vbNo)
    
        If Cancel Then Me.txtDate.ForeColor = vbRed
    
    End If