MS Access | Получить кол-во записей с помощью Recordset

Количество записей в таблице:

'Recordset.RecordCount

Dim mydb As Database 'работаем с базой данных

Dim rst As Recordset 'работаем с таблицей базы данных

'указываем текущую базу данных (здесь можно указать также путь к другой БД)

Set mydb = CurrentDb()

'открываем таблицу TableName, получаем Recordset с результатами

Set rst = mydb.OpenRecordset("TableName")

If rst.EOF = False Then 'если в табл. записи есть

 'EOF – End Of File, BOF – Begin Of File

 'EOF = True или BOF = False означает, что Recordset пуст (нет записей)

 rst.MoveLast 'перейти на последнюю запись

 MsgBox rst.RecordCount & " записей в табл. TableName", vbExclamation

Else

 MsgBox "Таблица пуста", vbExclamation

End If

Количество записей в запросе

'Recordset.RecordCount

Dim mydb As Database 'работаем с базой данных

Dim qry As QueryDef 'работаем с запросом базы данных

Dim rst As Recordset 'запускаем запрос с помощью Recordset

'указываем текущую базу данных (здесь можно указать также путь к другой БД)

Set mydb = CurrentDb()

'указываем запрос

Set qry = mydb.QueryDefs("QueryName")

'открываем запрос QueryName, получаем Recordset с результатами

Set rst = qry.OpenRecordset

If rst.EOF = False Then 'если в rst записи есть

 'EOF – End Of File, BOF – Begin Of File

 'EOF = True или BOF = False означает, что Recordset пуст (нет записей)

 rst.MoveLast 'перейти на последнюю запись

 MsgBox rst.RecordCount & " записей в запросе", vbExclamation

Else

 MsgBox "Нет записей в запросе", vbExclamation

End If

Количество записей в форме

Set rst = Recordset 'Recordset на форме

If rst.EOF = False Then 'если записи есть

 rst.MoveLast

 MsgBox rst.RecordCount & " записей в табл. TableName", vbExclamation

Else

 MsgBox "Форма пуста", vbExclamation

End If