Поиск на форме по месяцу

@alexpro1979 · Регистрация: 08.06.2015

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

Есть код который проводит посимвольный поиск в ленточной форме, понадобилось искать по поллю дата, выбрать по месяцу например февраль - 2. Использую код

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
Sub fpoisk()
Dim s1, s2
Me.Refresh
s1 = "true "
 
s2 = "" & Me.ДатаПоиск
If Len(s2) > 0 Then
s1 = s1 & " and  Дата like '*" & s2 & "*'"
 
End If
 
s2 = "" & Me.ЗаказчикПоиск
If Len(s2) > 0 Then
s1 = s1 & " and  Заказчик like '*" & s2 & "*'"
End If
 
s2 = "" & Me.Номер_заказаПоиск
If Len(s2) > 0 Then
s1 = s1 & " and  Номер_заказа like '*" & s2 & "*'"
End If
 
s2 = "" & Me.Номер_ппПоиск
If Len(s2) > 0 Then
s1 = s1 & " and  Номер_пп like '*" & s2 & "*'"
End If
 
s2 = "" & Me.Содержание_заказаПоиск
If Len(s2) > 0 Then
s1 = s1 & " and  Содержание_заказа like '*" & s2 & "*'"
End If
 
' вот здесь не фильтрует
s2 = "" & Me.ДатаОбсчетаПоиск
If Len(s2) > 0 Then
 
s1 = s1 & " and  Month(ДатаОбсчета) = " & s2
MsgBox s1
End If
 
 
Me.Filter = s1
Me.FilterOn = True
End Sub

Фильтр по месяцу не получается, подскажите как исправить ситуацию.

mobile · 28.07.2016, 13:54

Вместо MsgBox s1 напишите debug.print s1 и скопируйте сюда получившееся выражение из Immediate (Область отладки) после поиска.

Но на первый взгляд в поле формы ДатаОбсчетаПоиск находится дата, судя по имени поля. И тогда тоже надо брать от нее месяц и год. Типа такого

Visual Basic
1
s1 = s1 & " and  Format(ДатаОбсчета, "yyyymmm") = '" & Format(s2, "yyyymmm") & "'"

@alexpro1979 · 28.07.2016, 14:52 **[ТС]**

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

Immediate (Область отладки)

как увидеть эту область?

Добавлено через 2 минуты

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

Но на первый взгляд в поле формы ДатаОбсчетаПоиск

в это поле ввожу 1 - найти все записи за 1-й месяц, 2- второй.

Добавлено через 27 секунд
Может нужно как-то по другому?

mobile · 28.07.2016, 15:01

Immediate это область в редакторе ВБА. Обычно внизу области кода. Если ее нет, нажмите CTRL+G, появится. Надо увидеть получившееся выражение.

Да, кстати, а почему Вы задаете только месяц? Ведь в этом случае выйдет инфа за все годы, а не только за нужный.

@alexpro1979 · 28.07.2016, 15:02 **[ТС]**

Я думаю действительно необходимо два поля чиловых месяц и год. Не пойму как реализовать и почему по месяцу фильтр не получился.

mobile · 28.07.2016, 15:27

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

по месяцу фильтр не получился.

А что значит "не получился". Выходит на ошибку? Или неправильная выборка в фильтре?

И все-таки надо посмотреть получившееся выражение. Вы сумели найти область отладки в редакторе ВБА? Если в программе есть debug.print, то там должен быть текст. Вот этот текст скопируйте сюда

@alexpro1979 · 28.07.2016, 15:51 **[ТС]**

s1 = s1 & " and Format(ДатаОбсчета, 'yyyymmm') = '" & Format(s2, "yyyymmm") & "'"

SQL
1
TRUE  AND  Format(ДатаОбсчета, 'yyyymmm') = '1899Гру'

Добавлено через 2 минуты
true and (Month(ДатаОбсчета) = 5)
s1 = s1 & " and (Month(ДатаОбсчета) = " & s2 & ")"

Добавлено через 1 минуту
Все получилось, я ошибся именем поля, простите

Новые блоги и статьи Все статьи Все блоги /
Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ	Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .
Использование значений реквизитов справочника в документе, с определенными условиями и правами Maks 07.04.2026 1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .	Доступность команды формы по условию Maks 07.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .	Уведомление о неверно выбранном значении справочника Maks 06.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .	Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .

mobile 26827 / 14507 / 3192 Регистрация: 28.04.2012 Сообщений: 15,782
	28.07.2016, 15:01
	Immediate это область в редакторе ВБА. Обычно внизу области кода. Если ее нет, нажмите CTRL+G, появится. Надо увидеть получившееся выражение. Да, кстати, а почему Вы задаете только месяц? Ведь в этом случае выйдет инфа за все годы, а не только за нужный. 0

@alexpro1979 648 / 101 / 11 Регистрация: 08.06.2015 Сообщений: 1,564
	28.07.2016, 15:02 [ТС]
	Я думаю действительно необходимо два поля чиловых месяц и год. Не пойму как реализовать и почему по месяцу фильтр не получился. 0