P
pmallick
Hello all,
I have a database that sends a report by email in pdf format automatically
by pressing a button.
My problem is that whilst this works perfectly on my computer, I get an
error "2282 - the format in which you are attempting to output the current
object is not available." on other users computers.
I have checked that all the computers have Adobe Reader 8.
I would be most greatful for any help on this one.
Following is the code i have behind the button
DoCmd.OpenReport "ActionItem", acViewPreview, "",
"[ActionID]=[Forms]![ActionItem]![ActionID]", acHidden
Dim sAddress1 As String
sAddress1 = DLookup("", "Users", "[ID]=Forms!ActionItem!AssignedTo ")
DoCmd.SendObject acReport, "ActionItem", "PDFFormat(*.pdf)", sAddress1, , ,
"Action Item " & [ActionID] & " - Jandakot Airport Holdings", "Please see the
attached Action Item - Number " & [ActionID] & " you have been assigned to
implement.", False, ""
Me!SentDate = Date
DoCmd.Close acReport, "ActionItem"
DoCmd.Close acForm, "ActionItem"
Beep
MsgBox "This Action Item has been sent to the nominated person.",
vbInformation, "Thankyou"
Thanks
I have a database that sends a report by email in pdf format automatically
by pressing a button.
My problem is that whilst this works perfectly on my computer, I get an
error "2282 - the format in which you are attempting to output the current
object is not available." on other users computers.
I have checked that all the computers have Adobe Reader 8.
I would be most greatful for any help on this one.
Following is the code i have behind the button
DoCmd.OpenReport "ActionItem", acViewPreview, "",
"[ActionID]=[Forms]![ActionItem]![ActionID]", acHidden
Dim sAddress1 As String
sAddress1 = DLookup("", "Users", "[ID]=Forms!ActionItem!AssignedTo ")
DoCmd.SendObject acReport, "ActionItem", "PDFFormat(*.pdf)", sAddress1, , ,
"Action Item " & [ActionID] & " - Jandakot Airport Holdings", "Please see the
attached Action Item - Number " & [ActionID] & " you have been assigned to
implement.", False, ""
Me!SentDate = Date
DoCmd.Close acReport, "ActionItem"
DoCmd.Close acForm, "ActionItem"
Beep
MsgBox "This Action Item has been sent to the nominated person.",
vbInformation, "Thankyou"
Thanks