ник: час
Хорошая идея, но много кода перед EOF
ПоЛУЧАЕТся
Public Function FUN_FREE_TABLE( STR_TABLE_NAME as string ) As Boolean
' проверка таблицы на пустоту
' Если FUN_FREE_TABLE = True - таблица пуста
Dim db As Database
Dim RST As Recordset
Set db = CurrentDb
' предположим занято...
FUN_FREE_TABLE = False
' -----------------
On error goto NAFIG
' проверяем
Set RST = db.OpenRecordset( STR_TABLE_NAME, dbOpenDynaset)
If RST.EOF Then FUN_FREE_TABLE =True
Exit Function
NAFIG:
End Function
|