IT WAS PERFECT. THANKS A LOT.
NOW, I tried to send this current record to Outlook by a Word doc attachment, but my code doesn't work. Can you please help me this time?
Private Sub Command93_Click()
On Error GoTo Err_Command93_Click
Dim stDocName As String
stDocName = "rptA"
DoCmd.SendObject acReport, stDocName, acFormatSNP, stDocName, , , "Subject Line", , False
Exit_Command93_Click:
Exit Sub
Err_Command93_Click:
MsgBox Err.Description
Resume Exit_Command93_Click
End Sub