alternatif olarak buton_2_hafta_ekle tıklama olayını aşağıdaki gibi düzenleyip dener misiniz?

Private Sub buton_2_hafta_ekle_Click()

x = teblig_tarihi

son_sure = IIf(x Mod 7 < 2, x + 14 + 2 - (x Mod 7), x + 14)

End Sub