Importing File

[hongbin81]

I created an Import Command button ( DoCmd.RunCommand acCmdImport ) which works exactly the same as the on in the File menue = > Get External Data => Import.

It works except that, when I press my Import Button and Cancel, I get an error. Is there a separate code when Canceling the import??

 

[dvannoy]

I dont think you can get away from that error.. but you can do something like this

Dim Resp As Integer
Dim Cancel As Boolean

Resp = MsgBox("Are You Sure You Want to Import ?", _
vbYesNo, "Import ?&quot
If Resp = vbYes Then
DoCmd.RunCommand acCmdImport
Cancel = False
Else
Cancel = True
End If
Exit Sub