İzin bitiş tarihinizin güncelleştirme sonrasına

If Weekday(btstrh) = vbFriday Then

Me.ısbtstrh = btstrh + 3

ElseIf Weekday(btstrh) = vbSaturday Then

Me.ısbtstrh = btstrh + 2

ElseIf Weekday(btstrh) = vbSunday Then

Me.ısbtstrh = btstrh + 1

Else

Me.ısbtstrh = btstrh + 1

End If

kodunu ekleyin. İzin bitişiniz Cuma gününe gelirse Cumartesi işbaşı yapacak derseniz vbFirday if bloğunu silin vb saturday bloğunu ElseIf değil If olarak başlatın. Yukarıdaki kod Cuma,Cumartesi ve Pazar gününe gelirse Pazartesi gününün tarihini, diğer günlerde bir gün sonrasını verir.