Access 2002 versus 2000

S

shannacu

Can anyone tell me why the following works in Access 2000 but not 2002?

Private Sub cmdImport_Click()
On Error GoTo Err_cmdImport_Click

Dim stDocName As String

stDocName = "QueryToUpdateNewECRs"
DoCmd.OpenQuery stDocName, acNormal, acEdit

stDocName2 = "QueryToEmailNewECRs"
DoCmd.OpenQuery stDocName2, acViewNormal, acEdit


DoCmd.SendObject acSendQuery, "QueryToEmailNewECRs", acFormatXLS,
"[email protected]", , , "ECRs Updates", "These ECRs are active and have not
been assigned as of today."


Exit_cmdImport_Click:
Exit Sub

Err_cmdImport_Click:
MsgBox Err.Description
Resume Exit_cmdImport_Click

End Sub
 
Top