'в форму на событие применение фильтра (если фильтры сохраняются то и на загрузку)'


Private Sub Form_ApplyFilter(Cancel As Integer, ApplyType As Integer)
Call SET_serverfilter(Me)
End Sub

'В общий модуль'
Option Compare Database

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 ),  "'", , , vbTextCompare)                            
'не стал заморачиваться с незаменой кавычек и ALIKE внутри других кавычек,   но думаю что для начала и так сгодится " 
SF = Replace(SF,  " ALike " ,  " Like " , , , vbTextCompare)
'В Аксесс 2003 исправлена эта ошибка - там ставится имя таблицы '
If Access.Version <>  "11 . 0 " 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
End Sub

[SRC]'В Аксесс 2003 исправлена эта ошибка - там ставится имя таблицы '
If Access.Version <>  "11 . 0 " Then SF = Replace(SF, FRM.Name &  "." , "", , , vbTextCompare)