Access, envoi enregistrement en cours

Fermé
Dicab Messages postés 165 Date d'inscription lundi 25 août 2008 Statut Membre Dernière intervention 31 mars 2024 - 7 nov. 2010 à 16:42
Dicab Messages postés 165 Date d'inscription lundi 25 août 2008 Statut Membre Dernière intervention 31 mars 2024 - 8 nov. 2010 à 17:11
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

1 réponse

Dicab Messages postés 165 Date d'inscription lundi 25 août 2008 Statut Membre Dernière intervention 31 mars 2024 2
8 nov. 2010 à 17:11
personne ? :-(
0