Access 2000 - курс лекций
b. Проверка таблицы
Очень часто при работе с базой данных Вам надо проверить наличие в базе данных объекта. На данном примере указан способ проверки таблицы в базе данных. Если объекта нет, то случается ошибка и программа очищает поток от ошибок, возвращая значение False.
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 'Очищаем поток от ошибок
End Function
