Hallo Paul1,
Danke für die Antwort.
Ich habe das erst mal so gelöst
Dim strDate As Date
strDate = DateAdd("ww", -6, txtDatum)
If txtCheckIn <= strDate Then
Me.AnzeigeSechsWochen.Visible = True
End If
txtCheckIn ist das Datum der letzten Teilnahme
txtDatum ist das aktuelle Datum
Dim strWoche As Long
strWoche = Nz(DateDiff("d", txtCheckIn, txtDatum))
txtVariable = strWoche
If txtWieOft = 1 Then
If txtVariable < 7 Then
Me.Woche.Visible = True
End If
End If
Nur wenn der Teilnehmer jetzt das erstemal da ist, ist ja im Feld txtCheckIn noch kein Datum vorhanden und das
Me.Woche.Visible = True in der IF Abfrage wird ausgeführt.
Wie bekomme ich das hin, dass das Me.Woche.Visible = True erst ausgeführt wird, wenn in txtCheckIn ein Datum steht?
Gruß marlies