On Error GoTo does not resume?

[easbrandel]

I am importing a file into a table with a form and doing some other actions. I am trying to put error handling around the file import. If the file is not there, it should display a message and stop, otherwise continue on. Here is my code (see bold). What happens instead, is if the file is there and imported, it does not proceed to the following statements. What am I doing wrong? Thanks!

Private Sub Command17_Click()
On Error Resume Next
DoCmd.DeleteObject acTable, "ImportErrors"


On Error GoTo ErrorHandler
DoCmd.TransferText acImportFixed, "Import Specification", "Table", "C:\file.txt"
Exit Sub
ErrorHandler:
MsgBox ("There was a problem importing the file. Check the filename and try again.")


Resume Next

DoCmd.Close acForm, "Form", acSaveYes
DoCmd.OpenForm "Form"
On Error Resume Next
DoCmd.OpenTable "ImportErrors"
End Sub

[TheShabz]

Try putting the ErrorHandler at the very end. I think its treating your docmd's after the Resume Next as part of the Error Handler.

[c_smithwick]

Resume Next instructs the program to resume at the next line AFTER the one that caused the error, which in your case is "Exit Sub". Try the following:

Private Sub Command17_Click()
On Error Resume Next
DoCmd.DeleteObject acTable, "ImportErrors"
On Error GoTo ErrorHandler
DoCmd.TransferText acImportFixed, "Import Specification", "Table", "C:\file.txt"
DoCmd.Close acForm, "Form", acSaveYes
DoCmd.OpenForm "Form"
DoCmd.OpenTable "ImportErrors"
Exit Sub
ErrorHandler:
 MsgBox ("There was a problem importing the file. Check the filename and try again.")
 Resume Next
End Sub

[TheShabz]

I didn't even notice the exit sub. Good catch C.

[easbrandel]

That did it! Thanks

[TheShabz]

please mark the thread as solved =]