Access, envoi enregistrement en cours

Bonjour,

Je souhaiterai pouvoir n'envoyer que l'enregistrement en cours.
J'ai donc créé le code suivant :

Private Sub Envoyer_Click()
On Error GoTo Err_Envoyer_Click
Dim stDocName As String
stDocName = "PROTOCOLES"
DoCmd.RunCommand acCmdSaveRecord
DoCmd.SendObject acReport, stDocName, , "[ID_PROTOCOLE]=" & Me![ID_PROTOCOLE]
Exit_Envoyer_Click:
Exit Sub
Err_Envoyer_Click:
MsgBox Err.DESCRIPTION
Resume Exit_Envoyer_Click
End Sub

ID_PROTOCOLE étant une clé primaire.

Mais la totalité des enregistrements apparaissent dans tous les formats (texte, excel, snapshots)...

Ou est-ce que je me trompe ?

Merci pour votre aide