كود الإجازات

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

الاعضاء المحترمين ,,لدي مشكله في الكود التالي ,,والذي وظيفته ينبه في حالة إدخال سجل في يومي الخميس والجمعه,, ولكن الكود حاليا يعمل ف كل ايام ااسبوع ..

فما هو الحل ,,,

ولقد وضعت الكود في الحقل بعد التحديث,,,

If DatePart("T", Now(), vbSaturday = 6) Or DatePart("F", Now(), vbSaturday) = 7 Then

MsgBox "التاريخ في يوم اجازه"

End If