successful import message

[jeff1]

I have a button that initiates the import of a spreadsheet into an existing table.
I would like to let the user know that the import was successful with a message box of somthing equivelant. Below is part of the code that I am using to import the spreadsheet.

On Error GoTo ErrCommonDialog
If fraImportType = 1 Then
DoCmd.TransferSpreadsheet acImport, , strAccessTable, strExcelWorkBook, booFieldNames

Thanks in advance for all your help.

 

[cghoga]

after the DoCmd.Transfer....enter this:

msgbox("Import was successful&quot

Have you thought about creating an ODBC link to the Excel doc. This way you wouldn't have to import the data and your users are always sure to have a current version of the data.

just a thought.

hope this helps you.

 

[jeff1]

Thanks alot. This works great.

The data imported is actually individual receipts downloaded from the web.

Thanks again fro your help