Software

Ask something
Question Locked

ACCESS FORM OR REPORT

0 helpful
10 replies

by a10sgoddess

Closed to new repliesThis discussion is closed. It stays readable, but it takes no new replies.
I'm using an Access 2007 database where details of the phone bill are entered for each employee and then a report in pdf format is e-mailed from the Forms window to each employee so that they can see their phone usage. In addition to the pdf file, I now must put in a chart that shows the total department billing amount for the past year and a half. I put the chart in the e-mail form and can see it in Design and Form view, but when I send it to myself, the chart doesn't show. If I add the chart to the detailed phone report,I can see it in Design and it looks like it's in the Report, but when I send it to myself, the chart doesn't show. I'm stumped and stuck. Can someone please tell me how to make the chart show when it's sent in the e-mail. Thanks. Jann

10 replies

by tobif

If the email is text format, then it won't play. But even if the mail is sent, delivered and read as html, there could be some issues with attached images not being sent (or referred to) in the right way.

Why don't you put this chart in another pdf?

by a10sgoddess

Well, I did that first, but I had trouble with putting the pdf file in the form so I copied the chart and saved it as a jpg and then opened Paint and made it a bitmap. That worked better, but everything I tried wasn't working to get the chart to show on either the form or report. Do you think I could group the image and text message and then it might work?

by boxfiddler Hot topic

you import the image to the end of the report while in Access? Or is that what you mean by [i]add the chart to the detailed phone report[/i]?

by a10sgoddess

I tried to take a Snag-it so you could see what I'm talking about, but I can't get it to copy. Basically, there's already a control that holds the e-mail message. I was trying to insert the image into the control that holds the e-mail message, which I was trying to put before the text message, which looks fine in Design view and form view, but when I sent it to myself the chart was gone, and everything movedn up. I had put in the properties to start the text at 5" to make room for the chart. There must be a way for the chart to show up in the e-mail. Could it be that I have to do something special to bind the chart to the e-mail message control?

by purpleskys

control/alt/print screen - open something like just paint and paste - save picture

by a10sgoddess

Tried that, and I couldn't get it to show in the body of this reply. I don't know if it will work, but I think I'm going to try and group the two controls. Never done that, but I read graphics and text can be grouped. This boggles my mind that I see it and it looks like everything's alright but somewhere in the send process I lose the chart.

I put the image on my website. http://www.palmpainter.info/access.htm

by boxfiddler Hot topic

Before creating the email control and the .pdf, import the chart. That way it is part of the report, not the email control.

by a10sgoddess

Thanks for the suggestion, but I don't know how to do that. I didn't create the code for all the forms that go with this database -- I just maintain it. This is the code for the e-mail
Option Compare Database

Private Sub Command6_Click()
On Error GoTo Err_Command6_Click

DoCmd.Close

Exit_Command6_Click:
Exit Sub

Err_Command6_Click:
MsgBox Err.Description
Resume Exit_Command6_Click

End Sub
Private Sub btnTest_Click()
On Error GoTo Err_btnTest_Click

DoCmd.SetWarnings False
Dim rst As DAO.Recordset, intI As Integer
Dim fld As Field
Dim v_address As String, v_subject As String, v_message As String

'If (IsNull(Me.txt_emailSubject) Or IsNull(Me.Txt_emailMessage)) Then
'MsgBox ("Missing a Subject and/or Message text.")
'Else
v_address = Me.txtEmailTestAddress.Value
Dim stDocName As String
Dim v_where As String
Set rst = Me.Recordset
rst.MoveFirst
Do While Not rst.EOF

v_subject = rst("Email_SubjectLine")
v_message = rst("Email_MessageText")
'v_address = "xxxxx@xxxxx.com"
DoCmd.SendObject acSendNoObject, , , v_address, , , v_subject, v_message, 0
rst.MoveNext
Loop
DoCmd.SetWarnings True
MsgBox ("Emails are finished sending.")

Exit_btnTest_Click:
Exit Sub

Err_btnTest_Click:
MsgBox Err.Description
Resume Exit_btnTest_Click

End Sub

I really appreciate the help you're trying to give me.

by boxfiddler Hot topic

Meaning of course, that I'm out of ideas. Sorry.

This discussion is closed to new replies.