Function fDoesTableExist(strTableName As String) As Boolean
On Error GoTo errHandler
'From https://www.access-diva.com/tips.html
 
    Dim db As DAO.Database
    Dim tdf As TableDef
 
    fDoesTableExist = False
 
    Set db = CurrentDb()
 
    For Each tdf In db.TableDefs
       If tdf.Name = strTableName Then
         Set db = Nothing
         fDoesTableExist = True
         Exit Function
       End If
    Next tdf
    Set db = Nothing
 
exitRoutine:
  Set tdf = Nothing
  Exit Function
 
errHandler:
  Select Case Err.Number
    Case 3265
      fDoesTableExist = False
    Case Else
      MsgBox Err.Number & ": " & Err.Description, vbCritical, "Error in fDoesTableExist()"
  End Select
  Resume exitRoutine
 
End Function

Function fTableExists(strTableName As String, Optional db As DAO.Database) As Boolean
On Error GoTo errHandler
'6.7.2010 David Fenton
'Based on testing, when NOT passed an existing database variable, this is the fastest
 
      Dim strSQL As String
      Dim rs As DAO.Recordset
 
      If db Is Nothing Then Set db = CurrentDb()
      strSQL = "SELECT MSysObjects.Name FROM MSysObjects " & _
                "WHERE MSysObjects.Name=" & Chr(34) & strTableName & Chr(34) & "" & _
                    "AND MSysObjects.Type=6"
      Set rs = db.OpenRecordset(strSQL)
      fTableExists = (rs.RecordCount <> 0)
 
exitRoutine:
  If Not (rs Is Nothing) Then
     rs.Close
     Set rs = Nothing
  End If
  Exit Function
 
errHandler:
  MsgBox Err.Number & ": " & Err.Description, vbCritical, "Error in fTableExists()"
  Resume exitRoutine
End Function