check table exists (1 Viewer)

Public Function TableExists(TableName As String) As Boolean


Dim tdf As TableDef
Dim db As Database

On Error GoTo errorhandler
Set db = CurrentDb
On Error Resume Next

Set tdf = db.TableDefs(TableName)
TableExists = Err.Number = 0
db.Close

Exit Function

errorhandler:

Err.Raise Err.Number
Exit Function

End Function

Public Function TblExists(strTableName As String) As Boolean

'ADO Method

Dim obj As AccessObject
Dim dbs As Object

Set dbs = Application.CurrentData
TblExists=False
For Each obj In dbs.AllTables
    If obj.Name = strTableName Then
        TblExists = True
        Exit For
    End If
Next obj

End Function

function TableExists(sTable as string) as boolean
    dim tdf as tabledef
    
    On Error Resume Next
  
    set tdf = Currentdb.Tabledefs(sTable)

    if Err.Number = 0 Then
        TableExists = True
    else
        TableExists = False
    end if
End function

Function TableExists(sTable as string) as booleans
    dim iResult as integer

    If Dcount("*","msysobjects","Type = 1 AND name='" & sTable & "'") = 0 Then
        TableExists = False
    Else
        TableExists = True
    End if
End Function

Function fTableExists(ByVal sTable As String) As Boolean

'I prefer to add the delimiters (quotation marks) in to the variable to avoid difficult to read code.
'Code with lots of confusing quotation marks in it!
'Add an Extra line - Like This:-
sTable = Chr(34) & sTable & Chr(34)     'Chr(34) = "
    
    'Original
    'If DCount("*", "msysobjects", "Type = 1 AND name='" & sTable & "'") = 0 Then
    
    'Simplified
    If DCount("*", "msysobjects", "Type = 1 AND name=" & sTable) = 0 Then
        fTableExists = False
    Else
        fTableExists = True
    End If
End Function      'fTableExists