Фильтр в Recordset

smi

Дата: 09.09.2005 16:22:48

Почему-то не фильтрует. Может подскажет кто – почему?

Private Sub ФлПрисутствиеСчетаПростои_Click()
    Dim rs As Object
    Dim sF As String
    Dim rsFilter As Object
    Dim c As Integer

    Set rs = [СубФ].Form.Recordset.Clone
    sF = "[флКлиент]= -1"
    rs.Filter = sF 
    Set rsFilter = rs
    c = rsFilter.RecordCount
End Sub

eGorkaBy

Дата: 09.09.2005 16:46:53

полагаю это mdb & DAO
попробуйте Set rsFilter = rs.openrecordset

eGorkaBy

Дата: 09.09.2005 16:54:12

погодите а что вы хотите посчитать

smi

Дата: 09.09.2005 16:55:16

eGorkaBy

погодите а что вы хотите посчитать

Коллич записей

smi

Дата: 09.09.2005 16:59:10

eGorkaBy

погодите а что вы хотите посчитать

а именно Коллич записей после применения фильтра

eGorkaBy

Дата: 09.09.2005 17:06:29

полагаю форма ленточная
так сделайте в запросе вычесляемое поле "iif([флКлиент]= -1,1,0) as Простой"
а в подвале формы поле с суммой '=sum([Простой])'

smi

Дата: 09.09.2005 17:10:43

eGorkaBy

Мне нужно на Recordset фильтр наложить

eGorkaBy

Дата: 09.09.2005 17:16:24

так всетаки
'Коллич записей после применения фильтра'
или
'Мне нужно на Recordset фильтр наложить'

smi

Дата: 09.09.2005 17:22:53

eGorkaBy

так всетаки
'Коллич записей после применения фильтра'
или
'Мне нужно на Recordset фильтр наложить'

По всей видимости весь этот диалог завязался в связи с куском кода:
c = rsFilter.RecordCount.
Эта строка влезла туда случайно. Я просто проверял коллич. записей после наложения фильтра. Дальше там:
Ме!Поле = с
Но это рудименты механизма проверки вышеуказанного кода. Меня интересует Фильтр в Recordset.

eGorkaBy

Дата: 09.09.2005 17:30:54

замена Set rsFilter = rs на Set rsFilter = rs.openrecordset не помогла?