Solved: Error Handler Routine Problem
Hi,
I've setup an error handler routine that always runs.
I can't work out why. I'm using a shared workbook.
When the workbook is saved if someone else is saving the workbook at the same time then the error handler routine will run. However the routine always runs. I've unshared the workbook and tried saving it by myself and it generates the error.
Any suggestions?
[vba]Private Sub cmdUpdate_Click()
' Check to see if Who Called has been completed
If Trim(Me.cboWhoCalled.Value) = "" Then
Me.cboWhoCalled.SetFocus
MsgBox "Please complete the Who Called field!"
Exit Sub
End If
' Check to see if Nature Of Call has been completed
If Trim(Me.cboReason.Value) = "" Then
Me.cboReason.SetFocus
MsgBox "Please complete the Nature Of Call field!"
Exit Sub
End If
Call SendGeneralEmail
ActiveWorkbook.Save
On Error GoTo ErrHandler
Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("InboundData")
'find first empty row in database
iRow = ws.Cells(Rows.Count, 1) _
.End(xlUp).Offset(1, 0).Row
'copy the data to the database
ws.Cells(iRow, 1).Value = Me.txtDate.Value
ws.Cells(iRow, 2).Value = Me.txtCM.Value
ws.Cells(iRow, 3).Value = Me.cboWhoCalled.Value
ws.Cells(iRow, 4).Value = Me.txtDealerNo.Value
ws.Cells(iRow, 5).Value = Me.txtContact.Value
ws.Cells(iRow, 6).Value = Me.txtDealerName.Value
ws.Cells(iRow, 7).Value = Me.cboScheme.Value
ws.Cells(iRow, 8).Value = Me.cboReason.Value
ws.Cells(iRow, 9).Value = Me.txtComments.Value
ws.Cells(iRow, 10).Value = Me.cboSubject.Value
'clear the data
Me.txtDate.Value = Format(Date, "yyyy/mm/dd")
Me.txtCM.Value = Application.UserName
Me.cboWhoCalled.Value = ""
Me.txtContact.Value = ""
Me.txtDealerNo.Value = ""
Me.txtDealerName.Value = ""
Me.cboScheme.Value = ""
Me.cboReason.Value = ""
Me.txtComments.Value = ""
Me.cboSubject.Value = ""
Me.txtCM.SetFocus
Unload Me
ErrHandler:
MsgBox "Another user is trying to save the workbook. Automatically retrying in 5 seconds."
Application.Wait Now + TimeValue("0:00:05")
ActiveWorkbook.Save
Resume Next
End Sub[/vba]
Thanks,
