Check if Table Exists

[darude]

Good Day All,
I just want to check if a local table (which actually gets imported) exists and can't find any information at all for that type of check.

Thank you for any help on this.

 

[randy700]

How about something like this?

Dim strSQL As String
On Error GoTo NoTable:
    strSQL = DLookup("FieldName", "TableName")

NoTable:
    If Err.Number = 3078 Then
        MsgBox "No such table"
    End If

Randy

 

[darude]

Awesome. Thank you so much.

 

[PHV]

You may use this function:

Function TableExists(strTableName As String) As Boolean
On Error Resume Next
TableExists = (CurrentDb.TableDefs(strTableName).Name = strTableName)
End Function

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[randy700]

Much better!
I suspected there was something like that but didn't know the method.


Randy