Discussion :

[baj]

Bonjour,

J'ai une question : j'ai mis un bouton dans un formulaire pour imprimer l'enregistrment en cours. Mais si je clic sur l'icone imprimer dans la barre d'outil tous les enristrements son impimés. Une solution existe pour éviter ce probléme ?

Merci

[RGShoop]

Bonjour,

Il faut que tu entres dans le code du bouton et que tu lui ajoutes après acPreview un critère de la manière suivante :

,, "[ID_Risque]=" & Me.ID_RISQUE

tu auras au final une ligne de code qui te donnera cela

Code :

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

1
2
3
4
    Dim stDocName As String
 
    stDocName = "T_RISQUE"
    DoCmd.OpenReport stDocName, acPreview, , "[ID_Risque]=" & Me.ID_RISQUE

Bien sûr, il faut adapter l'exemple que je te donne à ton code.

A+ RGShoop