Ответить на сообщение
Вернуться к теме
Вы отвечаете на сообщение:
ник: час Ваще то во как нужно
Public Function FUN_FREE_TABLE(STR_TABLE_NAME As String) As Boolean ' проверка таблицы/запроса на пустоту - на отсутствие записей ' Если FUN_FREE_TABLE = True - таблица пуста ' ---------------------------------------------------------- On Error Resume Next FUN_FREE_TABLE = False If CurrentDb.OpenRecordset(STR_TABLE_NAME).EOF Then FUN_FREE_TABLE = True Exit Function If CurrentDb.OpenRecordset(STR_TABLE_NAME).RecordCount = 0 Then FUN_FREE_TABLE = True End Function
Ваше имя:
Пароль:
Сообщение:
Прикрепить:
Для вставки смайлов в текст щелкните по значку.