Comment puis-je cacher les tables? [Résolu]

[acheo]

J'ai creer un .MDE et pris soin deselectionner toutes les options dans Startup. Lorsque les usagers demarrent mon application, ils ne peuvent voir les tables, requetes et formulaires. Pourtant, si l'un deux imprime un formulaire ou un rapport, les tables, requetes et formulaires apparaissent en arriere-plan.

Comment puis-je eviter que cela se produise?

merci

Acheo

[mout1234]

les tables, requetes et formulaires apparaissent en arriere-plan.

SI l'affichage de la fenêtre Base de données est décoché dans les options de démarrage, cela ne devrait pas se produre .

Pourtant, si l'un deux imprime un formulaire ou un rapport

Comment lancent-ils une impression? peut être un problème de ce coté....

[acheo]

L'affichage de la base de donnees est bel et bien decochee, comme toutes les autres options d'ailleurs.

Ceci se passe lorsque l'usager clique sur un bouton, lequel roule le code suivant:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub cmdPrint_Click()
 
On Error GoTo Err_cmdPrint_Click
 
    Dim stDocName As String
    Dim MyForm As Form
 
    stDocName = "frm_NATO_Travel_Order"
    Set MyForm = Screen.ActiveForm
    DoCmd.SelectObject acForm, stDocName, True
    DoCmd.RunCommand acCmdPrint
 
 
Exit_cmdPrint_Click:
    Exit Sub
 
Err_cmdPrint_Click:
    Call ShowError("'frm_NATO_Travel_Order", "'cmdPrint_Click", Err.Number, Err.description)
    Resume Exit_cmdPrint_Click
 
End Sub

[mout1234]

Le coupable:

Code :

DoCmd.SelectObject acForm, stDocName, True

En passant ta variable MyForm ne sert à rien!


Normalement, un formulaire n'est pas fait pour être imprimé ... il y a des états pour cela!


En fait je ne vois pas comment faire simplement l'impression directe d'un autre formulaire...

Si un aperçu avant impresssion convient... ceci devrait marcher

Code :

Docmd.openForm "frm_NATO_Travel_Order",acPreview

[acheo]

Curieusement, j'ai changer mon code pour le suivant et les tables n'apparaissent plus.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub cmdPrint_Click()
 
On Error GoTo Err_cmdPrint_Click
 
    'Dim stDocName As String
    'Dim MyForm As Form
 
    'stDocName = "frm_NATO_Travel_Order"
    'Set MyForm = Screen.ActiveForm
    'DoCmd.SelectObject acForm, stDocName, True
    DoCmd.RunCommand acCmdPrint
 
 
Exit_cmdPrint_Click:
    Exit Sub
 
Err_cmdPrint_Click:
    Call ShowError("'frm_NATO_Travel_Order", "'cmdPrint_Click", Err.Number, Err.description)
    Resume Exit_cmdPrint_Click
 
End Sub

Je ne pouvais pas utiliser acpreview parce que je dois donner a mes usagers l'option d'envoyer le rapport sur n'importe quel imprimante.

Je sais qu'utiliser un formulaire pour imprimer n'est pas l'ideal et qu'un rapport est indique. Par contre, les donnees qui s'affichent sur mon rapport proviennent du resultat d'une requete assez complexe ET qu'une autre partie des donnees est fournie au "run-time" par le programme ainsi que l'usager. J'ai essaye d'utilise les rapports mais je ne parvenait jamais a obtenir ce que je voulais.....

[mout1234]

Curieusement, j'ai changer mon code pour le suivant et les tables n'apparaissent plus.

Argh! Si c'est pour imprimer le formulaire en cours, c'est normal!

Le code que tu avais as pour objectif d'imprimer un autre formulaire ...


En passant, il me semble qu'on peut faire aussi

Code :

Docmd.printout

Penses à cliquer sur le bouton