Bij btnVervalbericht - click staat er:
If IsNull(txtEindDatum) Then
MsgBox "Er is geen einddatum geselecteerd!", vbCritical
Exit Sub
End If
'Kijken of einddatum niet voor begindatum valt
If CDate(txtEindDatum) < CDate(txtStartDatum) Then
MsgBox "Startdatum moet VOOR de Einddatum liggen", vbCritical
Exit Sub
End If
'We tellen of er records zijn voor deze periode
Dim aantal As Integer
aantal = DCount("Volgnr", "LidVerval", "NieuweBet between #" & txtStartDatum & "# AND #" & txtEindDatum & "#")
If aantal < 1 Then
MsgBox "Er zijn geen leden waarvan het lidmaatschappij vervalt in de perdiode tussen " & txtStartDatum & " en " & txtEindDatum & ".", vbInformation
Exit Sub
End If
'open het rapport
DoCmd.OpenReport "Vervalbericht", acViewPreview, , "NieuweBet between #" & txtStartDatum & "# AND #" & txtEindDatum & "#"
End Sub
Of bedoel je die op de foto.