Can't kill 'e can't live with 'em.

[Hydra]

If Dir(strDB) <> "" Then
Kill strDB
End If

Set AppAccess = CreateObject("Access.Application")
AppAccess.Visible = True
AppAccess.OpenCurrentDatabase strDB
AppAccess.DoCmd.Opentable "MSP Data", acViewNormal, acAdd

---------------------------------------------

Throws an Error cannot open the database because it is missing or opend
exclusively by another user


-------------------------------------------


If Dir("C:\DataCheck.mdb") <> "" Then
MsgBox "Datacheck Exists"
Kill "C:\DataCheck.mdb"
End If
Set appAccess = CreateObject("Access.Application")
appAccess.Visible = True
With appAccess
..NewCurrentDatabase ("C:\DataCheck.mdb")
..Visible = True

 

[JLGWhiz]

Try it this way:

If Not Dir(strDB) Is NothingThen

 

[Hydra]

This threw a type mismatch error ???

strDB is Dim as string and contains the name of a valid path.

 

[JLGWhiz]

I just ran this, and it deleted the file. The two message boxes are
trouble shooting tools and can be deleted or ignored. It is basically the
same code that you initially posted, so it could be that someone had the
file open. Or maybe you had the file open. It will not delete an open
file.

Sub dk()
myPath = ThisWorkbook.Path
fl = myPath & "\test.xls"
If Dir(fl) <> "" Then
MsgBox "It's There"
MsgBox Dir(fl)
Kill fl
End If
End Sub

And yes, the syntax using the Not operator will not work for this
application. I leaped before I looked on that one.

 

[Patrick Molloy]

if the first IF/End If deletes the file if it exists, and then the second
block of code tries to open the file, so it must fail....hence the error.