voici mon probl=E8me. J'ai un bouton imprimer sur un=20
formulaire appel=E9 "menu". Ce formulaire est ma page=20
d'entr=E9e dans ma base.. mon formulaire g=E9n=E9ral. Lorsque=20
j'imprime (avec la proc=E9dure suivante)il me rajoute mon=20
formulaire "menu" dans l'impression. Il imprime donc tout=20
les =E9tats suivant + mon formulaire de menu avec les=20
boutons etc.. ce que je ne veux pas. Je n'arrive pas =E0=20
trouver pourquoi il fait =E7a. Avez-vous une id=E9e ?
Merci =E0 vous tous
Sady
Private Sub ImprimerRapport_Click()
On Error GoTo Err_ImprimerRapport_Click
=20
Dim VariableNum=E9ro As String
Dim Schema As Long
VariableNum=E9ro =3D InputBox("Entrer le num=E9ro du=20
rapport")
=20
On Error Resume Next
DoCmd.OpenReport "Projets", acViewNormal, , "[No=20
rapport] =3D '" & VariableNum=E9ro & "'"
Exit_ImprimerRapport_Click:
Exit Sub
=20
Err_ImprimerRapport_Click:
If Err.Number =3D 2105 Then Resume Next
MsgBox Err.Description
Resume Exit_ImprimerRapport_Click
=20
End Sub
Peut-il y avoir un autre endroit dans mon code qui appelle le formulaire menu et que je pourrais supprimer ? Étant novice merci d'être très explicite.
Sady
-----Message d'origine----- Bonjour à tous,
voici mon problème. J'ai un bouton imprimer sur un formulaire appelé "menu". Ce formulaire est ma page d'entrée dans ma base.. mon formulaire général. Lorsque j'imprime (avec la procédure suivante)il me rajoute mon formulaire "menu" dans l'impression. Il imprime donc tout
les états suivant + mon formulaire de menu avec les boutons etc.. ce que je ne veux pas. Je n'arrive pas à trouver pourquoi il fait ça. Avez-vous une idée ?
Merci à vous tous Sady
Private Sub ImprimerRapport_Click() On Error GoTo Err_ImprimerRapport_Click
Dim VariableNuméro As String Dim Schema As Long VariableNuméro = InputBox("Entrer le numéro du rapport")
On Error Resume Next DoCmd.OpenReport "Projets", acViewNormal, , "[No rapport] = '" & VariableNuméro & "'"
Peut-il y avoir un autre endroit dans mon code qui
appelle le formulaire menu et que je pourrais supprimer ?
Étant novice merci d'être très explicite.
Sady
-----Message d'origine-----
Bonjour à tous,
voici mon problème. J'ai un bouton imprimer sur un
formulaire appelé "menu". Ce formulaire est ma page
d'entrée dans ma base.. mon formulaire général. Lorsque
j'imprime (avec la procédure suivante)il me rajoute mon
formulaire "menu" dans l'impression. Il imprime donc
tout
les états suivant + mon formulaire de menu avec les
boutons etc.. ce que je ne veux pas. Je n'arrive pas à
trouver pourquoi il fait ça. Avez-vous une idée ?
Merci à vous tous
Sady
Private Sub ImprimerRapport_Click()
On Error GoTo Err_ImprimerRapport_Click
Dim VariableNuméro As String
Dim Schema As Long
VariableNuméro = InputBox("Entrer le numéro du
rapport")
On Error Resume Next
DoCmd.OpenReport "Projets", acViewNormal, , "[No
rapport] = '" & VariableNuméro & "'"
Peut-il y avoir un autre endroit dans mon code qui appelle le formulaire menu et que je pourrais supprimer ? Étant novice merci d'être très explicite.
Sady
-----Message d'origine----- Bonjour à tous,
voici mon problème. J'ai un bouton imprimer sur un formulaire appelé "menu". Ce formulaire est ma page d'entrée dans ma base.. mon formulaire général. Lorsque j'imprime (avec la procédure suivante)il me rajoute mon formulaire "menu" dans l'impression. Il imprime donc tout
les états suivant + mon formulaire de menu avec les boutons etc.. ce que je ne veux pas. Je n'arrive pas à trouver pourquoi il fait ça. Avez-vous une idée ?
Merci à vous tous Sady
Private Sub ImprimerRapport_Click() On Error GoTo Err_ImprimerRapport_Click
Dim VariableNuméro As String Dim Schema As Long VariableNuméro = InputBox("Entrer le numéro du rapport")
On Error Resume Next DoCmd.OpenReport "Projets", acViewNormal, , "[No rapport] = '" & VariableNuméro & "'"
Err_ImprimerRapport_Click: If Err.Number = 2105 Then Resume Next MsgBox Err.Description Resume Exit_ImprimerRapport_Click
End Sub .
Eric
Bonjour Sady,
Enlèves le DoCmd.PrintOut acSelection, , , , 5 car comme c'est ton formulaire qui a le focus, cette commande te l'imprime 5 fois.
A+ Eric
"Sady" écrivait news:227e001c45d3c $22052540$:
Bonjour à tous,
voici mon problème. J'ai un bouton imprimer sur un formulaire appelé "menu". Ce formulaire est ma page d'entrée dans ma base.. mon formulaire général. Lorsque j'imprime (avec la procédure suivante)il me rajoute mon formulaire "menu" dans l'impression. Il imprime donc tout les états suivant + mon formulaire de menu avec les boutons etc.. ce que je ne veux pas. Je n'arrive pas à trouver pourquoi il fait ça. Avez-vous une idée ?
Merci à vous tous Sady
Private Sub ImprimerRapport_Click() On Error GoTo Err_ImprimerRapport_Click
Dim VariableNuméro As String Dim Schema As Long VariableNuméro = InputBox("Entrer le numéro du rapport")
On Error Resume Next DoCmd.OpenReport "Projets", acViewNormal, , "[No rapport] = '" & VariableNuméro & "'"
voici mon problème. J'ai un bouton imprimer sur un
formulaire appelé "menu". Ce formulaire est ma page
d'entrée dans ma base.. mon formulaire général. Lorsque
j'imprime (avec la procédure suivante)il me rajoute mon
formulaire "menu" dans l'impression. Il imprime donc tout
les états suivant + mon formulaire de menu avec les
boutons etc.. ce que je ne veux pas. Je n'arrive pas à
trouver pourquoi il fait ça. Avez-vous une idée ?
Merci à vous tous
Sady
Private Sub ImprimerRapport_Click()
On Error GoTo Err_ImprimerRapport_Click
Dim VariableNuméro As String
Dim Schema As Long
VariableNuméro = InputBox("Entrer le numéro du
rapport")
On Error Resume Next
DoCmd.OpenReport "Projets", acViewNormal, , "[No
rapport] = '" & VariableNuméro & "'"
Enlèves le DoCmd.PrintOut acSelection, , , , 5 car comme c'est ton formulaire qui a le focus, cette commande te l'imprime 5 fois.
A+ Eric
"Sady" écrivait news:227e001c45d3c $22052540$:
Bonjour à tous,
voici mon problème. J'ai un bouton imprimer sur un formulaire appelé "menu". Ce formulaire est ma page d'entrée dans ma base.. mon formulaire général. Lorsque j'imprime (avec la procédure suivante)il me rajoute mon formulaire "menu" dans l'impression. Il imprime donc tout les états suivant + mon formulaire de menu avec les boutons etc.. ce que je ne veux pas. Je n'arrive pas à trouver pourquoi il fait ça. Avez-vous une idée ?
Merci à vous tous Sady
Private Sub ImprimerRapport_Click() On Error GoTo Err_ImprimerRapport_Click
Dim VariableNuméro As String Dim Schema As Long VariableNuméro = InputBox("Entrer le numéro du rapport")
On Error Resume Next DoCmd.OpenReport "Projets", acViewNormal, , "[No rapport] = '" & VariableNuméro & "'"
End Sub Private Sub No_rapport_AfterUpdate() Me.[No_Rapport].DefaultValue = """" & Me.[No Rapport] & """" ' pour alpha
End Sub
Private Sub Commande32_Click()
Dim strDocName As String Dim strWhere As String strDocName = "État-Requete-Imperial_Index" strWhere = "[No rapport]='" & Me![No Rapport] & "'"
DoCmd.OpenReport strDocName, acPreview, , strWhere End Sub
Et dans tous mes états:
Private Sub Report_NoData(Cancel As Integer) '// Pas de données, on annule l'impression. Cancel = True End Sub
Tout fonctionnait bien.. maintenant 1 parmi ceux-ci me fait l'erreur: Annulé OpenReport sur la ligne: DoCmd.OpenReport strDocName, acPreview, , strWhere..
Pourtant je n'ai rien changé... je cherche depuis deux jours et j'ai rien trouvé.. je ne comprends pas que cette erreur soit apparut soudainement..
Quelqu'un a une idée ?
Merci encore Sady
-----Message d'origine----- Bonjour Sady,
Enlèves le DoCmd.PrintOut acSelection, , , , 5 car comme c'est ton
formulaire qui a le focus, cette commande te l'imprime 5 fois.
A+ Eric
"Sady" écrivait news:227e001c45d3c
$22052540$:
Bonjour à tous,
voici mon problème. J'ai un bouton imprimer sur un formulaire appelé "menu". Ce formulaire est ma page d'entrée dans ma base.. mon formulaire général. Lorsque
j'imprime (avec la procédure suivante)il me rajoute mon
formulaire "menu" dans l'impression. Il imprime donc tout
les états suivant + mon formulaire de menu avec les boutons etc.. ce que je ne veux pas. Je n'arrive pas à trouver pourquoi il fait ça. Avez-vous une idée ?
Merci à vous tous Sady
Private Sub ImprimerRapport_Click() On Error GoTo Err_ImprimerRapport_Click
Dim VariableNuméro As String Dim Schema As Long VariableNuméro = InputBox("Entrer le numéro du rapport")
On Error Resume Next DoCmd.OpenReport "Projets", acViewNormal, , "[No rapport] = '" & VariableNuméro & "'"
End Sub
Private Sub No_rapport_AfterUpdate()
Me.[No_Rapport].DefaultValue = """" & Me.[No Rapport]
& """" ' pour alpha
End Sub
Private Sub Commande32_Click()
Dim strDocName As String
Dim strWhere As String
strDocName = "État-Requete-Imperial_Index"
strWhere = "[No rapport]='" & Me![No Rapport] & "'"
DoCmd.OpenReport strDocName, acPreview, , strWhere
End Sub
Et dans tous mes états:
Private Sub Report_NoData(Cancel As Integer)
'// Pas de données, on annule l'impression.
Cancel = True
End Sub
Tout fonctionnait bien.. maintenant 1 parmi ceux-ci me
fait l'erreur: Annulé OpenReport sur la ligne:
DoCmd.OpenReport strDocName, acPreview, , strWhere..
Pourtant je n'ai rien changé... je cherche depuis deux
jours et j'ai rien trouvé.. je ne comprends pas que cette
erreur soit apparut soudainement..
Quelqu'un a une idée ?
Merci encore
Sady
-----Message d'origine-----
Bonjour Sady,
Enlèves le DoCmd.PrintOut acSelection, , , , 5 car comme
c'est ton
formulaire qui a le focus, cette commande te l'imprime 5
fois.
voici mon problème. J'ai un bouton imprimer sur un
formulaire appelé "menu". Ce formulaire est ma page
d'entrée dans ma base.. mon formulaire général.
Lorsque
j'imprime (avec la procédure suivante)il me rajoute
mon
formulaire "menu" dans l'impression. Il imprime donc
tout
les états suivant + mon formulaire de menu avec les
boutons etc.. ce que je ne veux pas. Je n'arrive pas à
trouver pourquoi il fait ça. Avez-vous une idée ?
Merci à vous tous
Sady
Private Sub ImprimerRapport_Click()
On Error GoTo Err_ImprimerRapport_Click
Dim VariableNuméro As String
Dim Schema As Long
VariableNuméro = InputBox("Entrer le numéro du
rapport")
On Error Resume Next
DoCmd.OpenReport "Projets", acViewNormal, , "[No
rapport] = '" & VariableNuméro & "'"
End Sub Private Sub No_rapport_AfterUpdate() Me.[No_Rapport].DefaultValue = """" & Me.[No Rapport] & """" ' pour alpha
End Sub
Private Sub Commande32_Click()
Dim strDocName As String Dim strWhere As String strDocName = "État-Requete-Imperial_Index" strWhere = "[No rapport]='" & Me![No Rapport] & "'"
DoCmd.OpenReport strDocName, acPreview, , strWhere End Sub
Et dans tous mes états:
Private Sub Report_NoData(Cancel As Integer) '// Pas de données, on annule l'impression. Cancel = True End Sub
Tout fonctionnait bien.. maintenant 1 parmi ceux-ci me fait l'erreur: Annulé OpenReport sur la ligne: DoCmd.OpenReport strDocName, acPreview, , strWhere..
Pourtant je n'ai rien changé... je cherche depuis deux jours et j'ai rien trouvé.. je ne comprends pas que cette erreur soit apparut soudainement..
Quelqu'un a une idée ?
Merci encore Sady
-----Message d'origine----- Bonjour Sady,
Enlèves le DoCmd.PrintOut acSelection, , , , 5 car comme c'est ton
formulaire qui a le focus, cette commande te l'imprime 5 fois.
A+ Eric
"Sady" écrivait news:227e001c45d3c
$22052540$:
Bonjour à tous,
voici mon problème. J'ai un bouton imprimer sur un formulaire appelé "menu". Ce formulaire est ma page d'entrée dans ma base.. mon formulaire général. Lorsque
j'imprime (avec la procédure suivante)il me rajoute mon
formulaire "menu" dans l'impression. Il imprime donc tout
les états suivant + mon formulaire de menu avec les boutons etc.. ce que je ne veux pas. Je n'arrive pas à trouver pourquoi il fait ça. Avez-vous une idée ?
Merci à vous tous Sady
Private Sub ImprimerRapport_Click() On Error GoTo Err_ImprimerRapport_Click
Dim VariableNuméro As String Dim Schema As Long VariableNuméro = InputBox("Entrer le numéro du rapport")
On Error Resume Next DoCmd.OpenReport "Projets", acViewNormal, , "[No rapport] = '" & VariableNuméro & "'"
End Sub Private Sub No_rapport_AfterUpdate() Me.[No_Rapport].DefaultValue = """" & Me.[No Rapport] & """" ' pour alpha
End Sub
Private Sub Commande32_Click()
Dim strDocName As String Dim strWhere As String strDocName = "État-Requete-Imperial_Index" strWhere = "[No rapport]='" & Me![No Rapport] & "'"
DoCmd.OpenReport strDocName, acPreview, , strWhere End Sub
Et dans tous mes états:
Private Sub Report_NoData(Cancel As Integer) '// Pas de données, on annule l'impression. Cancel = True End Sub
Tout fonctionnait bien.. maintenant 1 parmi ceux-ci me fait l'erreur: Annulé OpenReport sur la ligne: DoCmd.OpenReport strDocName, acPreview, , strWhere..
Pourtant je n'ai rien changé... je cherche depuis deux jours et j'ai rien trouvé.. je ne comprends pas que cette
erreur soit apparut soudainement..
Quelqu'un a une idée ?
Merci encore Sady
-----Message d'origine----- Bonjour Sady,
Enlèves le DoCmd.PrintOut acSelection, , , , 5 car comme
c'est ton
formulaire qui a le focus, cette commande te l'imprime 5
fois.
A+ Eric
"Sady" écrivait news:227e001c45d3c
$22052540$:
Bonjour à tous,
voici mon problème. J'ai un bouton imprimer sur un formulaire appelé "menu". Ce formulaire est ma page d'entrée dans ma base.. mon formulaire général. Lorsque
j'imprime (avec la procédure suivante)il me rajoute mon
formulaire "menu" dans l'impression. Il imprime donc tout
les états suivant + mon formulaire de menu avec les boutons etc.. ce que je ne veux pas. Je n'arrive pas à
trouver pourquoi il fait ça. Avez-vous une idée ?
Merci à vous tous Sady
Private Sub ImprimerRapport_Click() On Error GoTo Err_ImprimerRapport_Click
Dim VariableNuméro As String Dim Schema As Long VariableNuméro = InputBox("Entrer le numéro du rapport")
On Error Resume Next DoCmd.OpenReport "Projets", acViewNormal, , "[No rapport] = '" & VariableNuméro & "'"
End Sub
Private Sub No_rapport_AfterUpdate()
Me.[No_Rapport].DefaultValue = """" & Me.[No Rapport]
& """" ' pour alpha
End Sub
Private Sub Commande32_Click()
Dim strDocName As String
Dim strWhere As String
strDocName = "État-Requete-Imperial_Index"
strWhere = "[No rapport]='" & Me![No Rapport] & "'"
DoCmd.OpenReport strDocName, acPreview, , strWhere
End Sub
Et dans tous mes états:
Private Sub Report_NoData(Cancel As Integer)
'// Pas de données, on annule l'impression.
Cancel = True
End Sub
Tout fonctionnait bien.. maintenant 1 parmi ceux-ci me
fait l'erreur: Annulé OpenReport sur la ligne:
DoCmd.OpenReport strDocName, acPreview, , strWhere..
Pourtant je n'ai rien changé... je cherche depuis deux
jours et j'ai rien trouvé.. je ne comprends pas que
cette
erreur soit apparut soudainement..
Quelqu'un a une idée ?
Merci encore
Sady
-----Message d'origine-----
Bonjour Sady,
Enlèves le DoCmd.PrintOut acSelection, , , , 5 car
comme
c'est ton
formulaire qui a le focus, cette commande te l'imprime
5
voici mon problème. J'ai un bouton imprimer sur un
formulaire appelé "menu". Ce formulaire est ma page
d'entrée dans ma base.. mon formulaire général.
Lorsque
j'imprime (avec la procédure suivante)il me rajoute
mon
formulaire "menu" dans l'impression. Il imprime donc
tout
les états suivant + mon formulaire de menu avec les
boutons etc.. ce que je ne veux pas. Je n'arrive pas
à
trouver pourquoi il fait ça. Avez-vous une idée ?
Merci à vous tous
Sady
Private Sub ImprimerRapport_Click()
On Error GoTo Err_ImprimerRapport_Click
Dim VariableNuméro As String
Dim Schema As Long
VariableNuméro = InputBox("Entrer le numéro du
rapport")
On Error Resume Next
DoCmd.OpenReport "Projets", acViewNormal, , "[No
rapport] = '" & VariableNuméro & "'"
End Sub Private Sub No_rapport_AfterUpdate() Me.[No_Rapport].DefaultValue = """" & Me.[No Rapport] & """" ' pour alpha
End Sub
Private Sub Commande32_Click()
Dim strDocName As String Dim strWhere As String strDocName = "État-Requete-Imperial_Index" strWhere = "[No rapport]='" & Me![No Rapport] & "'"
DoCmd.OpenReport strDocName, acPreview, , strWhere End Sub
Et dans tous mes états:
Private Sub Report_NoData(Cancel As Integer) '// Pas de données, on annule l'impression. Cancel = True End Sub
Tout fonctionnait bien.. maintenant 1 parmi ceux-ci me fait l'erreur: Annulé OpenReport sur la ligne: DoCmd.OpenReport strDocName, acPreview, , strWhere..
Pourtant je n'ai rien changé... je cherche depuis deux jours et j'ai rien trouvé.. je ne comprends pas que cette
erreur soit apparut soudainement..
Quelqu'un a une idée ?
Merci encore Sady
-----Message d'origine----- Bonjour Sady,
Enlèves le DoCmd.PrintOut acSelection, , , , 5 car comme
c'est ton
formulaire qui a le focus, cette commande te l'imprime 5
fois.
A+ Eric
"Sady" écrivait news:227e001c45d3c
$22052540$:
Bonjour à tous,
voici mon problème. J'ai un bouton imprimer sur un formulaire appelé "menu". Ce formulaire est ma page d'entrée dans ma base.. mon formulaire général. Lorsque
j'imprime (avec la procédure suivante)il me rajoute mon
formulaire "menu" dans l'impression. Il imprime donc tout
les états suivant + mon formulaire de menu avec les boutons etc.. ce que je ne veux pas. Je n'arrive pas à
trouver pourquoi il fait ça. Avez-vous une idée ?
Merci à vous tous Sady
Private Sub ImprimerRapport_Click() On Error GoTo Err_ImprimerRapport_Click
Dim VariableNuméro As String Dim Schema As Long VariableNuméro = InputBox("Entrer le numéro du rapport")
On Error Resume Next DoCmd.OpenReport "Projets", acViewNormal, , "[No rapport] = '" & VariableNuméro & "'"