ReSQL.ru
     
powered by simpleCommunicator - 2.0.55     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / фильр флажками
16 сообщений из 66, страница 3 из 3
  3  все
фильр флажками
    #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]=""ÍÅÒ"")"
     If Napr_yes Then s = s & " OR ([kVili25kV]=""ÄÀ"")"
     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
| Ответить | Цитировать | Написать  
16 сообщений из 66, страница 3 из 3
  3  все
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / фильр флажками
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&msg=39202871&tid=1613756]:
 0ms
get settings:
 10ms
get forum list:
 15ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 42ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 54ms
get tp. blocked users:
 2ms
others: 340ms
total:  484ms
созд. / загр.: 484ms
x
x
Закрыть


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