Public Function funVerifyTable(strTable As String) As Boolean

Dim tdf As TableDef

    On Error GoTo 999  'Назначаем переход по ошибке

    funVerifyTable = False 'Возвращаем результат при ошибке

    Set tdf = appAccess.CurrentDb.TableDefs(strTable) 'Находим объект

    If (tdf Is Nothing) = False Then funVerifyTable = True 'Проверяем объект

    Set tdf = Nothing 'Уничтожаем переменную

    Exit Function 'Выходим из программы

999:

    Err.Clear 'Очищаем поток от ошибок

Содержание раздела

---