Discussion :

[Subkill]

Bonjour,

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

Code :

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

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 :

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

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 :

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

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?

[helas]

soit

Code :

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

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

[Subkill]

Avec

Code :

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

DoCmd.Close acReport,Me.Name

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

soit

Code :

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

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