Import error msg box

[micang]

Access 2000/2003

Hi All,

When importing a txt, excel etc into Access, how can I get a msg popup telling me that there are import errors or not?

This is the basic transfer code used:

Function Macro3()
On Error GoTo Macro3_Err

    DoCmd.TransferText acImportDelim, "VRR_Use", "checkformats", "F:\Data\svt2.txt", True, ""

Macro3_Exit:
    Exit Function

Macro3_Err:
    MsgBox Error$
    Resume Macro3_Exit

End Function

Can this be modified to achieve the msg popup?

Many Thanks

Michael

 

[Zion7]

If it's just this procedure, that you're concerned about,
Then simply

Function Macro3()
On Error GoTo Macro3_Err

DoCmd.TransferText acImportDelim, "VRR_Use", "checkformats", "F:\Data\svt2.txt", True, ""



Macro3_Exit:
If err = 0 Then MsgBox "Import Succeeded"
Exit Function

Macro3_Err:
MsgBox Error$
Resume Macro3_Exit

End Function


because of you err handler, you'll get a msgbox regardless
if there is an error, ...now you ge one, if there is not

 

[micang]

Thanks for that Zion7.

Michael