Send Object....

[fireman_gcfd]

Hello everyone. I am having a little difficulty in finding out exactly where I went wrong with this script. Everything works...sort of. The idea of it was to email a Single record. When clicking the button it wants to send All the reports. I am able to generate a report showing only one record, but trying to get the same thing but prepare it for email does not seem to be working.

Here is my code...can you see where I went wrong?

Private Sub Command304_Click()
On Error GoTo Err_Command304_Click
Dim strWhere As String
Dim stDocName As String
stDocName = "MyReport"

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

If Me.NewRecord Then 'Check there is a record to print
MsgBox "Select a record to email"
Else
MyForm = "[Incident] = """ & Me.[Incident] & """"
DoCmd.SendObject acReport, "MyReport", "Snapshot Format", , , , "My email Report " & Me.[Date]
Exit_Command304_Click:
Exit Sub

Err_Command304_Click:
MsgBox Err.Description
Resume Exit_Command304_Click
End If

End Sub

Thanks again

Jaz

 

[pbaldy]

You can't limit records with SendObject like you can with OpenReport, if that's what you're trying to do. You'd have to do it in the report itself.

 

[fireman_gcfd]

So in using OenReport, is there a way of viewing and emailing all at the same time? Such as report opens with a request for emailing message? (i.e. "send message to email now?")

Cheers

Jaz

 

[pbaldy]

If you want to email a restricted report, you'll need to do the restricting in the report. Common methods are either referring to a form with the source query, or setting a filter in the open event.

You can certainly view then email. I create a custom toolbar that opens with the report, allowing the user to click a button to email the report.

 

[fireman_gcfd]

A toolbar you say?? That sounds like an excellent idea! Could you point me in the right direction as to how to accomplish this? It would be greatly appreciated. These are not restricted reports but need to be sent on an idividual basis once filled out.

thanks again
Jaz

 

[pbaldy]

You may find some of the info here helpful:

http://www.granite.ab.ca/access/email/reporttomultiplerecipients.htm

A tutorial on toolbars that's too big to attach here:

http://tech.groups.yahoo.com/group/MS_Access_Professionals/files/Articles_Excerpts/

partway down is "Creating Custom Menus and Toolbars.doc". Not sure if you have to join to download. The site is run by MVP Bill Mosca and the article is by author and MVP John Viescas.

 

[fireman_gcfd]

Thanks. Thats some good reading.

Cheers

jaz