А как насчет свойства формы MaxRecord?
думаю что после применения фильтра это свойство уже непричем
кстати , для всех заинтересованных есть процедурка - замена клиентского фильтра формы на серверный.
вот последняя на сегодняший день версия:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
Public Sub SET_ServerFilter(ByRef FRM As Form)
Echo False
Dim SF As String
SF = FRM.Filter
If SF = "" Or FRM.FilterOn = False Then
FRM.ServerFilter = " "
FRM.RecordSource = FRM.RecordSource
Echo True
Exit Sub
End If
SF = Replace(FRM.Filter, Chr(34 ) & Chr( 34 ), "<myfindquote> ", , , vbTextCompare)
SF = Replace(SF, Chr(34 ), "'", , , vbTextCompare)
SF = Replace(SF, "<myfindquote>", Chr(34), , , vbTextCompare)
SF = Replace(SF, " ALike ", " Like ", , , vbTextCompare)
If SF Like "* select *" Then SF = Replace(SF, FRM.Name & ".", "", , , vbTextCompare)
If Trim(FRM.ServerFilter) = "" Or IsNull(FRM.ServerFilter) Then
FRM.ServerFilter = SF
Else
FRM.ServerFilter = FRM.ServerFilter & " AND " & SF
End If
FRM.Filter = ""
FRM.RecordSource = FRM.RecordSource
Echo True
'Желающие убедиться могут раскоментировать ниже
'FRM.Recordset.PageSize = 1
'Debug.Print FRM.Recordset.PageCount
End Sub
вызывать ее имеет смысл по событию смены фильтра в форме
1.
2.
Private Sub Form_ApplyFilter(Cancel As Integer, ApplyType As Integer)
Call SET_ServerFilter(Me)
End Sub
при использовании этой процедуры фильтр автоматом применяется на рекордсет
положительный побочный эффект - работают суммовые поля в примечании формы, так как это было в MDB
