Impression conditionnelle

Bonjour,

quel code avez-vous ecrit ????

Bonjour
Merci de m'avoir répondu.

Voici le code

Private Sub DevisAccepté_Click()
On Error GoTo Err_Commande21_Click

Dim stDocName1 As String
Dim stDocName2 As String

stDocName1 = "E_DevisClients"
stDocName2 = "E_Billet Collectif"
DoCmd.OpenReport stDocName1, acNormal, , "[N°Clients]=" & Me![N°Clients]
DoCmd.OpenReport stDocName2, acNormal, , "[N°Clients]=" & Me![N°Clients]

Exit_Commande21_Click:
Exit Sub

Err_Commande21_Click:
MsgBox Err.Description
Resume Exit_Commande21_Click
End Sub

J'envoie a l'impression les 2 etats en cochant
Mais si je reviens en arriere l'impression se fait une deuxieme fois . ce que je ne veux pas . il faut sans doute utiliser la condition si mais ne connaissant trés peu VBA., je demande l'aide

Re,

Private Sub DevisAccepté_Click()
    On Error GoTo Err_Commande21_Click

    Dim stDocName1 As String
    Dim stDocName2 As String
    
    'coché=-1, decoché=0 si vous voulez tester des valeurs. Autrement: DevisAccepté pour coché et Not DevisAccepté pour decoché
    If DevisAccepté Then
        stDocName1 = "E_DevisClients"
        stDocName2 = "E_Billet Collectif"
        DoCmd.OpenReport stDocName1, acNormal, , "[N°Clients]=" & Me![N°Clients]
        DoCmd.OpenReport stDocName2, acNormal, , "[N°Clients]=" & Me![N°Clients]
    End If
Exit_Commande21_Click:
    Exit Sub

Err_Commande21_Click:
    MsgBox Err.Description
    Resume Exit_Commande21_Click
End Sub