Добрый вечер.. Как проверить является ли таблица в Access пустой?

Здравствуйте, HarrySp, Вы писали:

HS> Добрый вечер.. Как проверить является ли таблица в Access пустой?

запрос можете сделать?

Здравствуйте, DivnenkoIvan, Вы писали:

DI>Здравствуйте, HarrySp, Вы писали:

HS>> Добрый вечер.. Как проверить является ли таблица в Access пустой?

DI>запрос можете сделать?

Ситуация такая, что У меня идет расчет на основании данных с формы, расчет пишу на VBA, существует пустая таблица в которую мне надо вогнать результаты расчета, но надо перед каждым новым расчето проверять, пустая ли таблица, поскольку у меня стоит счетчик строк.. А вот как проверку на VB написать понятия не имею, пытался написать

Set db = CurrentDb
Set Det = db.OpenRecordset("Det", dbOpenTable)

Det.MoveFirst

If Det.Fields("Имя_Ключевого_поля") <> Null Then ...

Но, во-первых, идет ошибка Det.MoveFirst, если пуста таблица, что понятно, а во-вторых, у меня не сравнивается с Null.. Что делать уже и не знаю

Здравствуйте, HarrySp, Вы писали:

HS>Ситуация такая, что У меня идет расчет на основании данных с формы, расчет пишу на VBA, существует пустая таблица в которую мне надо вогнать результаты расчета, но надо перед каждым новым расчето проверять, пустая ли таблица, поскольку у меня стоит счетчик строк.. А вот как проверку на VB написать понятия не имею, пытался написать

DB нет рядом но в mysqk работала sqk конструкция create if not exists ....

DI>Здравствуйте, HarrySp, Вы писали:

хотя я бы на Вашем месте бы сказал бы fuck it — пробовал использовать таблицу, а при не успехе пробовал создавать, но думаю запросом архитектурно правильнее

Здравствуйте, HarrySp, Вы писали:

HS>А вот как проверку на VB написать понятия не имею, пытался написать

HS>Set db = CurrentDb
HS> Set Det = db.OpenRecordset("Det", dbOpenTable)

HS>Det.MoveFirst

HS>If Det.Fields("Имя_Ключевого_поля") <> Null Then ...

Как-то это больше на VB.Net похоже. А что RecordCount, или просто Count в том, что OpenRecordset возвращает нету? -- IMHO должно быть... его на 0 проверяй и всё.