DoCmd.SendObject - current record of form only.

[Nita]

Hi,

I have no background in scripting (barr HTML) and need some help with hashing out a VB script for a database I'm working on.

What my goal is, is to have a single record of a form which is the current focus emailed as PDF to a recipient. I am using Access 2007 and have the export to PDF plugin.

The code I have currently got (see below) is successfully emailing a PDF to the recipient, however it is exporting all the records in the table to PDF in the form layout.

Private Sub Command48_Click()
On Error GoTo Err_Command48_Click
 
    Dim stDocName As String
    Dim stEmail As String
    Dim stSubject As String
 
    stDocName = "Flight Catering"
    stEmail = "[e-mail]"
    stSubject = "XR Catering"
 
    DoCmd.SendObject acSendForm, stDocName, acFormatPDF, stEmail, , , stSubject, , , False
 
Exit_Command48_Click:
    Exit Sub
 
Err_Command48_Click:
    MsgBox Err.Description
    Resume Exit_Command48_Click
 
End Sub
 

What I need it to do is email only the currently focussed record in the form. A couple of other things I would like to do is have the email subject show the date and flight fields of the form for the record that is in focus ie "XR Catering for Flight (FLIGHT), (DATE)."

If anyone could please help with fine tuning this, it would be greatly appreciated.

Regards

Nita

[MMcCarthy]

Hi Nita

Try sending a snapshot instead of a pdf using acFormatSNP

Mary

[MMcCarthy]

The following code should do what you need...

Private Sub Command48_Click()
On Error GoTo Err_Command48_Click
 
    Dim stDocName As String
    Dim stEmail As String
    Dim stSubject As String
 
    stDocName = "Flight Catering"
    stEmail = "[e-mail]"
    stSubject = "XR Catering for Flight " & Me!Flight & ", " & Me![Date]
 
    DoCmd.SendObject acSendForm, stDocName, acFormatSNP, stEmail, , , stSubject, , , False
 
Exit_Command48_Click:
    Exit Sub
 
Err_Command48_Click:
    MsgBox Err.Description
    Resume Exit_Command48_Click
 
End Sub