Empêcher l'ouverture d'un rapport si aucune donnée ne montre
Mercredi 20 mai 2009Nous pouvons prévenir un rapport ouvert si aucune donnée de montrer, et pour cela, nous utilisons deux formes en fonction de la version d'Access:
1 - Toutes les versions d'ACCESS
Placez le code ci-dessous dans les propriétés du rapport, «d'habilitation» l'événement
Utilisez le Enabling événement (Activer) Rapport:
Private Sub Report_Activate ()
Si DCount ("*", Me.RecordSource) = 0 Then
MsgBox "Aucun enregistrement à afficher" vbDefaultButton1, "Erreur!"
AcReport DoCmd.Close, "nom du rapport"
End If
End Sub
2 - Depuis la version 7 (accès 95) a été ajouté de l'événement si aucune donnée », alors nous pouvons urilizar le code suivant:
Private Sub Report_NoData (Cancel As Integer)
MsgBox "Pas de données dans le rapport.", VbInformation, "Erreur!"
Cancel = True
End Sub
Pour voir courir télécharger l'exemple: Empêcher rapport d'ouverture des
