OVH Cloud OVH Cloud

Impression

20 réponses
Avatar
Sady..
Bonjour =E0 tous, je suis vraiment novice en Access et VB,=20
soyez le plus d=E9taill=E9 possible dans vos r=E9ponses s.v.p

Merci

une question.. dans mon bouton imprimer j'ai cette=20
commande:=20
Private Sub Commande91_Click()
On Error GoTo Err_Commande91_Click

Dim VariableNum=E9ro As String
Dim Schema As Long
VariableNum=E9ro =3D InputBox("Entrer le num=E9ro du=20
rapport")

DoCmd.OpenReport "Projets", acViewPreview, , "[No=20
rapport] =3D '" & VariableNum=E9ro & "'"
MsgBox ""
DoCmd.OpenReport "Etat-Requ=EAte-Moteur-Index",=20
acViewPreview, , "[No rapport] =3D '" & VariableNum=E9ro & "'"
MsgBox ""
DoCmd.OpenReport "Etat_Requ=EAte-Schema-ResultatsMetrique",=20
acViewPreview, , "[No rapport] =3D '" & VariableNum=E9ro & "'"
MsgBox ""
DoCmd.OpenReport "Etat-Schema-ResultatsMetrique",=20
acViewPreview, , "[No rapport] =3D '" & VariableNum=E9ro & "'"
MsgBox ""
DoCmd.OpenReport "Requ=EAte-Page_index",=20
acViewPreview, , "[No rapport] =3D '" & VariableNum=E9ro & "'"
MsgBox ""
DoCmd.OpenReport "Schema", acViewPreview, , "[No rapport]=20
=3D '" & VariableNum=E9ro & "'"
MsgBox ""

=20
DoEvents
' DoCmd.PrintOut acSelection, , , , 5 ' 5 copies
' DoEvents
' DoCmd.Close acForm, "Projets"
=20
=20
Exit_Commande91_Click:
Exit Sub

Err_Commande91_Click:
MsgBox Err.Description
Resume Exit_Commande91_Click
=20
End Sub


Tout fonctionne bien, mais j'aimerais savoir comment=20
faire pour qu'il n'imprime que les =C9tats contenant des=20
donn=E9es au lieu de tout imprimer malgr=E9 que les =E9tats=20
soient vide ?

Merci de votre aide

Sady

10 réponses

1 2
Avatar
Gilbert
Bonjour,
Tu peux utiliser la procédure "Sur aucune donnée" de chaque état

Private Sub Report_NoData(Cancel As Integer)
MsgBox "Aucune donnée à imprimer pour la période sélectionnée.",
vbExclamation, Titre_Msg
Cancel = True
End Sub

et dans la procédure qui lance tes états
Sub TaProc
On Error GoTo Erreur
DoCmd.OpenReport ........
DoCmd.OpenReport ........
DoCmd.OpenReport ........
DoCmd.OpenReport ........
FinSub:
Exit Sub
Erreur:
If err.Number = const_AnnuleDoCmd Then
Resume Next
Else
MsgBox err.Number & " " & err.Description, , Titre_Msg_Err
End If
Resume FinSub
End Sub

Cordialement
Gilbert


"Sady.." a écrit dans le message de
news:20b4501c459a7$2d612c10$
Bonjour à tous, je suis vraiment novice en Access et VB,
soyez le plus détaillé possible dans vos réponses s.v.p

Merci

une question.. dans mon bouton imprimer j'ai cette
commande:
Private Sub Commande91_Click()
On Error GoTo Err_Commande91_Click

Dim VariableNuméro As String
Dim Schema As Long
VariableNuméro = InputBox("Entrer le numéro du
rapport")

DoCmd.OpenReport "Projets", acViewPreview, , "[No
rapport] = '" & VariableNuméro & "'"
MsgBox ""
DoCmd.OpenReport "Etat-Requête-Moteur-Index",
acViewPreview, , "[No rapport] = '" & VariableNuméro & "'"
MsgBox ""
DoCmd.OpenReport "Etat_Requête-Schema-ResultatsMetrique",
acViewPreview, , "[No rapport] = '" & VariableNuméro & "'"
MsgBox ""
DoCmd.OpenReport "Etat-Schema-ResultatsMetrique",
acViewPreview, , "[No rapport] = '" & VariableNuméro & "'"
MsgBox ""
DoCmd.OpenReport "Requête-Page_index",
acViewPreview, , "[No rapport] = '" & VariableNuméro & "'"
MsgBox ""
DoCmd.OpenReport "Schema", acViewPreview, , "[No rapport]
= '" & VariableNuméro & "'"
MsgBox ""


DoEvents
' DoCmd.PrintOut acSelection, , , , 5 ' 5 copies
' DoEvents
' DoCmd.Close acForm, "Projets"


Exit_Commande91_Click:
Exit Sub

Err_Commande91_Click:
MsgBox Err.Description
Resume Exit_Commande91_Click

End Sub


Tout fonctionne bien, mais j'aimerais savoir comment
faire pour qu'il n'imprime que les États contenant des
données au lieu de tout imprimer malgré que les états
soient vide ?

Merci de votre aide

Sady
Avatar
?Lo»Paris?
"Sady.." a écrit dans le message de
news:20b4501c459a7$2d612c10$
Bonjour à tous, je suis vraiment novice en Access et VB,
soyez le plus détaillé possible dans vos réponses s.v.p

Merci

une question.. dans mon bouton imprimer j'ai cette
commande:
Private Sub Commande91_Click()
On Error GoTo Err_Commande91_Click

Dim VariableNuméro As String
Dim Schema As Long
VariableNuméro = InputBox("Entrer le numéro du
rapport")

DoCmd.OpenReport "Projets", acViewPreview, , "[No
rapport] = '" & VariableNuméro & "'"
MsgBox ""
DoCmd.OpenReport "Etat-Requête-Moteur-Index",
acViewPreview, , "[No rapport] = '" & VariableNuméro & "'"
MsgBox ""
DoCmd.OpenReport "Etat_Requête-Schema-ResultatsMetrique",
acViewPreview, , "[No rapport] = '" & VariableNuméro & "'"
MsgBox ""
DoCmd.OpenReport "Etat-Schema-ResultatsMetrique",
acViewPreview, , "[No rapport] = '" & VariableNuméro & "'"
MsgBox ""
DoCmd.OpenReport "Requête-Page_index",
acViewPreview, , "[No rapport] = '" & VariableNuméro & "'"
MsgBox ""
DoCmd.OpenReport "Schema", acViewPreview, , "[No rapport]
= '" & VariableNuméro & "'"
MsgBox ""


DoEvents
' DoCmd.PrintOut acSelection, , , , 5 ' 5 copies
' DoEvents
' DoCmd.Close acForm, "Projets"


Exit_Commande91_Click:
Exit Sub

Err_Commande91_Click:
MsgBox Err.Description
Resume Exit_Commande91_Click

End Sub


Tout fonctionne bien, mais j'aimerais savoir comment
faire pour qu'il n'imprime que les États contenant des
données au lieu de tout imprimer malgré que les états
soient vide ?

Merci de votre aide

Sady
=======================================
Bonjour Sady,

Dans tes états tu doit géré événement 'sur aucune donnée' :

Private Sub Report_NoData(Cancel As Integer)
'// Pas de données, on annule l'impression.
Cancel = True
End Sub

Important :
Tu doit aussi géré (dans événement Click de ton bouton) l'erreur déclencher
par l'annulation de cet événement :

[...]
Err_Commande91_Click:
if err.number = 2105 then resume next
MsgBox Err.Description
Resume Exit_Commande91_Click
[...]

°Laurent°
Avatar
Raymond [mvp]
Bonjour Laurent.

Il me semble reconnaître le coup de patte d'un certain Laurent qui nous
avait laissé tombés quelques temps, le pseudo, les ° , les '//, les === et
bien sûr l'essentiel : le texte.
Me trompe-je ?
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"?Lo»Paris?" a écrit dans le message de
news:
"Sady.." a écrit dans le message de
news:20b4501c459a7$2d612c10$
Bonjour à tous, je suis vraiment novice en Access et VB,
soyez le plus détaillé possible dans vos réponses s.v.p

Merci

une question.. dans mon bouton imprimer j'ai cette
commande:
Private Sub Commande91_Click()
On Error GoTo Err_Commande91_Click

Dim VariableNuméro As String
Dim Schema As Long
VariableNuméro = InputBox("Entrer le numéro du
rapport")

DoCmd.OpenReport "Projets", acViewPreview, , "[No
rapport] = '" & VariableNuméro & "'"
MsgBox ""
DoCmd.OpenReport "Etat-Requête-Moteur-Index",
acViewPreview, , "[No rapport] = '" & VariableNuméro & "'"
MsgBox ""
DoCmd.OpenReport "Etat_Requête-Schema-ResultatsMetrique",
acViewPreview, , "[No rapport] = '" & VariableNuméro & "'"
MsgBox ""
DoCmd.OpenReport "Etat-Schema-ResultatsMetrique",
acViewPreview, , "[No rapport] = '" & VariableNuméro & "'"
MsgBox ""
DoCmd.OpenReport "Requête-Page_index",
acViewPreview, , "[No rapport] = '" & VariableNuméro & "'"
MsgBox ""
DoCmd.OpenReport "Schema", acViewPreview, , "[No rapport]
= '" & VariableNuméro & "'"
MsgBox ""


DoEvents
' DoCmd.PrintOut acSelection, , , , 5 ' 5 copies
' DoEvents
' DoCmd.Close acForm, "Projets"


Exit_Commande91_Click:
Exit Sub

Err_Commande91_Click:
MsgBox Err.Description
Resume Exit_Commande91_Click

End Sub


Tout fonctionne bien, mais j'aimerais savoir comment
faire pour qu'il n'imprime que les États contenant des
données au lieu de tout imprimer malgré que les états
soient vide ?

Merci de votre aide

Sady
======================================= >
Bonjour Sady,

Dans tes états tu doit géré événement 'sur aucune donnée' :

Private Sub Report_NoData(Cancel As Integer)
'// Pas de données, on annule l'impression.
Cancel = True
End Sub

Important :
Tu doit aussi géré (dans événement Click de ton bouton) l'erreur
déclencher

par l'annulation de cet événement :

[...]
Err_Commande91_Click:
if err.number = 2105 then resume next
MsgBox Err.Description
Resume Exit_Commande91_Click
[...]

°Laurent°




Avatar
?Lo»Paris?
"Raymond [mvp]" a écrit dans le message de
news:
Bonjour Laurent.

Il me semble reconnaître le coup de patte d'un certain Laurent qui nous
avait laissé tombés quelques temps, le pseudo, les ° , les '//, les === et
bien sûr l'essentiel : le texte.
Me trompe-je ?


Non-je ;o)

°Laurent°

Avatar
Raymond [mvp]
ça fait plaisir et ça fera plaisir aussi à d'autres ici.

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"?Lo»Paris?" a écrit dans le message de
news:
"Raymond [mvp]" a écrit dans le message de
news:
Bonjour Laurent.

Il me semble reconnaître le coup de patte d'un certain Laurent qui nous
avait laissé tombés quelques temps, le pseudo, les ° , les '//, les == et
bien sûr l'essentiel : le texte.
Me trompe-je ?


Non-je ;o)

°Laurent°





Avatar
?Lo»Paris?
"Raymond [mvp]" a écrit dans le message de
news:
ça fait plaisir et ça fera plaisir aussi à d'autres ici.


Merci Raymond, c'est sympa aussi de te retrouver.

°Laurent°

Avatar
Gilbert
J'ai oublé de préciser que
Const const_AnnuleDoCmd = 2501


--
Gilbert
"Gilbert" a écrit dans le message de
news:O$
Bonjour,
Tu peux utiliser la procédure "Sur aucune donnée" de chaque état

Private Sub Report_NoData(Cancel As Integer)
MsgBox "Aucune donnée à imprimer pour la période sélectionnée.",
vbExclamation, Titre_Msg
Cancel = True
End Sub

et dans la procédure qui lance tes états
Sub TaProc
On Error GoTo Erreur
DoCmd.OpenReport ........
DoCmd.OpenReport ........
DoCmd.OpenReport ........
DoCmd.OpenReport ........
FinSub:
Exit Sub
Erreur:
If err.Number = const_AnnuleDoCmd Then
Resume Next
Else
MsgBox err.Number & " " & err.Description, , Titre_Msg_Err
End If
Resume FinSub
End Sub

Cordialement
Gilbert


"Sady.." a écrit dans le message de
news:20b4501c459a7$2d612c10$
Bonjour à tous, je suis vraiment novice en Access et VB,
soyez le plus détaillé possible dans vos réponses s.v.p

Merci

une question.. dans mon bouton imprimer j'ai cette
commande:
Private Sub Commande91_Click()
On Error GoTo Err_Commande91_Click

Dim VariableNuméro As String
Dim Schema As Long
VariableNuméro = InputBox("Entrer le numéro du
rapport")

DoCmd.OpenReport "Projets", acViewPreview, , "[No
rapport] = '" & VariableNuméro & "'"
MsgBox ""
DoCmd.OpenReport "Etat-Requête-Moteur-Index",
acViewPreview, , "[No rapport] = '" & VariableNuméro & "'"
MsgBox ""
DoCmd.OpenReport "Etat_Requête-Schema-ResultatsMetrique",
acViewPreview, , "[No rapport] = '" & VariableNuméro & "'"
MsgBox ""
DoCmd.OpenReport "Etat-Schema-ResultatsMetrique",
acViewPreview, , "[No rapport] = '" & VariableNuméro & "'"
MsgBox ""
DoCmd.OpenReport "Requête-Page_index",
acViewPreview, , "[No rapport] = '" & VariableNuméro & "'"
MsgBox ""
DoCmd.OpenReport "Schema", acViewPreview, , "[No rapport]
= '" & VariableNuméro & "'"
MsgBox ""


DoEvents
' DoCmd.PrintOut acSelection, , , , 5 ' 5 copies
' DoEvents
' DoCmd.Close acForm, "Projets"


Exit_Commande91_Click:
Exit Sub

Err_Commande91_Click:
MsgBox Err.Description
Resume Exit_Commande91_Click

End Sub


Tout fonctionne bien, mais j'aimerais savoir comment
faire pour qu'il n'imprime que les États contenant des
données au lieu de tout imprimer malgré que les états
soient vide ?

Merci de votre aide

Sady




Avatar
Sady
Bonjour,

j'ai inscrit le code dans mon état et le problème
maintenant est qu'il ne passe pas au suivant.. dès qu'il
voit un état sans données il m'ouvre la boite: L'action
OpenReport à été annulée. Il n'ouvre ensuite plus les
états suivant qui contiennent eux d'autres données..

Sady


-----Message d'origine-----
"Sady.." a écrit
dans le message de

news:20b4501c459a7$2d612c10$
Bonjour à tous, je suis vraiment novice en Access et VB,
soyez le plus détaillé possible dans vos réponses s.v.p

Merci

une question.. dans mon bouton imprimer j'ai cette
commande:
Private Sub Commande91_Click()
On Error GoTo Err_Commande91_Click

Dim VariableNuméro As String
Dim Schema As Long
VariableNuméro = InputBox("Entrer le numéro du
rapport")

DoCmd.OpenReport "Projets", acViewPreview, , "[No
rapport] = '" & VariableNuméro & "'"
MsgBox ""
DoCmd.OpenReport "Etat-Requête-Moteur-Index",
acViewPreview, , "[No rapport] = '" & VariableNuméro
& "'"

MsgBox ""
DoCmd.OpenReport "Etat_Requête-Schema-ResultatsMetrique",
acViewPreview, , "[No rapport] = '" & VariableNuméro
& "'"

MsgBox ""
DoCmd.OpenReport "Etat-Schema-ResultatsMetrique",
acViewPreview, , "[No rapport] = '" & VariableNuméro
& "'"

MsgBox ""
DoCmd.OpenReport "Requête-Page_index",
acViewPreview, , "[No rapport] = '" & VariableNuméro
& "'"

MsgBox ""
DoCmd.OpenReport "Schema", acViewPreview, , "[No rapport]
= '" & VariableNuméro & "'"
MsgBox ""


DoEvents
' DoCmd.PrintOut acSelection, , , , 5 ' 5 copies
' DoEvents
' DoCmd.Close acForm, "Projets"


Exit_Commande91_Click:
Exit Sub

Err_Commande91_Click:
MsgBox Err.Description
Resume Exit_Commande91_Click

End Sub


Tout fonctionne bien, mais j'aimerais savoir comment
faire pour qu'il n'imprime que les États contenant des
données au lieu de tout imprimer malgré que les états
soient vide ?

Merci de votre aide

Sady
======================== ================

Bonjour Sady,

Dans tes états tu doit géré événement 'sur aucune
donnée' :


Private Sub Report_NoData(Cancel As Integer)
'// Pas de données, on annule l'impression.
Cancel = True
End Sub

Important :
Tu doit aussi géré (dans événement Click de ton bouton)
l'erreur déclencher

par l'annulation de cet événement :

[...]
Err_Commande91_Click:
if err.number = 2105 then resume next
MsgBox Err.Description
Resume Exit_Commande91_Click
[...]

°Laurent°


.



Avatar
?Lo»Paris?
"Sady" a écrit dans le message de
news:213fb01c45a09$049781a0$
Bonjour,

j'ai inscrit le code dans mon état et le problème
maintenant est qu'il ne passe pas au suivant.. dès qu'il
voit un état sans données il m'ouvre la boite: L'action
OpenReport à été annulée. Il n'ouvre ensuite plus les
états suivant qui contiennent eux d'autres données..

Sady
**************************

Sady,

Tu à oublier le code du formulaire, (gestion des erreurs sur événement Click
de ton bouton)

°Laurent°
Avatar
Sady
Pour mieux se comprendre,

J'ai inscrit le code entier sur évenement click de mon
bouton imprimer du formulaire "menu":
Err_Commande91_Click:
if err.number = 2105 then resume next
MsgBox Err.Description
Resume Exit_Commande91_Click

Et dans l'états j'ai inscrit sur aucune donnée: Private
Sub Report_NoData(Cancel As Integer)
'// Pas de données, on annule l'impression.
Cancel = True
End Sub

Et ca ne passe pas au suivant, annule les autres états à
imprimer malgré qu'ils aient des données.. Message:
L'action OpenReport a été annulée..

Est-ce bien la commande que je devais faire et au bon
endroits ?

Merci
Sady


-----Message d'origine-----
"Sady" a écrit
dans le message de

news:213fb01c45a09$049781a0$
Bonjour,

j'ai inscrit le code dans mon état et le problème
maintenant est qu'il ne passe pas au suivant.. dès qu'il
voit un état sans données il m'ouvre la boite: L'action
OpenReport à été annulée. Il n'ouvre ensuite plus les
états suivant qui contiennent eux d'autres données..

Sady
**************************

Sady,

Tu à oublier le code du formulaire, (gestion des erreurs
sur événement Click

de ton bouton)

°Laurent°



.



1 2