Hallo,
If Me.TextBox7 > CDate("30.09." & Year(Date)) Then
Me.TextBox10 = CDate("31.12." & Year(Date) + 1)
Else
Me.TextBox10 = CDate("31.12." & Year(Date))
End If
Viele Grüße aus Hamburg
Ray