Error Coding Problems

[desk4tbc]

I have a bit of code that is supposed to warn a user twice on unsuccessful deletion of a file.

Exit Sub
DeleteError:
If Err.Number > 0 Then
    Err.Clear
    intEmptyFile = MsgBox("Delete was unsuccessful." & vbCrLf & "Please close the file you wish to delete and click OK.", vbExclamation, "Delete Error")
    On Error GoTo DeleteFinal
    Kill OldName
DeleteFinal:
    If Err.Number > 0 Then
        intEmptyFile = MsgBox("Delete was unsucessful." & vbCrLf & "Please delete the file manually.", vbCritical, "Delete Error")
    End If
    GoTo EOBEntry
End If

But for some reason "On Error GoTo DeleteFinal" doesn't work and the script stops at "Kill OldName". This even happens when I replace the "On Error GoTo DeleteFinal" with "On Error Resume Next".

[RuralGuy]

How about posting the entire procedure? GoTo's bother me and except for "On Error GoTo", I don't use them.

[desk4tbc]

The requested bit

        FileCopy OldName, NewName
        [Link] = NewName & "#" & NewName & "#"
        intDeleteFile = MsgBox(MoreText, vbYesNo, "Delete?")
        If intDeleteFile = vbYes Then
            On Error GoTo DeleteError
            Kill OldName
        End If

EOBEntry:
If Me.FileType = "EOB" Then
    Application.FollowHyperlink NewName
    intEmptyFile = MsgBox(txt, vbYesNo, "EOB Entries")
    If intEmptyFile = vbYes Then
        DoCmd.OpenForm "FileList_Patient Entry", , , , acFormEdit, , Me.[Accession Number]
    Else
        DoCmd.OpenForm "FileList_Patient Entry", , , , acFormEdit, acWindowNormal
    End If
End If

Exit Sub
DeleteError:
If Err.Number > 0 Then
    Err.Clear
    intEmptyFile = MsgBox("Delete was unsuccessful." & vbCrLf & "Please close the file you wish to delete and click OK.", vbExclamation, "Delete Error")
    On Error GoTo DeleteFinal
    Kill OldName
DeleteFinal:
    If Err.Number > 0 Then
        intEmptyFile = MsgBox("Delete was unsucessful." & vbCrLf & "Please delete the file manually.", vbCritical, "Delete Error")
    End If
    GoTo EOBEntry
End If

End Sub

The GoTo was so that the code could go back to a point before "Exit Sub" and to separate the error coding from the rest of the code.

[RuralGuy]

So you do not want to post the entire procedure starting with Private Sub... Right? What do you mean the script "stops" at "Kill OldName"? How do you know?

[desk4tbc]

Its a realllllly long sub. Everything else works except the delete error handler part. It gets a Run-time error '70': Permission denied dialog box even though I have an On Error Goto right before the part (line: Kill OldName) that is causing the permission fault.

I'm wondering what is going on, as the On Error GoTo should be trapped and stored in the Err object but it hasn't.

[RuralGuy]

I take it you have single stepped this code and watched the variables to verify what is happening?

[desk4tbc]

Yep, all the strings, integers and other variables are fine. It just that the On Error isn't working as expected.

EDIT: Figured it out. Forgot to use resume so I was attempting to do an On Error inside an On Error. Access really didn't like that. Thanks for the help RuralGuy.

[RuralGuy]

You're welcome. Sometimes we're just a sounding board.