Использование нескольких checkbox в запросе

@el_virun · Регистрация: 29.11.2017

Студворк — интернет-сервис помощи студентам

Здравствуйте Уважаемые!

Необходима по возможности Ваше время и помощь, а то разум за разум заходит, прилагаю маленьку БД, в которой необходимообъяснить чайнику(это я) как создать запрос в котором:

будет проходить выборка NAME
за день(дату можноуказать)
за месяц (выбираем из списка)
за квартал (выбираем из списка)
за полугодие (выбираем из списка)

+ как условие выбора чукча придумал ограничение чекбоксами, но как культурно записать в запросе чукча не придумал(((

По возможности жду Ваших советов (желательно по теме), пожеланий (хотя бы "брось акцесс не для тебя") а если кто на приложенном примере покажет как это делается то радость моя затмит солнце на заснеженной улице

@Eugene-LS · 23.01.2018, 13:49

Сообщение от el_virun

за день(дату можноуказать)
за месяц (выбираем из списка)
за квартал (выбираем из списка)
за полугодие (выбираем из списка)

Ну с конкретной датой всё понятно.
А вот:
за месяц - Какого года?
за квартал - Какого года?
... и т.д.

Можно соорудить переключатель - День, месяц, год, квартал ... или КомбоБокс на эту тему
Ну о дальше строим фильтр по двум (трём + год) значениям ...

@el_virun · 23.01.2018, 14:00 **[ТС]**

Dear Eugene-LS
дело в том, что необходимо именно решение поставленного вопроса-т.к. эта выложенная база только тестовая площадка для субд что я делаю, в которой идет выборка заранее по году, фамилии и еще прочим параметрам,

необходимо решение в котором в запросе будут варьироваться условия отбора по дате (день, месяц, первых три, втроых три месяца и пр.) в зависимости от "нажатого" необходимого чекбокса

т.е. в этой бд я с Вашей помощью и остальных гуру надеюсь разобраться с проблемой и после уже переработать найденное решение для своей основной бд

Спасибо за Ваше внимание и предложения и за то, что сразу стараетесь подсказать в нескольких направлениях

@Eugene-LS · 23.01.2018, 14:47

el_virun, ну тогда нечто такое:

Не полностью - полугодие сами допишите

Visual Basic
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
Private Sub SubFormRefilter()
'Рефильтрация подчинённой формы
Dim s$
 
'День
    If Me!CheckDAY = True And IsNull(Me!Text0) = False Then
        s = "DATA = " & Format$(Me!Text0, "\#mm\/dd\/yyyy\#")
    End If
'Месяц
    If Me!CheckMONTH = True And Me!Combo4.ListIndex <> -1 Then
        s = "Month([DATA])=" & Me!Combo4
    End If
 
'Квартал = WHERE DatePart("q",[DATA])=2;
    If Me!CheckQUART = True And Me!Combo8.ListIndex <> -1 Then
        s = "DatePart('q',[DATA])=" & Me!Combo8
    End If
 
 
    If Len(s) > 0 Then
        Me![Q1 subform].Form.Filter = s
        Me![Q1 subform].Form.FilterOn = True
    Else
        Me![Q1 subform].Form.Filter = ""
        Me![Q1 subform].Form.FilterOn = False
    End If
End Sub

@Eugene-LS · 23.01.2018, 14:48

Файлик:

@el_virun · 23.01.2018, 15:06 **[ТС]**

Dear Eugene-LS

Спасибо огромное!!! Буду ковырять и изучать новые данные)))

@Eugene-LS · 23.01.2018, 15:18

el_virun, ещё:
Задавайте внятные имена объектов в формах.
т.е. вместо:
Text0 -> TextDate (или txtDate)
Combo4 -> ComboMonth (или cbxMonth)
и т.д. ...
Вам же ориентироваться будет проще.
Успехов!

@el_virun · 23.01.2018, 20:39 **[ТС]**

Да спасибо за совет-на основе так и делаю-а тут варганил на скорую руку на коленке))

shanemac51 · 23.01.2018, 22:04

как вариант --для работы в русской/английской версиях

@el_virun · 23.01.2018, 23:49 **[ТС]**

Спасибо завтра посмотрю и отпишусь

@el_virun · 25.01.2018, 11:07 **[ТС]**

Здравствуйте! Большое спасибо и Eugene-LS и shanemac51 выши решения для субформы подходят, вопрос есть следующий:
можно ли ввести эти параметры в запрос, т.к. на основе промежуточной субформы, для которой сейчас идет фильтрация не будет,пришлосмь пересмотреть концепцию. Т.Е. вопрос во внесении тела запроса цепочки из логики проверки значения чекбокса и выборки по значению комбобокса внутри запроса. Насколько это реально?
Заранее благодарен за любую помощь.

Добавлено через 31 минуту
Это как я понимаю запрос на включенный чекбокс:

SQL
1
2
3
4
SELECT DATA.DATA, DATA.NAME, DATA.COLOR
FROM DATA
WHERE FORMS!F1!CheckDAY
GROUP BY DATA.DATA, DATA.NAME, DATA.COLOR;

a вот это почемуто не работает

SQL
1
2
3
4
SELECT DATA.DATA, DATA.NAME, DATA.COLOR
FROM DATA
WHERE IFF(FORMS!F1!CheckDAY=TRUE,DATA.DATA=DateFromForm_DAY(),)
GROUP BY DATA.DATA, DATA.NAME, DATA.COLOR;

mobile · 25.01.2018, 11:30

Второе условие в IIF пропущено. Например пусть будут все записи при False в чекбоксе

SQL
1
WHERE IFF(FORMS!F1!CheckDAY, DATA.DATA=DateFromForm_DAY(), TRUE)

@el_virun · 25.01.2018, 11:38 **[ТС]**

Все

Сообщение от mobile

Выделить код
1
WHERE IFF(FORMS!F1!CheckDAY, DATA.DATA=DateFromForm_DAY(), TRUE)

Здравствуйте mobile!
Все равно віскакивает ошибка

mobile · 25.01.2018, 11:41

О-о-о! Пропустил такую описку!!! Конечно не IFF, а IIF

SQL
1
WHERE IIF(FORMS!F1!CheckDAY, DATA.DATA=DateFromForm_DAY(), TRUE)

@el_virun · 25.01.2018, 11:42 **[ТС]**

Спасибо....а я тоже невнимательный))) вот что значит над кусочком кода 3 дня сидет-уже все небо в попугайчиках))))

@el_virun · 25.01.2018, 12:12 **[ТС]**

пробую разбираться дальше...следующий трабл у меня -это ошибка передачи данных в цепочке "месяц":

комбобокс------переменная-------запрос

Visual Basic
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
Public Function DateFromForm_MON() As Date
    On Error Resume Next
    Dim AA As String
    AA = Forms![F1]![Combo4]
    MsgBox AA
    Select Case AA
    Case "January"
        DateFromForm_MON = Month(DateValue("1,1,2018"))
        'MsgBox DateFromForm_MON
    Case "February"
        DateFromForm_MON = Month(DateValue("2,1,2018"))
        'MsgBox DateFromForm_MON
    Case "March"
        DateFromForm_MON= Month(DateValue("3,1,2018"))
        'MsgBox DateFromForm_MON
    Case "April"
        DateFromForm_MON = Month(DateValue("4,1,2018"))
       ' MsgBox DateFromForm_MON
    Case "May"
        DateFromForm_MON = Month(DateValue("5,1,2018"))
        MsgBox DateFromForm_MON
    Case "June"
      DateFromForm_MON = Month(DateValue("6,1,2018"))
        'MsgBox DateFromForm_MON
    Case "July"
        DateFromForm_MON = Month(DateValue("7,1,2018"))
       ' MsgBox DateFromForm_MON
    Case "August"
        DateFromForm_MON= MONTH(DateValue("8,1,2018"))
        'MsgBox DateFromForm_MON
    Case "September"
        DateFromForm_MON = Month(DateValue("9,1,2018"))
        'MsgBox DateFromForm_MON
    Case "October"
        DateFromForm_MON = Month(DateValue("10,1,2018"))
        'MsgBox DateFromForm_MON
    Case "November"
        DateFromForm_MON = Month(DateValue("11,1,2018"))
        'MsgBox DateFromForm_MON
    Case "December"
        DateFromForm_MON = Month(DateValue("12,1,2018"))
        'MsgBox DateFromForm_MON
    Case Else
        'MsgBox "4to to ne to"
End Select
End Function

и запрос "querty1"

SQL
1
2
3
4
SELECT DATA.DATA, DATA.NAME, DATA.COLOR
FROM DATA
WHERE IIF(FORMS!F1!CheckDAY, DATA.DATA=DateFromForm_DAY(), IIF(FORMS!F1!CheckMONTH, MONTH(DATA.DATA)=DateFromForm_MON(),TRUE))
GROUP BY DATA.DATA, DATA.NAME, DATA.COLOR;

если будет возможность помогите пожалуйста разобраться что я не так делаю

@el_virun · 25.01.2018, 15:36 **[ТС]**

разобрался починил спасибо всем неравнодушным огромное!!!

Новые блоги и статьи Все статьи Все блоги /
Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI
Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ	Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .

Использование нескольких checkbox в запросе

Решение

Решение

@el_virun 0 / 0 / 0 Регистрация: 29.11.2017 Сообщений: 70
	23.01.2018, 14:00 [ТС]
	Dear Eugene-LS дело в том, что необходимо именно решение поставленного вопроса-т.к. эта выложенная база только тестовая площадка для субд что я делаю, в которой идет выборка заранее по году, фамилии и еще прочим параметрам, необходимо решение в котором в запросе будут варьироваться условия отбора по дате (день, месяц, первых три, втроых три месяца и пр.) в зависимости от "нажатого" необходимого чекбокса т.е. в этой бд я с Вашей помощью и остальных гуру надеюсь разобраться с проблемой и после уже переработать найденное решение для своей основной бд Спасибо за Ваше внимание и предложения и за то, что сразу стараетесь подсказать в нескольких направлениях 0

@el_virun 0 / 0 / 0 Регистрация: 29.11.2017 Сообщений: 70
	23.01.2018, 15:06 [ТС]
	Dear Eugene-LS Спасибо огромное!!! Буду ковырять и изучать новые данные))) 0

@Eugene-LS 13183 / 5881 / 1506 Регистрация: 05.10.2016 Сообщений: 16,507
	23.01.2018, 15:18
	el_virun, ещё: Задавайте внятные имена объектов в формах. т.е. вместо: Text0 -> TextDate (или txtDate) Combo4 -> ComboMonth (или cbxMonth) и т.д. ... Вам же ориентироваться будет проще. Успехов! 2

@el_virun 0 / 0 / 0 Регистрация: 29.11.2017 Сообщений: 70
	23.01.2018, 20:39 [ТС]
	Да спасибо за совет-на основе так и делаю-а тут варганил на скорую руку на коленке)) 0

@el_virun 0 / 0 / 0 Регистрация: 29.11.2017 Сообщений: 70
	23.01.2018, 23:49 [ТС]
	Спасибо завтра посмотрю и отпишусь 0

@el_virun 0 / 0 / 0 Регистрация: 29.11.2017 Сообщений: 70
	25.01.2018, 11:42 [ТС]
	Спасибо....а я тоже невнимательный))) вот что значит над кусочком кода 3 дня сидет-уже все небо в попугайчиках)))) 0

@el_virun 0 / 0 / 0 Регистрация: 29.11.2017 Сообщений: 70
	25.01.2018, 15:36 [ТС]
	разобрался починил спасибо всем неравнодушным огромное!!! 0