хм сделать запрос с паматером по логиченскому полю и посчитать кол-во записей в нем у меня вот такая функция есть

Function RowCount(strName As String, bolType As Boolean, strParam As String) As Integer

Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim qdf As DAO.QueryDef

Set db = CurrentDb

bolType = True - tbale, False - query
If bolType = True Then
Set rst = db.OpenRecordset("Select * from" & strName)
Else
Set qdf = db.QueryDefs(strName)
qdf.Parameters(0) = strParam
Set rst = qdf.OpenRecordset

End If

With rst
If .RecordCount = 0 Then
RowCount = 0
Else
.MoveLast
.MoveFirst
RowCount = .RecordCount
End If
End With

End Function