Tutorial by Examples

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

Page 1 of 1