ник: Romiras
хм сделать запрос с паматером по логиченскому полю и посчитать кол-во записей в нем у меня вот такая функция есть
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