I have made a reasonably simple database, for some reason I am struggling to send of reports by Emails.The piece of code I am using is:
Private Sub cmdEMailRptPastNonCon_Click()
DoCmd.Close acForm, Me.Name
DoCmd.OpenForm "frmSwitchboard", acNormal
On Error GoTo Err_cmdEMailRptPastNonCon_Click
Dim stDocName As String
stDocName = "rptPastNonCon"
DoCmd.SendObject acReport, stDocName
Exit_cmdEMailRptPastNonCon_Click:
Exit Sub
Err_cmdEMailRptPastNonCon_Click:
MsgBox Err.Description
Resume Exit_cmdEMailRptPastNonCon_Click
End Sub
A box appears with the options [rich text,html,snapshot etc] I choose an option and a message box appears saying: "The database engine could not lock "tblMain" because it is already in use by another person or process., I know this is probably a simple stupid error ive made but being a complete beginner I am stuck, any ideas of where I should look to find any errors?
Thanks for any help recieved.
Mat
