Impression conditionnelle
Résolu
castours
Messages postés
2955
Date d'inscription
Statut
Membre
Dernière intervention
-
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
j'ai une case a cocher oui/non.
Lorsque je passe a oui j'imprime. la procédure est sur click.
Mais si je passe a non, l'impression se fait. Ce que je veux pas.
Pouvez vous m'aider?
Je vous remercie
j'ai une case a cocher oui/non.
Lorsque je passe a oui j'imprime. la procédure est sur click.
Mais si je passe a non, l'impression se fait. Ce que je veux pas.
Pouvez vous m'aider?
Je vous remercie
A voir également:
- Impression conditionnelle
- Spouleur d'impression - Guide
- Mise en forme conditionnelle excel - Guide
- Impression livret a5 - Guide
- Excel liste déroulante conditionnelle - Guide
- Impression ecran samsung - Guide
3 réponses
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
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
