Exemples d'accès

Empêcher l'ouverture d'un rapport si aucune donnée ne montre

Nous 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

Publié dans Non classé | Les 13 commentaires »

Comment faire pour empêcher une forme ouverte si aucun enregistrement à montrer?

Parfois, il est nécessaire pour empêcher une forme ouverte s'il ya des documents qui montrent, par exemple lorsque vous faites une requête et aucune inscription n'est pas requise, nous n'avons pas besoin d'être ouvert sous forme puisque nous n'avons pas de données à afficher. Donc, ce que nous avons à faire est de vérifier s'il ya des documents qui montrent et s'il n'y a pas afficher un message et entraver la forme ouverte. Comment?

Il est facile de mettre juste le code ci-dessous dans les propriétés du formulaire dans l'événement pour ouvrir ":

= 0 Then If Form.RecordsetClone.RecordCount
MsgBox "Aucun enregistrement trouvé.", VbExclamation, "Erreur!"
DoCmd.Close acForm, "trouver des données"
Exit Sub
End If

Pour voir un exemple télécharger: Empêcher Open Form

Publié dans Exemples , les formulaires , les modules | Les 2 Commentaires »