ник: час
Спасибо всем, откликнувшимся. 
Public Function FUN_FREE_TABLE(STR_TABLE_NAME As String) As Boolean
' проверка таблицы/запроса на пустоту - на отсутствие записей
' Если FUN_FREE_TABLE = True - таблица пуста
' -----------------
On Error GoTo NAFIG
' проверяем
If Not CurrentDb.OpenRecordset(STR_TABLE_NAME).BOF Then FUN_FREE_TABLE = True
Exit Function
NAFIG:
End Function
|