Problem:
Check if table is exist

Solution:
Option Compare Database
Public Function TableExists(strTable As String) As Boolean
Dim strName As String

On Error Resume Next
‘If table exists already then strName will be > “”
strName = CurrentDb.TableDefs(strTable).name
TableExists = Not (strName = “”)
End Function