Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / Microsoft Access Новый топик    Ответить
 Прикольные фильтры  [new]
Proga
Member

Откуда: МО
Сообщений: 3042
Приколитесь, сталкнулся с такой штукой, когда в форме есть вложенная форма и её надо отфильтровать, то пишу код, такой:
Private Sub filter_Click()
Dim strFilter As String
Dim no As Integer
Dim na As String
Dim vid As Integer
Dim db As DAO.Database
Dim rcd As DAO.Recordset
Set db = CurrentDb
Dim n As Integer

------------>>> n = 0
-------------->> metka2:
----------------->> n = n + 1
If Not IsNull(f2) Then
If strFilter <> "" Then strFilter = strFilter & " AND "
strFilter = strFilter & "naznach = '" & f2 & "'"
End If
If Not IsNull(f3) Then
If strFilter <> "" Then strFilter = strFilter & " AND "
strFilter = strFilter & "rute = '" & f3 & "'"
End If
If Not IsNull(f6) Then
If strFilter <> "" Then strFilter = strFilter & " AND "
strFilter = strFilter & "plosh = " & f6
End If
Me.Main_obj.Form.Filter = strFilter
Me.FilterOn = True
-------------->>> If n = 2 Then GoTo metka1 Else GoTo metka2
metka1:
End Sub
Так вот, если код написать без строк отмеченных стрелками, фильтр срабатывает только после второго нажатие на кнопку фильтра.
Вопрос; Кто может объясни сей глюк.
10 июн 04, 15:17    [735142]     Ответить | Цитировать Сообщить модератору
 Re: Прикольные фильтры  [new]
paparome
Member

Откуда: Москва
Сообщений: 4312
автор
Me.Main_obj.Form.Filter = strFilter
Me.FilterOn = True


Фильтр ставишь на Sub а активируешь на основной?
Как такое, вообще, работатет - пусть и с второго раза :(

может стоит так написать?
Me.Main_obj.Form.Filter = strFilter
Me.Main_obj.Form.FilterOn = True
10 июн 04, 15:30    [735197]     Ответить | Цитировать Сообщить модератору
 Re: Прикольные фильтры  [new]
Proga
Member

Откуда: МО
Сообщений: 3042
Точно, ты прав, всё уже запрограммировался, что основы начал забывать, старею.
Спасибо, за подсказку.
10 июн 04, 15:34    [735212]     Ответить | Цитировать Сообщить модератору
 Re: Прикольные фильтры  [new]
Proga
Member

Откуда: МО
Сообщений: 3042
А вообще как нестранно код, который я привёл, пашет.
Вот, что странно.
10 июн 04, 15:35    [735218]     Ответить | Цитировать Сообщить модератору
Все форумы / Microsoft Access Ответить