Question for Camaro.

[ldiaz]

Hi Camaro, I’m the person that you helped in the access newsgroup with this
code, but now I have this problem,

this code work fine the first time but when I try to send it again, appear a
message that reads
"Error in EMailRptBtn_click()in Orders.form, Error # 2046, The command or
action 'OutputTo' isn't available now.

I wanted to fix it with this code,
If (Err.Number <> 2501 and Err.Number <> 2046) Then
but it only clean the error but it does not work after that..

Could you take a look and help if possible, I will appreciate so much.

ldiaz

___________________________________________

Private Sub EMailRptBtn_Click()


On Error GoTo ErrHandler

Dim rpt As Report
Dim sRptName As String
Dim sMsg As String
Dim stdomail As String

sRptName = "rptSingleOrder"
sMsg = "Please confirm if this Order Quotation is correct with " & _
"Product Name, Descripción & price!!"
stdomail = Me![SupplierID].Column(2) 'This column has the e-mail address

DoCmd.OpenReport sRptName, acViewDesign
Set rpt = Reports(sRptName)

rpt.RecordSource = "SELECT * " & _
"FROM [OrdersQueryInvoice1] " & _
"WHERE (OrderID = " & Me!OrderID.Value & ");"

DoCmd.Close acReport, sRptName, acSaveYes

DoCmd.SendObject acSendReport, sRptName, acFormatSNP, _
stdomail, , , "Order Quotation", sMsg, True

CleanUp:

Set rpt = Nothing

Exit Sub

ErrHandler:

If (Err.Number <> 2501 And Err.Number <> 2046) Then ' User didn't
cancel E-Mail.
MsgBox "Error in EMailRptBtn_Click( ) in" & vbCrLf & _
Me.Name & " form." & vbCrLf & vbCrLf & _
"Error #" & Err.Number & vbCrLf & vbCrLf & Err.Description
End If

Err.Clear
GoTo CleanUp



End Sub
_________________________________________________________