If Weekday(Me.Montaj_Tarhi) = 1 Then
Me.Montaj_Tarhi = DateAdd("d", 1, Me.Montaj_Tarhi)
End If
Kodu aşağıdaki ile değiştirerek deneyin.