Error management with Call command

[Kelvin]

Please Help,
When calling an external database...

Private Sub cmdFeeback_Enter()
On Error GoTo Err_cmdFeeback_Enter

Dim stAppName As String

stAppName = "c:\msaccess\msaccess C:\Feedback\Feedback.mde"
Call Shell(stAppName, 1)

Exit_cmdFeeback_Enter:
Exit Sub

Err_cmdFeeback_Enter:
MsgBox Err.Description
Resume Exit_cmdFeeback_Enter
End Sub

If the above file "C:\Feedback\Feedback.mde" does not exist then I would like to roll the error over so code operation is continued without trying to open the database. If the database is there it will open as normal.

Thanking You
Kelvin

 

[THoey]

You are going to want to use the DIR function to check to see if the file exists:

MyFile = Dir("C:\Feedback\Feedback.mde")
IF Length(MyFile) <> 0 THEN
stAppName = &quot;c:\msaccess\msaccess C:\Feedback\Feedback.mde&quot;
    Call Shell(stAppName, 1)
ENDIF

HTH


Terry M. Hoey
th3856@txmail.sbc.com

Ever notice that by the time that you realize that you ran a truncate script on the wrong instance, it is too late to stop it?