ReSQL.ru
     
powered by simpleCommunicator - 2.0.55     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / фильр флажками
66 сообщений из 66, показаны все 3 страниц
  все  
фильр флажками
    #39202303
Retvisan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Retvisan
Гость
Форумчане, сделал общий фильтр к которому подвязал все списки и флажки, но появилась проблема со флажками

Private Sub FilterForm()

Dim strFilter As String

strFilter = "True"

If Form.Recordset.EOF Then Me.FilterOn = False
Form.Dirty = False

If Me.Napr_no = True Then strFilter = strFilter & " and [kVili25kV] Like ""НЕТ"""


If Me.Napr_yes = True Then strFilter = strFilter & " and [kVili25kV] Like ""ДА"""

If Me.Napr_case = True Then strFilter = strFilter & " and [kVili25kV] Like ""null"""


If Me.Napr_all = True Then strFilter = strFilter & ""

Me.Filter = strFilter
Me.FilterOn = True



End Sub
Выдает ошибку и не хочет фильтровать. Получается мне нужно 4 позиции: ДА,НЕТ,пусто,все
...
Рейтинг: 0 / 0
28.03.2016, 16:26
| Ответить | Цитировать | Написать  
фильр флажками
    #39202320
Фотография __Michelle
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
__Michelle
Участник
1. Like без * это =.
2. Как поле может быть одновременно ("НЕТ" И "ДА" И "null")? Может, ИЛИ?
3. А "null" - это так в поле и прописано, как текст?
4. Да и по поводу "НЕТ" и "ДА".... Что-то странное...
...
Рейтинг: 0 / 0
28.03.2016, 16:35
| Ответить | Цитировать | Написать  
фильр флажками
    #39202323
Фотография __Michelle
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
__Michelle
Участник
Поле kVili25kV - это логическое (Boolean) поле таблицы Access?
В этом случае оно не может быть Null.
...
Рейтинг: 0 / 0
28.03.2016, 16:38
| Ответить | Цитировать | Написать  
фильр флажками
    #39202330
Retvisan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Retvisan
Гость
__Michelle,

по сути да, да и нет, не смогут быть одновременно это ясно, в этом случае если будут выбраны два флажка то записей не будет. Я разделил флажки для другой цели, чтобы иметь возможность выбирать нет и пусто, или да и пусто, но т.к. это было бы большим нагромождением условий, то сделал 4 флажка, так будет удобней, поверьте) null, это незаполненное поле. И поле kVili25kV, не логическое, т.е. не Boolean
...
Рейтинг: 0 / 0
28.03.2016, 16:43
| Ответить | Цитировать | Написать  
фильр флажками
    #39202335
Фотография __Michelle
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
__Michelle
Участник
Retvisan, чтобы иметь возможность выбирать нет и пусто, или да и пустоНо это все равно ИЛИ (OR), но не И (AND).
...
Рейтинг: 0 / 0
28.03.2016, 16:46
| Ответить | Цитировать | Написать  
фильр флажками
    #39202344
Retvisan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Retvisan
Гость
__Michelle,

это будет значение И, но получается у меня так, что есть общий фильтр и он вызывается для каждого элемента формы. strFilter это общий фильтр, вызываемый для всех элементов
...
Рейтинг: 0 / 0
28.03.2016, 16:48
| Ответить | Цитировать | Написать  
фильр флажками
    #39202356
Фотография __Michelle
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
__Michelle
Участник
Retvisanэто будет значение ИОх....
Еще и значение....
Даже не логическая операция...
...
Рейтинг: 0 / 0
28.03.2016, 16:58
| Ответить | Цитировать | Написать  
фильр флажками
    #39202476
Retvisan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Retvisan
Гость
__Michelle,

Логическая операция. В любом случае вопрос был в синтаксисе кода)) почему не получается применить переменную общего фильтра и условие для него) для флажка
...
Рейтинг: 0 / 0
28.03.2016, 19:00
| Ответить | Цитировать | Написать  
фильр флажками
    #39202497
Фотография __Michelle
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
__Michelle
Участник
Retvisannull, это незаполненное поле. И поле kVili25kV, не логическое, т.е. не BooleanВ таком случае условие должно быть таким
Код: vbnet
1.
kVili25kV Is Null

RetvisanЯ разделил флажки для другой цели, чтобы иметь возможность выбирать нет и пусто, или да и пустоВ таком случае условия должны быть такими
Код: vbnet
1.
(kVili25kV Is Null OR kVili25kV = "<значение>")

, где "<значение>" либо "ДА", либо "НЕТ" (неужели, действительно, так и записано в таблице???).
...
Рейтинг: 0 / 0
28.03.2016, 19:21
| Ответить | Цитировать | Написать  
фильр флажками
    #39202523
Retvisan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Retvisan
Гость
__Michelle,

https://yadi.sk/d/f4jhDwdAqYWdz , вот база, там сделал все флажки, вроде как. посмотрите, если хотите) быть может я вас заблуждение ввожу)
...
Рейтинг: 0 / 0
28.03.2016, 20:11
| Ответить | Цитировать | Написать  
фильр флажками
    #39202526
Фотография __Michelle
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
__Michelle
Участник
Retvisan,

Ой, нет, у меня accdb не откроется.(((
Максимум в 2003-м могу посмотреть, если переделаете в формат 2003-го.
...
Рейтинг: 0 / 0
28.03.2016, 20:15
| Ответить | Цитировать | Написать  
фильр флажками
    #39202531
Retvisan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Retvisan
Гость
__Michelle,

https://yadi.sk/d/kT4JlIQfqYY8x
...
Рейтинг: 0 / 0
28.03.2016, 20:28
| Ответить | Цитировать | Написать  
фильр флажками
    #39202560
Retvisan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Retvisan
Гость
__Michelle,
задумка другая, как прописать условие и переменную общего фильтра одновременно? и все не надо делать никаких двойных условий.Если делать двойные условия, то у меня будет переключателей больше, раз,два я не смогу фиьтровать данные вместе со списками, которые я уже добавил в общий фильтр
...
Рейтинг: 0 / 0
28.03.2016, 21:35
| Ответить | Цитировать | Написать  
фильр флажками
    #39202562
Фотография __Michelle
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
__Michelle
Участник
Retvisan,

Ага, скачала.
Посмотрю попозже, бегло взглянула - удивилась.)))
Попробую распутать Ваши критерии, прямо в базе.
Выложу результат.
...
Рейтинг: 0 / 0
28.03.2016, 21:37
| Ответить | Цитировать | Написать  
фильр флажками
    #39202570
1121
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
1121
Гость
__MichelleRetvisan,

Ага, скачала.
Посмотрю попозже, бегло взглянула - удивилась.)))
Попробую распутать Ваши критерии, прямо в базе.
Выложу результат.*-*
**
...
Рейтинг: 0 / 0
28.03.2016, 21:51
| Ответить | Цитировать | Написать  
фильр флажками
    #39202576
Retvisan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Retvisan
Гость
__Michelle,

спасибо, если что, тот кусочек кода, который я выложил сюда в тему, не вставлен, ибо если я его заменяю в общем фильтре, то потом редактор уже не открывается))) не знаю почему, просто экссесс зависает)
...
Рейтинг: 0 / 0
28.03.2016, 22:05
| Ответить | Цитировать | Написать  
фильр флажками
    #39202610
Фотография __Michelle
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
__Michelle
Участник
В общем, так.
У меня тоже на Вашей базе при попытке сохранить или перейти из режима конструктора в режим формы вываливается Access.
Но все же удалось часть кода изменить и проверить работу.
Все получается.
Изменения покажу здесь, так как базу пересохранить не удается.

Вместо этого фрагмента
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
    If [L] > "" Then strFilter = strFilter & " AND [L] Like  '*" & LVybor & "*'"
    If [N] > "" Then strFilter = strFilter & " AND [N] Like  '*" & NVybor & "*'"
    If [IS510] > "" Then strFilter = strFilter & " AND [IS510] Like  '*" & IS510Vybor & "*'"
    If [IS520] > "" Then strFilter = strFilter & " AND [IS520] Like  '*" & IS520Vybor & "*'"
    If [IS530] > "" Then strFilter = strFilter & " AND [IS530] Like  '*" & IS530Vybor & "*'"
    If [R1] > "" Then strFilter = strFilter & " AND [R1] Like  '*" & R1Vybor & "*'"
    If [R2] > "" Then strFilter = strFilter & " AND [R2] Like  '*" & R2Vybor & "*'"
    If [R3] > "" Then strFilter = strFilter & " AND [R3] Like  '*" & R3Vybor & "*'"
    If [R4] > "" Then strFilter = strFilter & " AND [R4] Like  '*" & R4Vybor & "*'"
    If [R5] > "" Then strFilter = strFilter & " AND [R5] Like  '*" & R5Vybor & "*'"
    If [vneplan] > "" Then strFilter = strFilter & " AND [vneplan] Like  '*" & VneplanVybor & "*'"

сделала этот
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
    If Not IsNull(LVybor) Then strFilter = strFilter & " AND [L]=""" & LVybor & """"
    If Not IsNull(NVybor) Then strFilter = strFilter & " AND [N]=""" & NVybor & """"
    If Not IsNull(IS510Vybor) Then strFilter = strFilter & " AND [IS510]=""" & IS510Vybor & """"
    If Not IsNull(IS520Vybor) Then strFilter = strFilter & " AND [IS520]=""" & IS520Vybor & """"
    If Not IsNull(IS530Vybor) Then strFilter = strFilter & " AND [IS530]=""" & IS530Vybor & """"
    If Not IsNull(R1Vybor) Then strFilter = strFilter & " AND [R1]=""" & R1Vybor & """"
    If Not IsNull(R2Vybor) Then strFilter = strFilter & " AND [R2]=""" & R2Vybor & """"
    If Not IsNull(R3Vybor) Then strFilter = strFilter & " AND [R3]=""" & R3Vybor & """"
    If Not IsNull(R4Vybor) Then strFilter = strFilter & " AND [R4]=""" & R4Vybor & """"
    If Not IsNull(R5Vybor) Then strFilter = strFilter & " AND [R5]=""" & R5Vybor & """"
    If Not IsNull(VneplanVybor) Then strFilter = strFilter & " AND [vneplan]=""" & VneplanVybor & """"

На мой взгляд, эти критерии теперь работают.
Проверьте, пожалуйста, у себя.

По критерию для напряжения мне пока не ясно, чем отличается "Не важно" от "Все".
Когда объясните, попробую и этот критерий сделать.
...
Рейтинг: 0 / 0
28.03.2016, 23:03
| Ответить | Цитировать | Написать  
фильр флажками
    #39202710
Retvisan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Retvisan
Гость
__Michelle,

это да, у меня и до этого в принципе работали списки(в плане фильтрации у меня не было к ним нареканий, выдавали данные, что нужны), у меня самой большой трабл с флажками, у меня не получается задать для флажков strFilter, как я пытался это сделать приведено выше, в самом начале темы)
...
Рейтинг: 0 / 0
29.03.2016, 08:50
| Ответить | Цитировать | Написать  
фильр флажками
    #39202728
Retvisan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Retvisan
Гость
__Michelle,

Вот какой код теперь, ваш код для списков работает) я попытялся переделать для флажков, но косяк сохраняется, выдает ошибку

Private Sub FilterForm()

Dim strFilter As String

strFilter = "True"

If Form.Recordset.EOF Then Me.FilterOn = False
Form.Dirty = False
Me.Filter = strFilter

If Not IsNull(LVybor) Then strFilter = strFilter & " AND [L]=""" & LVybor & """"
If Not IsNull(NVybor) Then strFilter = strFilter & " AND [N]=""" & NVybor & """"
If Not IsNull(IS510Vybor) Then strFilter = strFilter & " AND [IS510]=""" & IS510Vybor & """"
If Not IsNull(IS520Vybor) Then strFilter = strFilter & " AND [IS520]=""" & IS520Vybor & """"
If Not IsNull(IS530Vybor) Then strFilter = strFilter & " AND [IS530]=""" & IS530Vybor & """"
If Not IsNull(R1Vybor) Then strFilter = strFilter & " AND [R1]=""" & R1Vybor & """"
If Not IsNull(R2Vybor) Then strFilter = strFilter & " AND [R2]=""" & R2Vybor & """"
If Not IsNull(R3Vybor) Then strFilter = strFilter & " AND [R3]=""" & R3Vybor & """"
If Not IsNull(R4Vybor) Then strFilter = strFilter & " AND [R4]=""" & R4Vybor & """"
If Not IsNull(R5Vybor) Then strFilter = strFilter & " AND [R5]=""" & R5Vybor & """"
If Not IsNull(VneplanVybor) Then strFilter = strFilter & " AND [vneplan]=""" & VneplanVybor & """"


If (Me!Napr_no) = True Then strFilter = strFilter & " kVili25kV=ÍÅÒ"


If (Me!Napr_yes) = True Then strFilter = strFilter & " kVili25kV=ÍÅÒ"

If (Me!Napr_case) = True Then strFilter = strFilter & " kVili25kV is null"


If (Me!Napr_all) = True Then strFilter = strFilter & ""



Me.Filter = strFilter
Me.FilterOn = True



End Sub
...
Рейтинг: 0 / 0
29.03.2016, 09:11
| Ответить | Цитировать | Написать  
фильр флажками
    #39202731
Фотография ПЕНСИОНЕРКА
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ПЕНСИОНЕРКА
Участник
Retvisan,

у вас может быть 2 варианта выборки

условие1 и(and) условие2
условие1 или(or) условие 2

и только вы знаете, какой тип сочетания вы хотите получить

L AND 380
(L OR N) AND 380
(L OR N OR 310) AND (только что-то)
(L OR N OR 310) AND (кроме что-то)
....
...
Рейтинг: 0 / 0
29.03.2016, 09:13
| Ответить | Цитировать | Написать  
фильр флажками
    #39202735
Фотография ПЕНСИОНЕРКА
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ПЕНСИОНЕРКА
Участник
Retvisan,

вам я на другом форуме выложила пример на сочетание типа
(L=DA OR N=DA) AND (FLAG11=DA) AND (FLAG21=DA)

что там не так
...
Рейтинг: 0 / 0
29.03.2016, 09:16
| Ответить | Цитировать | Написать  
фильр флажками
    #39202740
Retvisan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Retvisan
Гость
ПЕНСИОНЕРКА,и снова здравствуйте) место встречи изменить нельзя)

причина в том, что там использованы групповые переключатели, в которых я могу выбрать только одно условие. Мучаться с сочетаниями это тупик, я буду добавлять еще один блок флажков. И перебирать все варианты просто невозможно. поэтому нужны флажки, с общим фильтром, который вызвается для них.
...
Рейтинг: 0 / 0
29.03.2016, 09:20
| Ответить | Цитировать | Написать  
фильр флажками
    #39202754
Фотография __Michelle
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
__Michelle
Участник
Retvisanу меня и до этого в принципе работали списки(в плане фильтрации у меня не было к ним нареканий, выдавали данные, что нужны)Этого быть просто не может!
Внимательно посмотрите на свой код и на мой.
Неужели не видите принципиальную разницу?
Вы вместо проверки значения критерия проверяете текущее значение из ленточной формы и на основании этого "фильтруете",
причем зачем-то с бессмысленным LIKE.
Не дает Ваш код нужного результата, сказки.
Вы даже не попробовали применить мой?Retvisanу меня самой большой трабл с флажками, у меня не получается задать для флажков strFilter, как я пытался это сделать приведено выше, в самом начале темы)Ваши варианты из начала темы мне не очень нужны.
Они, простите, дикие.
Мне нужен был ответ на вопрос, чем отличается "Не важно" от "Все".
Вы вопрос проигнорировали. Ну, ладно, сама догадаюсь.

Вот Вам вариант для Напряжения.
Вместо этого фрагмента
Код: vbnet
1.
2.
3.
4.
5.
    If [kVili25kV] > "" Then strFilter = strFilter & " AND [kVili25kV] Like  'НЕТ" & Napr_no & "НЕТ'"
    If [kVili25kV] > "" Then strFilter = strFilter & " AND [kVili25kV] Like  'ДА" & Napr_yes & "ДА'"
    If [kVili25kV] > "" Then strFilter = strFilter & " AND [kVili25kV] Like  '" & Napr_case & "'"
    If [kVili25kV] > "" Then strFilter = strFilter & " AND [kVili25kV] Like  '" & Napr_case & "'"
    If [kVili25kV] > "" Then strFilter = strFilter & " AND [kVili25kV] Like  '*" & Napr_all & "*'"

вставьте этот
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
    Dim s As String
    If Not Napr_all And _
       Not (Napr_no And Napr_yes And Napr_case) And _
       Not (Not Napr_no And Not Napr_yes And Not Napr_case) Then
     s = " AND  (False"
     If Napr_no Then s = s & " OR ([kVili25kV]=""НЕТ"")"
     If Napr_yes Then s = s & " OR ([kVili25kV]=""ДА"")"
     If Napr_case Then s = s & " OR ([kVili25kV] Is Null)"
     s = s & ")"
    End If
    strFilter = strFilter & s

Объявление переменной s перенесите в начало процедуры.

ВАЖНО: Предварительно флажкам Napr_no, Napr_yes, Napr_case, Napr_all
присвойте в конструкторе начальное значение (значение по умолчанию).
Всем, кроме Napr_all - False, а Napr_all - True.
...
Рейтинг: 0 / 0
29.03.2016, 09:38
| Ответить | Цитировать | Написать  
фильр флажками
    #39202755
Retvisan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Retvisan
Гость
__Michelle,

простите, я применил ваш код, я же написал...спасибо огромное за помощь. все от неважно отличается тем, что есть пустые пустые занчения в столбцах, эти пустые значения и будут неважно, все ну это все и пустые и да и нет. Еще раз спасибо, уже почти неделю мучаюсь с этими фильтрами) щас попробую
...
Рейтинг: 0 / 0
29.03.2016, 09:40
| Ответить | Цитировать | Написать  
фильр флажками
    #39202757
Retvisan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Retvisan
Гость
__Michelle,


Private Sub FilterForm()

Dim strFilter As String
Dim s As String

strFilter = "True"


If Form.Recordset.EOF Then Me.FilterOn = False
Form.Dirty = False


If Not IsNull(LVybor) Then strFilter = strFilter & " AND [L]=""" & LVybor & """"
If Not IsNull(NVybor) Then strFilter = strFilter & " AND [N]=""" & NVybor & """"
If Not IsNull(IS510Vybor) Then strFilter = strFilter & " AND [IS510]=""" & IS510Vybor & """"
If Not IsNull(IS520Vybor) Then strFilter = strFilter & " AND [IS520]=""" & IS520Vybor & """"
If Not IsNull(IS530Vybor) Then strFilter = strFilter & " AND [IS530]=""" & IS530Vybor & """"
If Not IsNull(R1Vybor) Then strFilter = strFilter & " AND [R1]=""" & R1Vybor & """"
If Not IsNull(R2Vybor) Then strFilter = strFilter & " AND [R2]=""" & R2Vybor & """"
If Not IsNull(R3Vybor) Then strFilter = strFilter & " AND [R3]=""" & R3Vybor & """"
If Not IsNull(R4Vybor) Then strFilter = strFilter & " AND [R4]=""" & R4Vybor & """"
If Not IsNull(R5Vybor) Then strFilter = strFilter & " AND [R5]=""" & R5Vybor & """"
If Not IsNull(VneplanVybor) Then strFilter = strFilter & " AND [vneplan]=""" & VneplanVybor & """"


If Not Napr_all And _
Not (Napr_no And Napr_yes And Napr_case) And _
Not (Not Napr_no And Not Napr_yes And Not Napr_case) Then
s = " AND (False"
If Napr_no Then s = s & " OR ([kVili25kV]=""ÍÅÒ"")"
If Napr_yes Then s = s & " OR ([kVili25kV]=""ÄÀ"")"
If Napr_case Then s = s & " OR ([kVili25kV] Is Null)"
s = s & ")"
End If




strFilter = strFilter & s

Me.FilterOn = True



End Sub
все равно выдает все ту же ошибку..(
...
Рейтинг: 0 / 0
29.03.2016, 09:43
| Ответить | Цитировать | Написать  
фильр флажками
    #39202758
Фотография ПЕНСИОНЕРКА
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ПЕНСИОНЕРКА
Участник
Retvisan,

там показаны ВСЕ сочетания, но
для стадий обслуживания возможно нужны оба варианта в чистом виде
(L OR N)
(L AND N)

или в комплексе
((L OR N) AND (310 OR 320))

но для
--высокое напряжение
--береговое питание

не может быть одновременно 2 условия
...
Рейтинг: 0 / 0
29.03.2016, 09:43
| Ответить | Цитировать | Написать  
фильр флажками
    #39202767
Фотография ПЕНСИОНЕРКА
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ПЕНСИОНЕРКА
Участник
Retvisan,

что здесь не так
Код: 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.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
Private Sub FilterForm()

Dim s As String, s1, s2, s3
s1 = ""
s2 = ""
s3 = ""

s = "True"

If Form.Recordset.EOF Then Me.FilterOn = False
Form.Dirty = False
If [LVybor] > "" Then s1 = s1 & " or [L] Like  '*" & LVybor & "*'"
If [NVybor] > "" Then s1 = s1 & " or [N] Like  '*" & NVybor & "*'"
If [IS510Vybor] > "" Then s1 = s1 & " or [IS510] Like  '*" & IS510Vybor & "*'"
If [IS520Vybor] > "" Then s1 = s1 & " or [IS520] Like  '*" & IS520Vybor & "*'"
If [IS530Vybor] > "" Then s1 = s1 & " or [IS530] Like  '*" & IS530Vybor & "*'"
If [R1Vybor] > "" Then s1 = s1 & " or [R1] Like  '*" & R1Vybor & "*'"
If [R2Vybor] > "" Then s1 = s1 & " or [R2] Like  '*" & R2Vybor & "*'"
If [R3Vybor] > "" Then s1 = s1 & " or [R3] Like  '*" & R3Vybor & "*'"
If [R4Vybor] > "" Then s1 = s1 & " or [R4] Like  '*" & R4Vybor & "*'"
If [R5Vybor] > "" Then s1 = s1 & " or [R5] Like  '*" & R5Vybor & "*'"
If [VneplanVybor] > "" Then s1 = s1 & " or [vneplan] Like  '*" & VneplanVybor & "*'"

''    If [kVili25kV] > "" Then s = s & " or [kVili25kV] Like  '*" & Vybor3kV & "*'"
''    If [Beregpit_380V] > "" Then s = s & " or [Beregpit_380V] Like  '*" & Vybor380V & "*'"
''
''    If [Bortnapr_110V] > "" Then s = s & " or [Bortnapr_110V] Like  '*" & Vybor110V & "*'"
''    If [Obestochen_poezd] > "" Then s = s & " or [Obestochen_poezd] Like  '*" & obVybor & "*'"
''    If [Zazemlen] > "" Then s = s & " or [Zazemlen] Like  '*" & zazemVybor & "*'"
''    If [Davleniev_HM] > "" Then s = s & " or [Davleniev_HM] Like  '*" & HMVybor & "*'"
''    If [Davleniev_TM] > "" Then s = s & " or [Davleniev_TM] Like  '*" & TMVybor & "*'"
'''''''''''''''''''
 With Me
 ''MsgBox .kV3Vybor & "=" & .kVili25kV
        If (.kV3Vybor = 1) Then
            s2 = s2 & " and [kVili25kV] Like ""ДА"""
        End If
        If (.kV3Vybor = 2) Then
            s2 = s2 & " and [kVili25kV] Like ""НЕТ"""
        End If
        If (.kV3Vybor = 3) Then
            s2 = s2 & " and len('' & [kVili25kV])=0"
        End If
        
        If (.kV3Vybor = 4) Then
            '''DoCmd.ShowAllRecords
                End If
    End With
    ''''''''''''''''''''''''''''''

With Me
        If (.V380Vybor = 1) Then
            s3 = s3 & " and [Beregpit_380V] Like ""ДА"""
        End If
        If (.V380Vybor = 2) Then
            s3 = s3 & " and [Beregpit_380V] Like ""НЕТ"""
        End If
        If (.V380Vybor = 3) Then
           s3 = s3 & " and len('' & [Beregpit_380V])=0"
        End If
        
        If (.V380Vybor = 4) Then
            ''DoCmd.ShowAllRecords
                End If
    End With
    '''''''''''''''''''''''''''''
    If Len(s1) > 0 Then
    s = s & " and ( " & Mid(s1, 5) & ")"
    End If
     '''''''''''''''''''''''''''''
    If Len(s2) > 0 Then
    s = s & " and ( " & Mid(s2, 5) & ")"
    End If
     '''''''''''''''''''''''''''''
    If Len(s3) > 0 Then
    s = s & " and ( " & Mid(s3, 5) & ")"
    End If
    '''''''''''''''''''''''''''

MsgBox s
Debug.Print s
Me.Filter = s
Me.FilterOn = True
End Sub
...
Рейтинг: 0 / 0
29.03.2016, 09:50
| Ответить | Цитировать | Написать  
фильр флажками
    #39202771
Фотография __Michelle
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
__Michelle
Участник
Retvisan,

Какую "ту же ошибку"? Приведите, пожалуйста, сообщение и на какой строке кода, покажите.
И код, пожалуйста, оформляйте тегами.
У меня все работает, фильтрует превосходно.

Значения по умолчанию присвоили?
...
Рейтинг: 0 / 0
29.03.2016, 09:53
| Ответить | Цитировать | Написать  
фильр флажками
    #39202773
Фотография ПЕНСИОНЕРКА
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ПЕНСИОНЕРКА
Участник
Retvisan,

этот код для условия (l or n) and(kv3) and (380)
...
Рейтинг: 0 / 0
29.03.2016, 09:54
| Ответить | Цитировать | Написать  
фильр флажками
    #39202781
Retvisan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Retvisan
Гость
ПЕНСИОНЕРКА,

вот отсутствие двух возможностей и мешает(поэтому и не подходят блоки перключателей), для этого и были применены флажки. был создан общий фильтр, который будет все эти флажки и списки проходить, на как оказалось в списках тоже был косяк((
...
Рейтинг: 0 / 0
29.03.2016, 09:58
| Ответить | Цитировать | Написать  
фильр флажками
    #39202785
Фотография __Michelle
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
__Michelle
Участник
Retvisan,

18989485 .
...
Рейтинг: 0 / 0
29.03.2016, 09:59
| Ответить | Цитировать | Написать  
фильр флажками
    #39202790
Retvisan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Retvisan
Гость
__Michelle,

да присвоил
...
Рейтинг: 0 / 0
29.03.2016, 10:01
| Ответить | Цитировать | Написать  
фильр флажками
    #39202791
Retvisan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Retvisan
Гость
__Michelle,

Код: 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.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
Private Sub FilterForm()

Dim strFilter As String
Dim s As String

    strFilter = "True"
    
     
    If Form.Recordset.EOF Then Me.FilterOn = False
    Form.Dirty = False
    
    
    If Not IsNull(LVybor) Then strFilter = strFilter & " AND [L]=""" & LVybor & """"
    If Not IsNull(NVybor) Then strFilter = strFilter & " AND [N]=""" & NVybor & """"
    If Not IsNull(IS510Vybor) Then strFilter = strFilter & " AND [IS510]=""" & IS510Vybor & """"
    If Not IsNull(IS520Vybor) Then strFilter = strFilter & " AND [IS520]=""" & IS520Vybor & """"
    If Not IsNull(IS530Vybor) Then strFilter = strFilter & " AND [IS530]=""" & IS530Vybor & """"
    If Not IsNull(R1Vybor) Then strFilter = strFilter & " AND [R1]=""" & R1Vybor & """"
    If Not IsNull(R2Vybor) Then strFilter = strFilter & " AND [R2]=""" & R2Vybor & """"
    If Not IsNull(R3Vybor) Then strFilter = strFilter & " AND [R3]=""" & R3Vybor & """"
    If Not IsNull(R4Vybor) Then strFilter = strFilter & " AND [R4]=""" & R4Vybor & """"
    If Not IsNull(R5Vybor) Then strFilter = strFilter & " AND [R5]=""" & R5Vybor & """"
    If Not IsNull(VneplanVybor) Then strFilter = strFilter & " AND [vneplan]=""" & VneplanVybor & """"

    
    If Not Napr_all And _
       Not (Napr_no And Napr_yes And Napr_case) And _
       Not (Not Napr_no And Not Napr_yes And Not Napr_case) Then
     s = " AND  (False"
     If Napr_no Then s = s & " OR ([kVili25kV]=""&#205;&#197;&#210;"")"
     If Napr_yes Then s = s & " OR ([kVili25kV]=""&#196;&#192;"")"
     If Napr_case Then s = s & " OR ([kVili25kV] Is Null)"
     s = s & ")"
    End If


    
    
    strFilter = strFilter & s
    
    Me.FilterOn = True
    
    
    
End Sub
...
Рейтинг: 0 / 0
29.03.2016, 10:02
| Ответить | Цитировать | Написать  
фильр флажками
    #39202793
Фотография __Michelle
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
__Michelle
Участник
Retvisan,

Ответьте, все же, на все заданные вопросы.
В частности, "Какую "ту же ошибку"? Приведите, пожалуйста, сообщение и на какой строке кода, покажите."
...
Рейтинг: 0 / 0
29.03.2016, 10:03
| Ответить | Цитировать | Написать  
фильр флажками
    #39202794
Retvisan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Retvisan
Гость
__Michelle,
...
Рейтинг: 0 / 0
29.03.2016, 10:03
| Ответить | Цитировать | Написать  
фильр флажками
    #39202798
Retvisan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Retvisan
Гость
__Michelle,немного инет медленный...
...
Рейтинг: 0 / 0
29.03.2016, 10:04
| Ответить | Цитировать | Написать  
фильр флажками
    #39202801
Фотография __Michelle
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
__Michelle
Участник
Retvisan,

Нажмите Debug, покажите строку кода.
Такому сочетанию там неоткуда взяться, вроде.
...
Рейтинг: 0 / 0
29.03.2016, 10:06
| Ответить | Цитировать | Написать  
фильр флажками
    #39202804
Retvisan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Retvisan
Гость
__Michelle,

для остальных флажков соответственно тоже самое: нет-False,да-false,неважно-false,все-true
...
Рейтинг: 0 / 0
29.03.2016, 10:06
| Ответить | Цитировать | Написать  
фильр флажками
    #39202805
Фотография __Michelle
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
__Michelle
Участник
Retvisan__Michelle,немного инет медленный...Ладно. Буду терпеливей.)))
...
Рейтинг: 0 / 0
29.03.2016, 10:06
| Ответить | Цитировать | Написать  
фильр флажками
    #39202807
Фотография __Michelle
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
__Michelle
Участник
Retvisan,

Знак равенства уберите.
Просто False.
...
Рейтинг: 0 / 0
29.03.2016, 10:07
| Ответить | Цитировать | Написать  
фильр флажками
    #39202811
Retvisan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Retvisan
Гость
__Michelle,

спасибо, с утра все почту отправляют-получают)) 18989553 вроде как здесь строка, где ошибка вылезает.. он не может судя по всему объединить мои списки и флажки...
...
Рейтинг: 0 / 0
29.03.2016, 10:10
| Ответить | Цитировать | Написать  
фильр флажками
    #39202820
Фотография ПЕНСИОНЕРКА
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ПЕНСИОНЕРКА
Участник
Retvisan,
а это код для двух режимов(добавлена кнопка)

Код: 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.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
85.
86.
87.
88.
89.
90.
91.
92.
93.
94.
Private Sub Кнопка417_Click()
Call FilterForm(" AND ")
End Sub
Private Sub FilterForm(Optional r As String = " or ")

Dim s As String, s1, s2, s3
s1 = ""
s2 = ""
s3 = ""
Me.Надпись418.Caption = r
Me.Refresh
s = "True"

If Form.Recordset.EOF Then Me.FilterOn = False
Form.Dirty = False
If [LVybor] > "" Then s1 = s1 & " or [L] Like  '*" & LVybor & "*'"
If [NVybor] > "" Then s1 = s1 & " or [N] Like  '*" & NVybor & "*'"
If [IS510Vybor] > "" Then s1 = s1 & " or [IS510] Like  '*" & IS510Vybor & "*'"
If [IS520Vybor] > "" Then s1 = s1 & " or [IS520] Like  '*" & IS520Vybor & "*'"
If [IS530Vybor] > "" Then s1 = s1 & " or [IS530] Like  '*" & IS530Vybor & "*'"
If [R1Vybor] > "" Then s1 = s1 & " or [R1] Like  '*" & R1Vybor & "*'"
If [R2Vybor] > "" Then s1 = s1 & " or [R2] Like  '*" & R2Vybor & "*'"
If [R3Vybor] > "" Then s1 = s1 & " or [R3] Like  '*" & R3Vybor & "*'"
If [R4Vybor] > "" Then s1 = s1 & " or [R4] Like  '*" & R4Vybor & "*'"
If [R5Vybor] > "" Then s1 = s1 & " or [R5] Like  '*" & R5Vybor & "*'"
If [VneplanVybor] > "" Then s1 = s1 & " or [vneplan] Like  '*" & VneplanVybor & "*'"

If r = " AND " Then
s1 = Replace(s1, " or ", r)
End If



''    If [kVili25kV] > "" Then s = s & " or [kVili25kV] Like  '*" & Vybor3kV & "*'"
''    If [Beregpit_380V] > "" Then s = s & " or [Beregpit_380V] Like  '*" & Vybor380V & "*'"
''
''    If [Bortnapr_110V] > "" Then s = s & " or [Bortnapr_110V] Like  '*" & Vybor110V & "*'"
''    If [Obestochen_poezd] > "" Then s = s & " or [Obestochen_poezd] Like  '*" & obVybor & "*'"
''    If [Zazemlen] > "" Then s = s & " or [Zazemlen] Like  '*" & zazemVybor & "*'"
''    If [Davleniev_HM] > "" Then s = s & " or [Davleniev_HM] Like  '*" & HMVybor & "*'"
''    If [Davleniev_TM] > "" Then s = s & " or [Davleniev_TM] Like  '*" & TMVybor & "*'"
'''''''''''''''''''
 With Me
 ''MsgBox .kV3Vybor & "=" & .kVili25kV
        If (.kV3Vybor = 1) Then
            s2 = s2 & " and [kVili25kV] Like ""ДА"""
        End If
        If (.kV3Vybor = 2) Then
            s2 = s2 & " and [kVili25kV] Like ""НЕТ"""
        End If
        If (.kV3Vybor = 3) Then
            s2 = s2 & " and len('' & [kVili25kV])=0"
        End If
        
        If (.kV3Vybor = 4) Then
            '''DoCmd.ShowAllRecords
                End If
    End With
    ''''''''''''''''''''''''''''''

With Me
        If (.V380Vybor = 1) Then
            s3 = s3 & " and [Beregpit_380V] Like ""ДА"""
        End If
        If (.V380Vybor = 2) Then
            s3 = s3 & " and [Beregpit_380V] Like ""НЕТ"""
        End If
        If (.V380Vybor = 3) Then
           s3 = s3 & " and len('' & [Beregpit_380V])=0"
        End If
        
        If (.V380Vybor = 4) Then
            ''DoCmd.ShowAllRecords
                End If
    End With
    '''''''''''''''''''''''''''''
    If Len(s1) > 0 Then
    s = s & " and ( " & Mid(s1, 5) & ")"
    End If
     '''''''''''''''''''''''''''''
    If Len(s2) > 0 Then
    s = s & " and ( " & Mid(s2, 5) & ")"
    End If
     '''''''''''''''''''''''''''''
    If Len(s3) > 0 Then
    s = s & " and ( " & Mid(s3, 5) & ")"
    End If
    '''''''''''''''''''''''''''
Me.Надпись419.Caption = s
'MsgBox s
Debug.Print s
Me.Filter = s
Me.FilterOn = True
End Sub
...
Рейтинг: 0 / 0
29.03.2016, 10:15
| Ответить | Цитировать | Написать  
фильр флажками
    #39202827
Retvisan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Retvisan
Гость
ПЕНСИОНЕРКА,

Код: 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.
With Me
 ''MsgBox .kV3Vybor & "=" & .kVili25kV
        If (.kV3Vybor = 1) Then
            s2 = s2 & " and [kVili25kV] Like ""ДА"""
        End If
        If (.kV3Vybor = 2) Then
            s2 = s2 & " and [kVili25kV] Like ""НЕТ"""
        End If
        If (.kV3Vybor = 3) Then
            s2 = s2 & " and len('' & [kVili25kV])=0"
        End If
        
        If (.kV3Vybor = 4) Then
            '''DoCmd.ShowAllRecords
                End If
    End With
    ''''''''''''''''''''''''''''''

With Me
        If (.V380Vybor = 1) Then
            s3 = s3 & " and [Beregpit_380V] Like ""ДА"""
        End If
        If (.V380Vybor = 2) Then
            s3 = s3 & " and [Beregpit_380V] Like ""НЕТ"""
        End If
        If (.V380Vybor = 3) Then
           s3 = s3 & " and len('' & [Beregpit_380V])=0"
        End If
        
        If (.V380Vybor = 4) Then
            ''DoCmd.ShowAllRecords
                End If



этот кусок кода отнесен к группе переключателей, мне это не подходит, ибо там я смогу выбрать лишь одну позизию, мне нужно две или я что-то не понимаю...
...
Рейтинг: 0 / 0
29.03.2016, 10:22
| Ответить | Цитировать | Написать  
фильр флажками
    #39202828
Фотография __Michelle
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
__Michelle
Участник
Retvisanон не может судя по всему объединить мои списки и флажки...Все прекрасно объединяется. У меня именно все это работает, как надо.
Откуда берется у Вас эта строка, непонятно.
В коде нигде нет такого.

После этого
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
    If Not Napr_all And _
       Not (Napr_no And Napr_yes And Napr_case) And _
       Not (Not Napr_no And Not Napr_yes And Not Napr_case) Then
     s = " AND  (False"
     If Napr_no Then s = s & " OR ([kVili25kV]=""&#205;&#197;&#210;"")"
     If Napr_yes Then s = s & " OR ([kVili25kV]=""&#196;&#192;"")"
     If Napr_case Then s = s & " OR ([kVili25kV] Is Null)"
     s = s & ")"
    End If

поставьте, пожалуйста,
Код: vbnet
1.
Debug.Print s

и покажите, что будет в окне Immediate.
...
Рейтинг: 0 / 0
29.03.2016, 10:23
| Ответить | Цитировать | Написать  
фильр флажками
    #39202837
Фотография ПЕНСИОНЕРКА
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ПЕНСИОНЕРКА
Участник
Retvisanэтот кусок кода отнесен к группе переключателей, мне это не подходит, ибо там я смогу выбрать лишь одну позизию, мне нужно две или я что-то не понимаю

я не пойму, как здесь может быть выбор двух позиций ИЗ да-нет-пусто -все

если только
да или пусто
нет или пусто
да или нет
не пусто

---
...
Рейтинг: 0 / 0
29.03.2016, 10:30
| Ответить | Цитировать | Написать  
фильр флажками
    #39202848
Retvisan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Retvisan
Гость
__Michelle,

вроде так?
...
Рейтинг: 0 / 0
29.03.2016, 10:34
| Ответить | Цитировать | Написать  
фильр флажками
    #39202852
Фотография __Michelle
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
__Michelle
Участник
Retvisan,

Плохо, что я не могу сохранить Вашу БД с изменениями и выслать.
Вываливается Access при сохранении в Вашей БД.

Может, преобразуете в формат 2000-го, я сейчас на другой машине попробую, вдруг получится?
...
Рейтинг: 0 / 0
29.03.2016, 10:35
| Ответить | Цитировать | Написать  
фильр флажками
    #39202854
Retvisan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Retvisan
Гость
__Michelle,

вот получилось)
...
Рейтинг: 0 / 0
29.03.2016, 10:36
| Ответить | Цитировать | Написать  
фильр флажками
    #39202865
Retvisan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Retvisan
Гость
__Michelle,

https://cloud.mail.ru/public/Fuga/hyrAsuyqc
...
Рейтинг: 0 / 0
29.03.2016, 10:41
| Ответить | Цитировать | Написать  
фильр флажками
    #39202866
Фотография __Michelle
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
__Michelle
Участник
Retvisan,

Нет.
Надо было поставить сразу после блока If, в котором формируется s
До объединения strFilter и s.

Вот так сделайте
Код: vbnet
1.
2.
Debug.Print "strFilter=""" & strFilter  & """"
Debug.Print "s=""" & s & """"
...
Рейтинг: 0 / 0
29.03.2016, 10:41
| Ответить | Цитировать | Написать  
фильр флажками
    #39202868
Фотография __Michelle
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
__Michelle
Участник
Retvisan,

Получила.
Буду смотреть.
...
Рейтинг: 0 / 0
29.03.2016, 10:44
| Ответить | Цитировать | Написать  
фильр флажками
    #39202871
Retvisan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Retvisan
Гость
ПЕНСИОНЕРКА,

да пусто
нет пусто
да
нет
пусто
все

мне же потом придется прописывать все эти варинаты и для
L,N,510,520,530 и т.д... к тому же могут быть и различные варинаты и в стадиях и к этим разным вариантам могут также подходить разные варианты состояний, а если у меня будут еще дполнительные состояни не только kVili25kV, а еще допустим 110v, то я босю представить как будет много всего и код получится просто сумасшедшим
...
Рейтинг: 0 / 0
29.03.2016, 10:45
| Ответить | Цитировать | Написать  
фильр флажками
    #39202875
Retvisan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Retvisan
Гость
__Michelle,

вот так вроде
...
Рейтинг: 0 / 0
29.03.2016, 10:48
| Ответить | Цитировать | Написать  
фильр флажками
    #39202880
Retvisan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Retvisan
Гость
__Michelle,

отлично, спасибо!
...
Рейтинг: 0 / 0
29.03.2016, 10:49
| Ответить | Цитировать | Написать  
фильр флажками
    #39202891
Фотография __Michelle
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
__Michelle
Участник
Retvisan,

Все. Разобралась.
Откройте форму в конструкторе и очистите значение фильтра,
именно там застряло AND [L]="ДА" [kVili25kV]=НЕТ* от какого-то Вашего прошлого эксперимента.
Сохраните форму.

И еще, куда-то пропало задание нового фильтра из кода
Код: vbnet
1.
Me.Filter = strFilter

.Восстановите.

И все, вроде.)))
...
Рейтинг: 0 / 0
29.03.2016, 10:53
| Ответить | Цитировать | Написать  
фильр флажками
    #39202913
Retvisan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Retvisan
Гость
__Michelle,

Код: 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.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
Private Sub FilterForm()

Dim strFilter As String
Dim s As String



    strFilter = "True"
    
     
    If Form.Recordset.EOF Then Me.FilterOn = False
    Form.Dirty = False
    
    
    If Not IsNull(LVybor) Then strFilter = strFilter & " AND [L]=""" & LVybor & """"
    If Not IsNull(NVybor) Then strFilter = strFilter & " AND [N]=""" & NVybor & """"
    If Not IsNull(IS510Vybor) Then strFilter = strFilter & " AND [IS510]=""" & IS510Vybor & """"
    If Not IsNull(IS520Vybor) Then strFilter = strFilter & " AND [IS520]=""" & IS520Vybor & """"
    If Not IsNull(IS530Vybor) Then strFilter = strFilter & " AND [IS530]=""" & IS530Vybor & """"
    If Not IsNull(R1Vybor) Then strFilter = strFilter & " AND [R1]=""" & R1Vybor & """"
    If Not IsNull(R2Vybor) Then strFilter = strFilter & " AND [R2]=""" & R2Vybor & """"
    If Not IsNull(R3Vybor) Then strFilter = strFilter & " AND [R3]=""" & R3Vybor & """"
    If Not IsNull(R4Vybor) Then strFilter = strFilter & " AND [R4]=""" & R4Vybor & """"
    If Not IsNull(R5Vybor) Then strFilter = strFilter & " AND [R5]=""" & R5Vybor & """"
    If Not IsNull(VneplanVybor) Then strFilter = strFilter & " AND [vneplan]=""" & VneplanVybor & """"

    Me.Filter = strFilter
    
    If Not Napr_all And _
       Not (Napr_no And Napr_yes And Napr_case) And _
       Not (Not Napr_no And Not Napr_yes And Not Napr_case) Then
     s = " AND  (False"
     If Napr_no Then s = s & " OR ([kVili25kV]=""&#205;&#197;&#210;"")"
     If Napr_yes Then s = s & " OR ([kVili25kV]=""&#196;&#192;"")"
     If Napr_case Then s = s & " OR ([kVili25kV] Is Null)"
     s = s & ")"
    End If
    
        
    Debug.Print "strFilter=""" & strFilter & """"
    Debug.Print "s=""" & s & """"
    


    
    
    strFilter = strFilter & s
    
  
    Me.FilterOn = True
 
 
    
    
End Sub



вроде как списки работают а вот флажки нет)

авторОткройте форму в конструкторе и очистите значение фильтра,
именно там застряло AND [L]="ДА" [kVili25kV]=НЕТ* от какого-то Вашего прошлого эксперимента

не совсем понял, где в контрукторе это очищается...(
...
Рейтинг: 0 / 0
29.03.2016, 11:03
| Ответить | Цитировать | Написать  
фильр флажками
    #39202919
Retvisan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Retvisan
Гость
__Michelle,

при чем ошибки не выдает
...
Рейтинг: 0 / 0
29.03.2016, 11:05
| Ответить | Цитировать | Написать  
фильр флажками
    #39202927
Retvisan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Retvisan
Гость
__Michelle,
вроде нашел где это дело очищается, в свойствах формы)
...
Рейтинг: 0 / 0
29.03.2016, 11:11
| Ответить | Цитировать | Написать  
фильр флажками
    #39202933
Retvisan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Retvisan
Гость
__Michelle,

но все равно не работают флажки, да, ошибка ушла, когда я очистил в сфоствах формы фильтр. Но к сожалению фильтр по флажкам не работает
...
Рейтинг: 0 / 0
29.03.2016, 11:16
| Ответить | Цитировать | Написать  
фильр флажками
    #39202934
Фотография __Michelle
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
__Michelle
Участник
Retvisan__Michelle,

при чем ошибки не выдаетОшибки и не выдаст.
До тех пор, пока не примените этот фильтр.
Что и происходило при
Код: vbnet
1.
Me.FilterOn = True

, ведь присвоение нового значения фильтру
Код: vbnet
1.
Me.Filter = strFilter

у Вас куда-то исчезло.
Вот и была попытка применить этот, то есть AND [L]="ДА" [kVili25kV]=НЕТ*,
тогда и диагностировалась ошибка синтаксиса.

Где поправить в конструкторе, показано на рис.
...
Рейтинг: 0 / 0
29.03.2016, 11:16
| Ответить | Цитировать | Написать  
фильр флажками
    #39202937
Retvisan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Retvisan
Гость
__Michelle,простите извините....) была паника)) me.filter не в то место вставил)) все великолепно!!! хвала вам и sql.ru!!)
...
Рейтинг: 0 / 0
29.03.2016, 11:18
| Ответить | Цитировать | Написать  
фильр флажками
    #39202955
Фотография __Michelle
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
__Michelle
Участник
Retvisan__Michelle,

но все равно не работают флажки, да, ошибка ушла, когда я очистил в сфоствах формы фильтр. Но к сожалению фильтр по флажкам не работаетВсе работает.
Просто нужно следить за состоянием не только того флажка, который интересует в данный момент,
но и все прочих, вовремя очищать, особенно флажок Все.
Работает согласно комбинации состояний всех четырех флажков.

Сама идея именно такого использования флажков не очень удачная.
Надо Вам будет это получше продумать.
...
Рейтинг: 0 / 0
29.03.2016, 11:24
| Ответить | Цитировать | Написать  
фильр флажками
    #39202957
Фотография __Michelle
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
__Michelle
Участник
Retvisan__Michelle,простите извините....) была паника)) me.filter не в то место вставил)) все великолепно!!! хвала вам и sql.ru!!)Ну, вообще...
...
Рейтинг: 0 / 0
29.03.2016, 11:25
| Ответить | Цитировать | Написать  
фильр флажками
    #39202967
Retvisan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Retvisan
Гость
ПЕНСИОНЕРКА,

спасибо, за помощь)без вас бы не дошел)
...
Рейтинг: 0 / 0
29.03.2016, 11:28
| Ответить | Цитировать | Написать  
фильр флажками
    #39202974
Фотография __Michelle
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
__Michelle
Участник
RetvisanПЕНСИОНЕРКА,

спасибо, за помощь)без вас бы не дошел)Да уж, конечно.
...
Рейтинг: 0 / 0
29.03.2016, 11:30
| Ответить | Цитировать | Написать  
фильр флажками
    #39202979
Фотография __Michelle
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
__Michelle
Участник
Retvisan,

Больше не буду Вам ничего делать.
...
Рейтинг: 0 / 0
29.03.2016, 11:32
| Ответить | Цитировать | Написать  
66 сообщений из 66, показаны все 3 страниц
  все  
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / фильр флажками
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?all=1&fid=45&tid=1613756]:
 0ms
get settings:
 8ms
get forum list:
 14ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 37ms
get topic data:
 11ms
get forum data:
 2ms
get page messages:
 115ms
get tp. blocked users:
 1ms
others: 10ms
total:  204ms
созд. / загр.: 204ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]