Discussion :

[CinErarY]

Bonjours,

mon problème est bien simple, mais je n'ai pas trouvé la réponse sur le forum... alors voila!

Dans ma requête d'ouverture d'état, il y a un paramètre demandé a l'utilisateur (noCommande). Si le numéro de commande n'existe pas, je voudrais qu'il affiche un message d'erreur et que l'État ne s'ouvre pas. J'ai donc écrit ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub Report_NoData(Cancel As Integer)
MsgBox "La commande n'existe pas"
DoCmd.Close acReport, "Commande"
End Sub

Malheureusement, le DoCmd.Close ne marche pas parce-que ce code est executé AVANT l'affichage de l'État (il ne peut donc pas le fermer car il n'est pas ouvert). J'aimerais donc que l'affichage de l'État soit interrompue.

[helas]

N'afficher l'etat que si la requete contient au moins 1 enregistrement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
 If DCount("*","MaRequete")>0 Then Docmd.OpenReport "MonEtat"

[CinErarY]

merci!
mais ca je doit l'écrire avant d'ouvrir l'état c'est ca?
parce-que l'entrée de l'utilisateur se fait à l'intérieur de la requête, appelée à l'ouverture de l'état
j'imagine qu'il faudrait que la requête se fasse dans le formulaire appelant l'ouverture de l'état c'est ca?
sinon, y'a-t-il un moyen de le faire directement dans le code de l'état?

[Arkham46]

Bjr,

Il suffit d'utiliser le paramètre Cancel de l'événement NoData.
Pensez à lire l'aide :

Cancel : La valeur de cet argument détermine s'il faut imprimer l'état. Si l'argument Cancel est vrai (True, –1), l'état n'est pas imprimé. Vous pouvez aussi utiliser la méthode CancelEvent de l'objet DoCmd pour annuler l'impression de l'état.

[DelphiManiac]

N'afficher l'etat que si la requete contient au moins 1 enregistrement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
 If DCount("*","MaRequete")>0 Then Docmd.OpenReport "MonEtat"

Cette solution, n'est surement pas la meilleure, ca nous oblige à exécuter la requete 2 fois, une fois avant l'ouverture de l'état et une fois pour afficher l'état.

La solution passe par Cancel comme le signale Arkham46.

[CinErarY]

Mille fois merci!
Je commence mon premier poste de programmeur dans 2 semaines et comme je ne suis pas extrêmement habitué à VBA j'aimerais bien ne pas arriver sans connaître ces petits détails.

Tout fonctionne comme sur des roulettes.

[zimirk]

Je suis tombé sur un autre site où le gars a fait une fonction InformNoData()
C'est pas mal.

[hyperion13]

16 ans plus tard !
Une fonction ? Pourquoi faire ? Une sub() suffit !
De plus dans son Post#4 Arkham46 que je salue donne la solution !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Option Explicit
Private Sub report_NoData(Cancel As Integer)
    Cancel = True
End Sub

Je suis tombé sur un autre site où le gars a fait une fonction InformNoData()
C'est pas mal.