Question

Part of some vba code I’m writing calls a saved import using:

DoCmd.RunSavedImportExport "import_name"

This is working quite well for me, except when the saved import does not exist. In that case it fails silently.

Is there a way to check whether the import definition exists so that I can raise an error or take other action if it doesn’t?

I’m using Access 2010 but it needs to work in 2003 as well.

Answer 1

Provide and error handler to resolve this issue (Access 2007 and higher):

Sub Importer()
On Error GoTo ErrImport

DoCmd.RunSavedImportExport "import_name"

ExitImporter:
  Exit Sub

ErrImport:
  MsgBox Error 'Err = 31602 for missing import specification
  Resume ExitImporter

End Sub

A more general solution uses the TransferText command as follows:

Sub Importer()
    On Error GoTo ErrImport

DoCmd.TransferText acImportDelim, "Import_file Import Specification", "import_file", "import_file.txt", False

ExitImporter:
  Exit Sub

ErrImport:
    MsgBox "Error Number = " & Err & ", Message=" & Error ' Error 3011 indicates import_file.txt not found
    Resume ExitImporter

End Sub