Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access Supprimer le message impression

Supprimer le message impression

4 réponses
Avatar
Marie-Claire
Bonjour,
Je reviens toujours avec ce probl=E8me car je n'ai pas=20
r=E9ussi =E0 le r=E9soudre.

J'ai trouv=E9 sur le site http://www.mvps.org/accessfr/
'=C9limine le message "Printing"'.
Et j'ai voulu l'adapter =E0 mes besoins. Mais tout d'abord :
Que veut dire un formulaire (que vous ouvrez en mode=20
cach=E9), est-ce simplement cocher "Cach=E9" dans les=20
propri=E9t=E9s, par ce que c'est ce que j'ai fait, mais il est=20
toujours visible.

J'ai fait comme ci-dessous mais visiblement j'ai du faire=20
une erreur car l'ouverture du form2 se fait normalement et=20
en plus il y a aussi le message que je ne veux pas voir,=20
c'est-=E0 dire 'AppelOffre
fichier C:\AppelOffre.snp.'
Voil=E0 mon code:
On Error Resume Next
DoCmd.OpenForm "Form2"
DoEvents: DoEvents: DoEvents

DoCmd.OutputTo acOutputReport, "AppelOffre",=20
acFormatSNP, "C:\AppelOffre.snp"
Dim Message As New CDO.Message
With Message
.To =3D "mc@filorg.com"
.Subject =3D "Commandere=E7ue"
.TextBody =3D "Bonne jounn=E9e"
.AddAttachment ("C:\AppelOffre.snp")
.Send
End With
Set Message =3D Nothing
DoCmd.Close acForm, "Form2"


Dans le form2 j'ai:

Private Sub Form_Timer()
Call sWatchAccess(Application.hWndAccessApp)

End Sub
Timer r=E9gl=E9 sur 300

Le probl=E8me est le suivant:
Le message envoy=E9 par Access: AppelOffre
fichier C:\AppelOffre.snp.
est toujours activ=E9 et de plus le form2 s'ouvre et reste=20
ouvert 3 =E0 4 secondes c'est =E0 dire le temps pendant lequel=20
la MsgBox est ouverte.

Comment dois-je adapter cette application dans mon code=20
pour qu'elle fonctionne ou de quoi dois-je tenir compte.

Aidez-moi s'il vous pla=EEt, je suis perdue.
Merci pour votre pr=E9cieuse aide.
Marie-Claire
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Gafish
Bonjour,

- Pour cacher ton formulaire, tu passes sa propriété visible à 'false'
- As tu recopié aussi tout le code dans le dernier cadre bleu, et si oui où
?

Arnaud

"Marie-Claire" a écrit dans le message
news: 088301c4d874$81c8e850$
Bonjour,
Je reviens toujours avec ce problème car je n'ai pas
réussi à le résoudre.

J'ai trouvé sur le site http://www.mvps.org/accessfr/
'Élimine le message "Printing"'.
Et j'ai voulu l'adapter à mes besoins. Mais tout d'abord :
Que veut dire un formulaire (que vous ouvrez en mode
caché), est-ce simplement cocher "Caché" dans les
propriétés, par ce que c'est ce que j'ai fait, mais il est
toujours visible.

J'ai fait comme ci-dessous mais visiblement j'ai du faire
une erreur car l'ouverture du form2 se fait normalement et
en plus il y a aussi le message que je ne veux pas voir,
c'est-à dire 'AppelOffre
fichier C:AppelOffre.snp.'
Voilà mon code:
On Error Resume Next
DoCmd.OpenForm "Form2"
DoEvents: DoEvents: DoEvents

DoCmd.OutputTo acOutputReport, "AppelOffre",
acFormatSNP, "C:AppelOffre.snp"
Dim Message As New CDO.Message
With Message
.To = ""
.Subject = "Commandereçue"
.TextBody = "Bonne jounnée"
.AddAttachment ("C:AppelOffre.snp")
.Send
End With
Set Message = Nothing
DoCmd.Close acForm, "Form2"


Dans le form2 j'ai:

Private Sub Form_Timer()
Call sWatchAccess(Application.hWndAccessApp)

End Sub
Timer réglé sur 300

Le problème est le suivant:
Le message envoyé par Access: AppelOffre
fichier C:AppelOffre.snp.
est toujours activé et de plus le form2 s'ouvre et reste
ouvert 3 à 4 secondes c'est à dire le temps pendant lequel
la MsgBox est ouverte.

Comment dois-je adapter cette application dans mon code
pour qu'elle fonctionne ou de quoi dois-je tenir compte.

Aidez-moi s'il vous plaît, je suis perdue.
Merci pour votre précieuse aide.
Marie-Claire
Avatar
Marie-Claire
Bonjour,
Pour le formulaire j'ai fait Propriétés: Atributs, caché,
je pense que c'est ça? Mais il s'ouvre.
Le code dans le dernier cadre bleu je l'ai copié une fois
dans un module et comme ça ne marchait pas, j'ai supprimé
le module et je l'ai copié dans le formulaire Form2, mais
toujours le même problème.
Si vous pensez avoir une solution...
Marie-Claire
-----Message d'origine-----
Bonjour,

- Pour cacher ton formulaire, tu passes sa propriété
visible à 'false'

- As tu recopié aussi tout le code dans le dernier cadre
bleu, et si oui où

?

Arnaud

"Marie-Claire" a
écrit dans le message

news: 088301c4d874$81c8e850$
Bonjour,
Je reviens toujours avec ce problème car je n'ai pas
réussi à le résoudre.

J'ai trouvé sur le site http://www.mvps.org/accessfr/
'Élimine le message "Printing"'.
Et j'ai voulu l'adapter à mes besoins. Mais tout d'abord :
Que veut dire un formulaire (que vous ouvrez en mode
caché), est-ce simplement cocher "Caché" dans les
propriétés, par ce que c'est ce que j'ai fait, mais il est
toujours visible.

J'ai fait comme ci-dessous mais visiblement j'ai du faire
une erreur car l'ouverture du form2 se fait normalement et
en plus il y a aussi le message que je ne veux pas voir,
c'est-à dire 'AppelOffre
fichier C:AppelOffre.snp.'
Voilà mon code:
On Error Resume Next
DoCmd.OpenForm "Form2"
DoEvents: DoEvents: DoEvents

DoCmd.OutputTo acOutputReport, "AppelOffre",
acFormatSNP, "C:AppelOffre.snp"
Dim Message As New CDO.Message
With Message
.To = ""
.Subject = "Commandereçue"
.TextBody = "Bonne jounnée"
.AddAttachment ("C:AppelOffre.snp")
.Send
End With
Set Message = Nothing
DoCmd.Close acForm, "Form2"


Dans le form2 j'ai:

Private Sub Form_Timer()
Call sWatchAccess(Application.hWndAccessApp)

End Sub
Timer réglé sur 300

Le problème est le suivant:
Le message envoyé par Access: AppelOffre
fichier C:AppelOffre.snp.
est toujours activé et de plus le form2 s'ouvre et reste
ouvert 3 à 4 secondes c'est à dire le temps pendant lequel
la MsgBox est ouverte.

Comment dois-je adapter cette application dans mon code
pour qu'elle fonctionne ou de quoi dois-je tenir compte.

Aidez-moi s'il vous plaît, je suis perdue.
Merci pour votre précieuse aide.
Marie-Claire




.



Avatar
Gafish
Non en fait c'est vraiment l'attribut visible.
Si tu ne le trouves pas dans ta fenêtre propriétés, tu peux ajouter le code
suivant sur l'evenement load de ton formulaire (sur chargement) :

Me.Visible = False


"Marie-Claire" a écrit dans le message
news: 09dc01c4d896$7f4a0d30$
Bonjour,
Pour le formulaire j'ai fait Propriétés: Atributs, caché,
je pense que c'est ça? Mais il s'ouvre.
Le code dans le dernier cadre bleu je l'ai copié une fois
dans un module et comme ça ne marchait pas, j'ai supprimé
le module et je l'ai copié dans le formulaire Form2, mais
toujours le même problème.
Si vous pensez avoir une solution...
Marie-Claire
-----Message d'origine-----
Bonjour,

- Pour cacher ton formulaire, tu passes sa propriété
visible à 'false'

- As tu recopié aussi tout le code dans le dernier cadre
bleu, et si oui où

?

Arnaud

"Marie-Claire" a
écrit dans le message

news: 088301c4d874$81c8e850$
Bonjour,
Je reviens toujours avec ce problème car je n'ai pas
réussi à le résoudre.

J'ai trouvé sur le site http://www.mvps.org/accessfr/
'Élimine le message "Printing"'.
Et j'ai voulu l'adapter à mes besoins. Mais tout d'abord :
Que veut dire un formulaire (que vous ouvrez en mode
caché), est-ce simplement cocher "Caché" dans les
propriétés, par ce que c'est ce que j'ai fait, mais il est
toujours visible.

J'ai fait comme ci-dessous mais visiblement j'ai du faire
une erreur car l'ouverture du form2 se fait normalement et
en plus il y a aussi le message que je ne veux pas voir,
c'est-à dire 'AppelOffre
fichier C:AppelOffre.snp.'
Voilà mon code:
On Error Resume Next
DoCmd.OpenForm "Form2"
DoEvents: DoEvents: DoEvents

DoCmd.OutputTo acOutputReport, "AppelOffre",
acFormatSNP, "C:AppelOffre.snp"
Dim Message As New CDO.Message
With Message
.To = ""
.Subject = "Commandereçue"
.TextBody = "Bonne jounnée"
.AddAttachment ("C:AppelOffre.snp")
.Send
End With
Set Message = Nothing
DoCmd.Close acForm, "Form2"


Dans le form2 j'ai:

Private Sub Form_Timer()
Call sWatchAccess(Application.hWndAccessApp)

End Sub
Timer réglé sur 300

Le problème est le suivant:
Le message envoyé par Access: AppelOffre
fichier C:AppelOffre.snp.
est toujours activé et de plus le form2 s'ouvre et reste
ouvert 3 à 4 secondes c'est à dire le temps pendant lequel
la MsgBox est ouverte.

Comment dois-je adapter cette application dans mon code
pour qu'elle fonctionne ou de quoi dois-je tenir compte.

Aidez-moi s'il vous plaît, je suis perdue.
Merci pour votre précieuse aide.
Marie-Claire




.



Avatar
Mari-Claire
Bonjour,
Me.Visible = False sur chargement du formulaire Form2 et
j'ai toujours le même résultat:
Form2 s'ouvre et par dessus, il y a le message de sortie
imprimante.
Je suis sur Access Xp est-ce que celà peut-être la cause
du non fonctionnement de cette API?
Marie-Claire


-----Message d'origine-----
Non en fait c'est vraiment l'attribut visible.
Si tu ne le trouves pas dans ta fenêtre propriétés, tu
peux ajouter le code

suivant sur l'evenement load de ton formulaire (sur
chargement) :


Me.Visible = False


"Marie-Claire" a
écrit dans le message

news: 09dc01c4d896$7f4a0d30$
Bonjour,
Pour le formulaire j'ai fait Propriétés: Atributs, caché,
je pense que c'est ça? Mais il s'ouvre.
Le code dans le dernier cadre bleu je l'ai copié une fois
dans un module et comme ça ne marchait pas, j'ai supprimé
le module et je l'ai copié dans le formulaire Form2, mais
toujours le même problème.
Si vous pensez avoir une solution...
Marie-Claire
-----Message d'origine-----
Bonjour,

- Pour cacher ton formulaire, tu passes sa propriété
visible à 'false'

- As tu recopié aussi tout le code dans le dernier cadre
bleu, et si oui où

?

Arnaud

"Marie-Claire" a
écrit dans le message

news: 088301c4d874$81c8e850$
Bonjour,
Je reviens toujours avec ce problème car je n'ai pas
réussi à le résoudre.

J'ai trouvé sur le site http://www.mvps.org/accessfr/
'Élimine le message "Printing"'.
Et j'ai voulu l'adapter à mes besoins. Mais tout
d'abord :


Que veut dire un formulaire (que vous ouvrez en mode
caché), est-ce simplement cocher "Caché" dans les
propriétés, par ce que c'est ce que j'ai fait, mais il
est


toujours visible.

J'ai fait comme ci-dessous mais visiblement j'ai du faire
une erreur car l'ouverture du form2 se fait normalement
et


en plus il y a aussi le message que je ne veux pas voir,
c'est-à dire 'AppelOffre
fichier C:AppelOffre.snp.'
Voilà mon code:
On Error Resume Next
DoCmd.OpenForm "Form2"
DoEvents: DoEvents: DoEvents

DoCmd.OutputTo acOutputReport, "AppelOffre",
acFormatSNP, "C:AppelOffre.snp"
Dim Message As New CDO.Message
With Message
.To = ""
.Subject = "Commandereçue"
.TextBody = "Bonne jounnée"
.AddAttachment ("C:AppelOffre.snp")
.Send
End With
Set Message = Nothing
DoCmd.Close acForm, "Form2"


Dans le form2 j'ai:

Private Sub Form_Timer()
Call sWatchAccess(Application.hWndAccessApp)

End Sub
Timer réglé sur 300

Le problème est le suivant:
Le message envoyé par Access: AppelOffre
fichier C:AppelOffre.snp.
est toujours activé et de plus le form2 s'ouvre et reste
ouvert 3 à 4 secondes c'est à dire le temps pendant
lequel


la MsgBox est ouverte.

Comment dois-je adapter cette application dans mon code
pour qu'elle fonctionne ou de quoi dois-je tenir compte.

Aidez-moi s'il vous plaît, je suis perdue.
Merci pour votre précieuse aide.
Marie-Claire




.




.