Public Function TableExists(value as String) as Boolean On Error Resume Next TableExists = Len(CurrentDb.Tabledefs(value).Name & "") > 0 End Function