G
Guest
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,
"(e-mail address removed)", , , "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
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,
"(e-mail address removed)", , , "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