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
Sady
Bonjour,

voila mes codes..
Sur évènement click de mon bouton:

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 "Requête-Page_index",
acViewPreview, , "[No rapport] = '" & VariableNuméro & "'"
MsgBox ""
DoCmd.OpenReport "Etat-Requête-Moteur-Index",
acViewPreview, , "[No rapport] = '" & VariableNuméro & "'"
MsgBox ""
DoCmd.OpenReport "Schema", acViewPreview, , "[No rapport]
= '" & VariableNuméro & "'"
MsgBox ""
DoCmd.OpenReport "Etat-Schema-ResultatsMetrique",
acViewPreview, , "[No rapport] = '" & VariableNuméro & "'"
MsgBox ""
DoCmd.OpenReport "État-Requete-Metriquel_Index",
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:
If Err.Number = 2105 Then Resume Next
MsgBox Err.Description
Resume Exit_Commande91_Click

End Sub

Sur évènement "aucune donnée" de mon état:

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..

Ou est l'erreur ?

Merci
Sady

-----Message d'origine-----
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°



.

.





Avatar
?Lo»Paris?
"Sady" a écrit dans le message de
news:216e801c45ac9$b80b4850$
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
========================== Bonsoir Sady,

Oui cela semble correct

Dans ce cas, va voir dans le menu (de la fenêtre VBA) 'Outils' puis
'Options' ensuite l'onglet 'Général'.
Vérifie dans la zone 'Récupération d'erreurs' que l'option est bien sur
'Arrêt dans le module de classe' et non sur 'Arrêt sur toutes les erreurs'.

Au fait tu dispose de quelle version d'Access ?

°Laurent°
Avatar
Sady
Bonjour Laurent,

J'ai changé l'option qui était sur: Arrêt sur les erreurs
non gérées. Pour l'option 'Arrêt dans le module de classe'
comme tu me dit, mais ca me fait encore le meme probs..

J'ai office 2000 et winxp

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

news:216e801c45ac9$b80b4850$
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
======================== ===
Bonsoir Sady,

Oui cela semble correct

Dans ce cas, va voir dans le menu (de la fenêtre
VBA) 'Outils' puis

'Options' ensuite l'onglet 'Général'.
Vérifie dans la zone 'Récupération d'erreurs' que
l'option est bien sur

'Arrêt dans le module de classe' et non sur 'Arrêt sur
toutes les erreurs'.


Au fait tu dispose de quelle version d'Access ?

°Laurent°


.



Avatar
Sady
Mission accompli !

Bonjour Laurent et surtout merci beaucoup..

J'ai trouvé l'erreur. Il y avait une commande qui n'était
pas à la bonne place dans le code..

la voici: on error resume Next
docmd.openreport ........

Le on error resume next était a la fin et non tout de
suite avant: docmd...

Maintenant ça fonctionne.. mes états s'impriment et quand
il n'y a pas de données ils passent au suivant sans
problème et sans message d'erreur.

Merci à tous vous êtes génial !

Sady
-----Message d'origine-----
Bonjour Laurent,

J'ai changé l'option qui était sur: Arrêt sur les
erreurs

non gérées. Pour l'option 'Arrêt dans le module de
classe'

comme tu me dit, mais ca me fait encore le meme probs..

J'ai office 2000 et winxp

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

news:216e801c45ac9$b80b4850$
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
======================== ===
Bonsoir Sady,

Oui cela semble correct

Dans ce cas, va voir dans le menu (de la fenêtre
VBA) 'Outils' puis

'Options' ensuite l'onglet 'Général'.
Vérifie dans la zone 'Récupération d'erreurs' que
l'option est bien sur

'Arrêt dans le module de classe' et non sur 'Arrêt sur
toutes les erreurs'.


Au fait tu dispose de quelle version d'Access ?

°Laurent°


.

.





Avatar
?Lo»Paris?
"Sady" a écrit dans le message de
news:21d5b01c45b9d$38a05040$
Mission accompli !

Bonjour Laurent et surtout merci beaucoup..

J'ai trouvé l'erreur. Il y avait une commande qui n'était
pas à la bonne place dans le code..

la voici: on error resume Next
docmd.openreport ........

Le on error resume next était a la fin et non tout de
suite avant: docmd...

Maintenant ça fonctionne.. mes états s'impriment et quand
il n'y a pas de données ils passent au suivant sans
problème et sans message d'erreur.

Merci à tous vous êtes génial !

Sady
========================
Bien ! bon déboggage Sady ;o)

°Laurent°
Avatar
snack
Je vois également avec un peu de retard "le coup de patte" du "maître" !
Content de te revoir, Laurent, ça fait plaisir !

"?Lo»Paris?" a écrit dans le message 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?
snack wrote:
Je vois également avec un peu de retard "le coup de patte" du
"maître" ! Content de te revoir, Laurent, ça fait plaisir !

"?Lo»Paris?" a écrit dans le message 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°



Salut Snack,

T'as reçu mon courriel ?

--
°Laurent°



Avatar
snack
Salut Laurent,

Salut Snack,

T'as reçu mon courriel ?


Non !
J'ai installé SpamPal pour faire un peu le ménage dans la centaine de spam
que je reçois tous les jours. Et j'ai bien peur que tu aies été éjecté sans
que je m'en rende compte (ça m'est déjà arrivé au moins 1 fois). Il va
falloir que je le rende moins sévère parce que je vais avoir des soucis !
Pour mon adresse, il faut enlever le "ZZZ_".
a+

Avatar
?Lo»Paris?
snack wrote:
Salut Laurent,

Salut Snack,

T'as reçu mon courriel ?


Non !
J'ai installé SpamPal pour faire un peu le ménage dans la centaine de
spam que je reçois tous les jours. Et j'ai bien peur que tu aies été
éjecté sans que je m'en rende compte (ça m'est déjà arrivé au moins 1
fois). Il va falloir que je le rende moins sévère parce que je vais
avoir des soucis ! Pour mon adresse, il faut enlever le "ZZZ_".
a+


Salut Snack,

Reponse : Échec; 5.7.1 (distribution non autorisée, message refusé)

C'était juste pour te donné le bonjour, et pour pas pollué le NG

A bientôt

°Laurent°


Avatar
snack
Reponse : Échec; 5.7.1 (distribution non autorisée, message refusé)

C'était juste pour te donné le bonjour, et pour pas pollué le NG


Tu utilises toujours ton "ancienne" adresse chez Hotmail ?

1 2