Cliquez sur le menu Rapport puis sur Propriétés du rapport.
Allez à l'onglet Code et ajoutez un code similaire selon vos besoins :
Function CheckDateParameters(StartDate as Date, EndDate as Date) as Integer
Dim msg as String
msg = ""
If (StartDate > EndDate) Then
msg="Start Date should not be later than End Date"
End If
If msg <> "" Then
MsgBox(msg, 16, "Report Validation")
Err.Raise(6,Report) 'Raise an overflow
End If
End Function
Et
Suivez les étapes :
1.) Accédez aux paramètres du rapport et ajoutez un paramètre dont le type de données est une chaîne.
2.) Cochez la case Masqué et la case à cocher Autoriser les valeurs vides.
3.) Dans Valeurs par défaut, choisissez le bouton radio Non interrogé, puis appuyez sur le bouton FX et collez ce code.
=CODE.CheckDateParameters(<parameterStartdate>.Value,<parameterEnddate>.Value)
Appuyez ensuite sur OK.
Voir le lien de référence :
