Statement for If Table Exists

[FrankFischer]

You guys are great. You are the only ones who get it.

I run a 50% chance of an import error when I import a data stream. When I do, I simply want to delete it. How can I easily state:

If TableExists("My_ImportErrors") Then
Delete Table("My_ImportErrors")
End If

Many Thanks

 

[Norie]

This bit of code might be useful:

Function IsTable(tblName As String) As Boolean

Dim db As Database
Dim tdf As TableDef

Set db = CurrentDb

    For Each tdf In db.TableDefs
        IsTable = (tdf.Name = tblName)
        If IsTable Then Exit Function
    Next
    
End Function

Use something like this:

Sub DeleteErrorTable()

Dim db As Database
Dim tdf As TableDef

Set db = CurrentDb

If IsTable("My_ImportErrors") Then

db.TableDefs.Delete "My_Table Errors"

End If

End Sub

I think this should wwork but can't test it as I'm having network problems.

 

[mdmilner]

Here's a sample MDB demonstrating how to check for most access object types.

http://www.mvps.org/access/modules/mdl0014.htm


Mike