Public Function TblExists(sTable As String) As Boolean
On Error Resume Next
Dim tdf As TableDef
Set tdf = CurrentDb.TableDefs(sTable)
If Err.Number = 0 Then
TblExists = True
Else
TblExists = False
End If
End Function
Public Function TableExists(value as String) as Boolean
On Error Resume Next
TableExists = Len(CurrentDb.Tabledefs(value).Name & "") > 0
End Function
