Email a single record report

[andrewhoddie]

Hi all



I have a database where I am trying to send an individual record via email, but the report shows all entries, here is the code I have so far, does anyone know where I am going wrong?

thanks

Private Sub Command60_Click()

If Me.Dirty Then Me.Dirty = False 'Save first.
If Me.NewRecord Then
MsgBox "Select a record to email."
ElseIf IsNull(Me.EmailAddr) Then
MsgBox "No email address to send to"
Else
On Error GoTo Err_Command60_Click
DoCmd.SendObject acSendReport, "Report1", acFormatPDF, Me.EmailAddr, , , _
"New Rechargeable repair reference " & ID.Value, "Attached find a new invoice to add to Orchard", True
Exit_Command60_Click:
Exit Sub
Err_Command60_Click:
MsgBox Err.Description
Resume Exit_Command60_Click



End If
End Sub

[June7]

First open the report filtered to desired record.

[andrewhoddie]

Hi thanks for replying, how do I add this filter, everything I do errors, any help appreciated

[June7]

Something like:

DoCmd.OpenReport "report name here", acViewPreview, , "ID=" & Me!ID
DoCmd.SendObject , , acFormatPDF, Me.EmailAddr, , , "New Rechargeable repair reference " & Me!ID, "Attached find a new invoice to add to Orchard", True
DoCmd.Close acReport, "report name here", acSaveNo

[andrewhoddie]

Hi June

You are a superstar, thank you soo much for your help

Andrew