Discussion :

[maringot]

Bonjour,

J'ai créé un bouton d'impression avec le code ci-dessous:

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 Commande51_Click()
On Error GoTo Err_Commande51_Click
 
    Dim stDocName As String
 
    stDocName = "ETA-DEVIS EN COURS"
    DoCmd.OpenReport stDocName, acNormal
 
Exit_Commande51_Click:
    Exit Sub
 
Err_Commande51_Click:
    MsgBox Err.Description
    Resume Exit_Commande51_Click
 
End Sub

Il s'agit d'imprimer un tableau récapitulatif des devis.
Ce récapitulatif émane d’une requête depuis laquelle je sélectionne des critères comme « catégorie » et « analytique ».
Dans ce récapitulatif j'ai introduit la notion de "suivi" qui est un menu déroulant et dans lequel se trouve "refusé", "accepté", "en attente", "relancé" etc...
J'aimerais que l’impression ne prenne pas en compte les lignes "refusé", "archivé" et "accepté".
Donc quel code pourrais-je insérer dans le code ci-dessus pour que ces lignes ne s’impriment pas ?

Merci pour vos conseils

[loufab]

Bonjour,

Dans l'instruction Docmd.openreport il y a une clause Where, c'est fait pour ça.

Tu peux mettre ceci par exemple.

Code :

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

"[Suivi] NOT IN('refusé', 'archivé', 'accepté')"

Cordialement,