Type MisMatch Error

[ebizleads]

I'm running this function from a macro and get a Type mismatch error...any idea why?

Function EPack()
On Error GoTo EPack_Err

DoCmd.OpenForm "EmailPackage", acNormal, "SCEmail", "", , acHidden
DoCmd.OutputTo acOutputReport, "EmailPackage", acFormatRTF, "C:\MyDebtIQ\Packages\" & [Last Name] & "_" & [First Name] & ".rtf"
DoCmd.OpenQuery "SendContract-Email-U", acViewNormal, acEdit


EPack_Exit:
Exit Function

EPack_Err:
MsgBox Error$
Resume EPack_Exit

End Function

 

[ebizleads]

ok...figured this out-FYI. Had to reference the form in the following:

DoCmd.OutputTo acOutputReport, "EmailPackage", acFormatRTF, "C:\MyDebtIQ\Packages\" & [Last Name] & "_" & [First Name] & ".rtf"


To:

DoCmd.OutputTo acOutputReport, "EPackage", acFormatRTF, "C:\MyDebtIQ\Packages\" & Forms![Main Lead Console].[ClientID] & "_" & Forms![Main Lead Console].[qlast] & "_" & Forms![Main Lead Console].[qfirst] & ".rtf"