Quand je ferme un état (report) il se met en mode création avant pourquoi ?

Bonjour,

J'ouvre un état (report) en appelant la méthode suivante:

Code:

---

1 2 3 4 5 6 7 8 9 10

Function SortieCartouche() On Error GoTo Err_SortieCartouche   DefPAPERSIZE 5, "Sortie Inventaire" DoCmd.OpenReport "Sortie Inventaire", acViewPreview   Err_SortieCartouche: DoCmd.Close   End Function

---

Dans le code du rapport il y a la méthode suivante:

Code:

---

1 2 3 4

Private Sub Report_NoData(Cancel As Integer) MsgBox "Il n'y a aucune donnée à imprimer.", vbOKOnly + vbInformation, "Impression" Cancel = True End Sub

---

Quand il n'y a aucune donnée l'état s'ouvre sur fond gris et le message çi-haut apparaît. Tout est bien jusque là. Cependant quand je clique sur "Ok" l'état se met en mode création avant de se fermer. Je dois aussi gérer les erreurs sur l'état et mettre dans le code de la méthode SortieCartouche():

Code:

---

1 2 3

On Error GoTo Err_SortieCartouche Err_SortieCartouche: DoCmd.Close

---

Sinon l'état ne se ferme pas.

Ma question est : Est-ce que c'est possible que quand je clique sur "Ok" que mon état ne se mette pas en mode création avant de se fermer?

soit

Code:

---

1 2 3 4 5 6

Private Sub Report_NoData(Cancel As Integer) MsgBox "Il n'y a aucune donnée à imprimer.", vbOKOnly + vbInformation, "Impression" Cancel = True DoCmd.Close acReport,Me.Name End Sub

---

soit tester avant le contenu de la table ou requete avec DCount par exemple

Avec

Code:

---

DoCmd.Close acReport,Me.Name

---

J'ai un message d'erreur, donc j'ai utilisé un DCount et tout fonctionne bien. Merci

Citation:

---

Envoyé par helas

soit

Code:

---

1 2 3 4 5 6

Private Sub Report_NoData(Cancel As Integer) MsgBox "Il n'y a aucune donnée à imprimer.", vbOKOnly + vbInformation, "Impression" Cancel = True DoCmd.Close acReport,Me.Name End Sub

---

soit tester avant le contenu de la table ou requete avec DCount par exemple

---