перестал работать фильтр / Microsoft Access

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / перестал работать фильтр

7 сообщений из 7, страница 1 из 1

перестал работать фильтр

#40129847

kos20

Участник

Сообщения: 531

Рейтинг: 0 / 0

День, добрый!
Суть проблемы: есть 2 формы со своими подчинёнными. При нажатии на кнопку, расположенную на Ф1, закрывается Ф1 и открывается Ф2. На Ф2 есть аналогичная Конопка, которая закрывает Ф2 и открывает Ф1. Но После открытия Ф1 почему-то перестает работать фильтр. Вопрос: почему перестает работать фильтр? После открытия заново приложения ACCESS фильтр заново работает.

...

Рейтинг:

0 / 0

27.01.2022, 11:59

| Ответить | Цитировать | Написать

перестал работать фильтр

#40129861

vmag

Участник

Откуда: MP

Сообщения: 4 280

Рейтинг: 0 / 0

kos20,

Ищи разницу между открытием форы ф1 заново и открытием формы ф1 по кнопке из ф2
угадать именно в чем она - трудно... примерно так же как угадать почему болит голова вон у того мужика...

...

Рейтинг:

0 / 0

27.01.2022, 12:44

| Ответить | Цитировать | Написать

перестал работать фильтр

#40129870

Akina

Участник

Откуда: Зеленоград, Москва, Россия

Сообщения: 20 644

Рейтинг: 0 / 0

А нафига закрывать-открывать? сразу загружай обе формы, вторую просто делай скрытой. По нажатию кнопки скрывай текущую и отображай другую, по кнопке закрытия закрывай и скрытую...

Или две вкладки, в каждой своя форма, и просто переключать их.

...

Рейтинг:

0 / 0

27.01.2022, 13:08

| Ответить | Цитировать | Написать

перестал работать фильтр

#40129871

kos20

Участник

Сообщения: 531

Рейтинг: 0 / 0

vmag,

Фильтрация осуществляется по этому алгоритму в Форме 1:
_{Private Sub FormRefilter(Optional sDSCRText$ = "")

'Аргумент: sDSCRText - для пердачи текста в процедуру для поля "Примечание"

'Построройка фильтра по полям и фильтрация (если задано):

Dim sFilter$, sTemp$

If Me.полеКомпания.ListIndex > -1 Then

strFilter = strFilter & " AND КомпанияКод =" & Me!полеКомпания

End If

If Me.ПолеДебитор.ListIndex > -1 Then

strFilter = strFilter & " AND ДебиторКод =" & Me!ПолеДебитор

End If

If Me.ПолеКредитчик.ListIndex > -1 Then

strFilter = strFilter & " AND ДКод =" & Me!Поле1

End If

If Me.ПолеКлиентщик.ListIndex > -1 Then

strFilter = strFilter & " AND ДПКод =" & Me!Поле2

End If

If strFilter <> "" Then 'Фильтр задан

strFilter = Mid(strFilter, 6) 'Обрезаем первый " AND "

[Form_подчиненная форма тСводная].Form.Filter = strFilter

[Form_подчиненная форма тСводная].Form.FilterOn = True

...}

...

Рейтинг:

0 / 0

27.01.2022, 13:08

| Ответить | Цитировать | Написать

перестал работать фильтр

#40129881

kos20

Участник

Сообщения: 531

Рейтинг: 0 / 0

Akina,

Наверно тек и сделаю. Спасибо!. Но хотел разобраться в чем проблема. При этом было подмечено, что фильтр сам по себе работает, но подчинённая форма просто не обновляет данные. Странно, почему так...

...

Рейтинг:

0 / 0

27.01.2022, 13:40

| Ответить | Цитировать | Написать

перестал работать фильтр

#40129911

ПЕНСИОНЕРКА

Участник

Откуда: Владимирская обл

Сообщения: 4 809

Рейтинг: 0 / 0

kos20,

обычно делаю так

Код: vbnet

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.
32.

Private Sub FormRefilter(Optional sDSCRText$ = "")
'Аргумент: sDSCRText - для пердачи текста в процедуру для поля "Примечание"
'Построройка фильтра по полям и фильтрация (если задано):
Dim s1, s2, sdate
sdate = "\#mm\/dd\/yyyy\#"
s1 = ""
s2 = "" & Me.полеКомпания  ''если возвращается код
If Len(s2) > 0 Then
s1 = s1 & " AND КомпанияКод =" & s2
End If
s2 = "" & Me.ПолеДебитор '' если возвращается текст
If Len(s2) > 0 Then
s1 = s1 & " AND ДебиторКод ='" & s2 & "'"
End If
s2 = Me.Поле1   ''частичный поиск по простому полю
If Len(s2) > 0 Then '
s1 = s1 & " AND ДКод ='*" & s2 & "*'"
End If
s2 = Format(Me.data_n, sdate)  ''начало периода, задавать необязательно
If Len(s2) > 0 Then
s1 = s1 & " AND data_n >=" & s2
End If
s2 = Format(Me.data_k, sdate)  ''конец периода, задавать необязательно
If Len(s2) > 0 Then
s1 = s1 & " AND data_k <=" & s2
End If
If Len(s1) > 0 Then 'Фильтр задан
s1 = Mid(s1, 6) 'Обрезаем первый " AND "
[Form_подчиненная форма тСводная].Form.Filter = s1
[Form_подчиненная форма тСводная].Form.FilterOn = True
End If
End Sub

...

Рейтинг:

0 / 0

27.01.2022, 14:29

| Ответить | Цитировать | Написать

перестал работать фильтр

#40129933

ПЕНСИОНЕРКА

Участник

Откуда: Владимирская обл

Сообщения: 4 809

Рейтинг: 0 / 0

немного ошиблась

Код: vbnet

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.
32.

Private Sub FormRefilter(Optional sDSCRText$ = "")
'Аргумент: sDSCRText - для пердачи текста в процедуру для поля "Примечание"
'Построройка фильтра по полям и фильтрация (если задано):
Dim s1, s2, sdate
sdate = "\#mm\/dd\/yyyy\#"
s1 = ""
s2 = "" & Me.полеКомпания  ''если возвращается код
If Len(s2) > 0 Then
s1 = s1 & " AND КомпанияКод =" & s2
End If
s2 = "" & Me.ПолеДебитор '' если возвращается текст
If Len(s2) > 0 Then
s1 = s1 & " AND ДебиторКод ='" & s2 & "'"
End If
s2 = "" & Me.Поле1  ''частичный поиск по простому полю
If Len(s2) > 0 Then '
s1 = s1 & " AND ДКод ='*" & s2 & "*'"
End If
s2 = "" & Me.fdata_n ''начало периода, задавать необязательно
If Len(s2) > 0 Then
s1 = s1 & " AND data_n >=" & Format(Me.fdata_n, sdate)
End If
s2 = "" & Me.fdata_k ''конец периода, задавать необязательно
If Len(s2) > 0 Then
s1 = s1 & " AND data_k <=" & Format(Me.fdata_k, sdate)
End If
If Len(s1) > 0 Then 'Фильтр задан
s1 = Mid(s1, 6) 'Обрезаем первый " AND "
[Form_подчиненная форма тСводная].Form.Filter = s1
[Form_подчиненная форма тСводная].Form.FilterOn = True
End If
End Sub

...

Рейтинг:

0 / 0

27.01.2022, 15:09

| Ответить | Цитировать | Написать

7 сообщений из 7, страница 1 из 1

Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / перестал работать фильтр

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=45&gotolast=1&tid=1609481]:	0ms
get settings:	11ms
get forum list:	14ms
check forum access:	4ms
check topic access:	4ms
track hit:	36ms
get topic data:	11ms
get forum data:	2ms
get page messages:	44ms
get tp. blocked users:	2ms
others:	261ms

total:	389ms