OVH Cloud OVH Cloud

Bouton de command pour imprimer

1 réponse
Avatar
FEUZ TOFF
Bonjour,
Je voudrais créer un bouton de commande (sur un formulaire ) qui me permet d’envoyer l’enregistrement en cours uniquement vers un état. Dans l’événement sur click j’ai mis ce procédure ci-dessous mais c’est un état vide qui est affiché (sans les données).
NUM_ENFANT est un champ de type N° Automatique.
Si je met Me.NUM_ENFANT = Me.NUM_ENFANT tous les enregistrements sont envoyés à l’état.
Merçi de votre aide.

Private Sub Commande32ImprimerUnExtrait_Click()
On Error GoTo Err_Commande32ImprimerUnExtrait_Click

Dim stDocName As String

stDocName = "EXTRAIT"
DoCmd.OpenReport stDocName, acPreview, , Me.NUM_ENFANT = "&Me.NUM_ENFANT&"

Exit_Commande32ImprimerUnExtrait_Cli:
Exit Sub

Err_Commande32ImprimerUnExtrait_Click:
MsgBox Err.Description
Resume Exit_Commande32ImprimerUnExtrait_Cli

End Sub

1 réponse

Avatar
3stone
Salut,

"FEUZ TOFF"
Je voudrais créer un bouton de commande (sur un formulaire ) qui me permet d’envoyer l’
enregistrement en cours uniquement vers un état. Dans l’événement sur click j’ai mis ce procédure

ci-dessous mais c’est un état vide qui est affiché (sans les données).
NUM_ENFANT est un champ de type N° Automatique.
Si je met Me.NUM_ENFANT = Me.NUM_ENFANT tous les enregistrements sont envoyés à l’état.



Un peu de réflexion s'impose, non ? ;-))

1 = 1 => toujours vrai
123 = 123 => toujours vrai

Me.Num_Enfant = Me.Num_Enfant => est également toujours vrai

cela doit donc être "autre chose"...

DoCmd.OpenReport stDocName, acPreview, , Me.NUM_ENFANT = "&Me.NUM_ENFANT&"



Mais, si tu *filtre* le champ [Num_Enfant] des enregistrements,
par la valeur ACTUELLE du contrôle [Num_Enfant] tu limitera
alors à un seul enregistrement...

Et donc:

DoCmd.OpenReport stDocName, acPreview, , "NUM_ENFANT = " & Me.NUM_ENFANT


Ok ?


--
A+
Pierre (3stone) Access MVP
-----------------------------
http://users.skynet.be/mpfa
-----------------------------