Discussion :

[JohannaAccess]

Bonjour,

Dans un formulaire je souhaite placer un bouton qui, au clic, ouvrirait un aperçu (type aperçu avant impression) d'une de mes tables.

Je ne suis pas très douée en Access, quelqu'un connaitrait-il un code permettant de faire cela?

Merci pour votre réponse!!

Johanna

[Access Newbie]

Bonjour,

Vous devez créer votre bouton puis sur l'evenement Clic, vous devez coller le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

docmd.OpenTable "LeNomDeLaTable",acViewPreview

[JohannaAccess]

Merci pour votre réponse, cela fonctionne!

Cependant lorsqu'on referme l'aperçu, on se retrouve avec un visu de la table et donc une possibilité de la modifier directement, ce que je ne souhaite pas.
Je voudrais qu'en refermant l'aperçu on soit à nouveau sur ma page de formulaire.

Comment faire?

Merci pour votre réponse

Johanna

[Access Newbie]

Et comme cela ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

docmd.OpenTable "WS_Class_by_ws",acViewPreview,acReadOnly

[JohannaAccess]

Ca n'a rien changé

[Access Newbie]

Euh ... ben chez moi je n'ai pas le problème, je suis pourtant sous access 2010, lorsque je lance le code que je vous ai fourni, la table ne reste pas ouverte en arrière plan et lorsqu'on ferme l'aperçu, on retombe sur le dernier formulaire ouvert ...

[JohannaAccess]

J'ai dû mal interpréter le code.

J'ai mis :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Impr_T_production_Click()
On Error GoTo Err_Impr_T_production_Click
 
Dim stDocName As String
 
DoCmd.OpenTable "T_production", acViewPreview, acReadOnly
 
Exit_Impr_T_production_Click:
Exit Sub
 
Err_Impr_T_production_Click:
MsgBox Err.Description
Resume Exit_Impr_T_production_Click
 
End Sub

Où est l'erreur?

Merci...

[Access Newbie]

Hum ... là je sèche !

Je vois du code "inutile", mais pas d'erreur ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Private Sub Impr_T_production_Click()
On Error GoTo Err_Impr_T_production_Click
 
Dim stDocName As String     <------------- inutile, variable non utilisée
 
DoCmd.OpenTable "T_production", acViewPreview, acReadOnly
 
Exit_Impr_T_production_Click:   <----- inutile puisque lorsq'une erreur est levée on quitte la procédure
Exit Sub
 
Err_Impr_T_production_Click:
MsgBox Err.Description 
Resume Exit_Impr_T_production_Click    <----- inutile
 
End Sub

Je l'ecrirai plutôt comme ca :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Private Sub Impr_T_production_Click()
On Error GoTo Err_Impr_T_production_Click
 
DoCmd.OpenTable "T_production", acViewPreview, acReadOnly
 
Exit Sub
 
Err_Impr_T_production_Click:
MsgBox Err.Description
 
End Sub

Mais je ne pense pas que cela corrige votre problème ...

[JohannaAccess]

Malheureusement non ça ne change pas le problème... J'ai toujours la table qui s'ouvre lorsque je ferme l'aperçu avant impression.

Merci quand même...

Quelqu'un d'autre aurait-il une idée pour régler ce prob?