Email current record

  • Thread starter Thread starter weircolin
  • Start date Start date
W

weircolin

Hi

I have a form and I would like to email the current record I am looking
at. I have a report which it would use for the email but I can't get
it to work.

Can anyone help?

This is what I have been working on

Dim strWhere As String

If Me.Dirty Then 'Save any edits.
Me.Dirty = False
End If

Dim stDocName As String
strWhere = "[Reference Number] = " & Me.[Reference Number]
stDocName = "rptnewsletterdatabase"
DoCmd.SendObject acReport, stDocName, , strWhere

Thanks

Colin
 
Ah right,

I think from that link it's not possible.

Thanks

Colin
Barry said:
Try this FAQ from Tony Toews: http://www.granite.ab.ca/access/email.htm

Barry

[email protected] said:
Hi

I have a form and I would like to email the current record I am looking
at. I have a report which it would use for the email but I can't get
it to work.

Can anyone help?

This is what I have been working on

Dim strWhere As String

If Me.Dirty Then 'Save any edits.
Me.Dirty = False
End If

Dim stDocName As String
strWhere = "[Reference Number] = " & Me.[Reference Number]
stDocName = "rptnewsletterdatabase"
DoCmd.SendObject acReport, stDocName, , strWhere

Thanks

Colin
Click to expand...
Click to expand...
 
Back
Top