Добавление готового модуля

@Capricorn · Регистрация: 15.02.2017

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

Добрый день. У меня был назначен макрос для кнопки. Я преобразовал его в модуль VBA. Как назначить этот готовый модуль для кнопки.

@Eugene-LS · 16.02.2017, 22:11

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

А так изменений никаких

Ясно.

Добавлено через 22 минуты
А пустые даты в диапазон попадают?

Добавлено через 12 минут
Там еще нескольких полей кстати не хватает: Дата Сдачи, Дата выдачи талона, Дата получения талона + дата выдачи сертификата
Это как?

Добавлено через 5 минут
Короче:
Проверил - всё работает нормально по всем полям - просто строка фильтра длинная - ДА!
Ну что поделать - не я это придумал...
Идёт удвоение условий через OR.

Всё.
Успехов!

@Capricorn · 17.02.2017, 01:07 **[ТС]**

Сообщение от Eugene-LS

Дата Сдачи, Дата выдачи талона, Дата получения талона + дата выдачи сертификата

У меня такого не было

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

Сообщение от Eugene-LS

Проверил - всё работает нормально по всем полям - просто строка фильтра длинная - ДА!

А как написать это фильтр?

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

Сообщение от Eugene-LS

Ясн

Блин. Обновлял страницу время от времени и не заметил, что третья страница уже появилась.

@Capricorn · 19.02.2017, 20:21 **[ТС]**

Сообщение от Eugene-LS

Короче:
Проверил - всё работает нормально по всем полям - просто строка фильтра длинная - ДА!
Ну что поделать - не я это придумал...
Идёт удвоение условий через OR.

А что за строка то? Я не понял ничего.

@Eugene-LS · 19.02.2017, 20:43

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

А что за строка то? Я не понял ничего.

Строку предстоит создать ЛИЧНО вам!
Я проверил - всё работает, подсказки выше.
Если хотите "готовенькое" - это, извините, не ко мне.

Добавлено через 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
47
48
49
50
51
Private Sub DoSubFormFilter()
Dim s$
Dim datFrom$, datTo$
Dim sT$
Dim sTemp$
 
    If (Me!ФильтрПодразделение <> "") Then
            s = " And Подразделение = '" & Me!ФильтрПодразделение & "'"
    End If
        
    If (Me!ФильтрПрисоединение <> "") Then
            s = " And Присоединение = '" & Me!ФильтрПрисоединение & "'"
    End If
        
    If (Me!ФильтрОборудование <> "") Then
            s = " And Оборудование = '" & Me!ФильтрОборудование & "'"
    End If
 
 
' памятка
' Oборудование |Дата К |Дата В |Дата К1 |
'= WHERE ((([Дата Н]) Between #5/12/2017# And #5/12/2017#)) OR ((([Дата К1]) Between #5/12/2017# And #5/12/2017#)) OR ((([Дата К]) Between #5/12/2017# And #5/12/2017#)) OR (((Оборудование.[Дата В]) Between #5/12/2017# And #5/12/2017#));
    
'WHERE (((Оборудование.Оборудование)="не") AND ((Оборудование.[Дата Н]) Between #5/12/2017# And #5/12/2017#)) OR (((Оборудование.Оборудование)="не") AND ((Оборудование.[Дата К1]) Between #5/12/2017# And #5/12/2017#)) OR (((Оборудование.Оборудование)="не") AND ((Оборудование.[Дата К]) Between #5/12/2017# And #5/12/2017#)) OR (((Оборудование.Оборудование)="не") AND ((Оборудование.[Дата В]) Between #5/12/2017# And #5/12/2017#));
    
    
    'Аугешвайдинг арбайтен!
    If IsDate(Me!txtDateFrom) And IsDate(Me!txtDateTo) Then 'Ментало гоферентеируталинг
        datFrom = Format$(Me!txtDateFrom, "\#mm\/dd\/yy\#")
        datTo = Format$(Me!txtDateTo, "\#mm\/dd\/yy\#")
        
        sTemp = " And ([Дата Н] Between " & datFrom & " and " & datTo & ") OR ([Дата К1] Between " & datFrom & " and " & datTo & _
        ") OR ([Дата К] Between " & datFrom & " and " & datTo & ") OR ([Дата В] Between " & datFrom & " and " & datTo & ")"
        'Debug.Print sTemp
        's = s & sTemp
    
        sTemp = s & " And ([Дата Н] Between " & datFrom & " and " & datTo & ") OR " & s
        s = sTemp
        Debug.Print s
    End If
 
 
    If Len(s) > 5 Then
        s = Mid(s, 6)
        Me.Filter = s
        Me.FilterOn = True
    Else
        Me.FilterOn = False
        Me.Filter = ""
    End If
End Sub

shanemac51 · 19.02.2017, 21:29

что то я такой записи не доверяю

Visual Basic
1
2
3
If (Me!ФильтрПодразделение <> "") Then
            s = " And Подразделение = '" & Me!ФильтрПодразделение & "'"
    End If

применяю только

Visual Basic
1
2
3
4
If  len (Me!ФильтрПодразделение & "")>0 Then
            s = " And Подразделение = '" & Me!ФильтрПодразделение & "'"
    End If
    '''''

@Capricorn · 19.02.2017, 22:07 **[ТС]**

Сообщение от Eugene-LS

Я остановился тут - когда понял что вам ПУПО ЛЕНЬ!

Мне не лень. Я нашел пример в нете. Пытался вставить и отдельно и в фильтр. Но то одни ошибки то другие. А я даже не понимаю что не так.

@Eugene-LS · 19.02.2017, 22:16

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

Пытался вставить и отдельно и в фильтр. Но то одни ошибки то другие.

Так это нормально = отладка кода...
Нормальный процесс.

Подсказку (где решение) вам дали - а дальше сами.
Моя рекомендация:
Сделать сначала одно поле по дате (с учётом всех остальных условий)
- Потом второе отладить
- Ну а третье само пойдёт - и вам смешно станет насколько всё просто.

@Capricorn · 19.02.2017, 22:24 **[ТС]**

Сообщение от Eugene-LS

Сделать сначала одно поле по дате (с учётом всех остальных условий)

Visual Basic
1
2
3
4
5
6
7
If (IsDate(Me!С)) Then
    's = "Дата К Between " & Format(Nz(Me.С, #1/1/2000#), "\#mm\/dd\/yyyy\#") & " And " & Format(Nz(Me.по, #1/1/3000#), "\#mm\/dd\/yyyy\#")
    End If
    
    If IsDate(Me!по) Then
    's= "Дата К Between " & Format(Nz(Me.С, #1/1/2000#), "\#mm\/dd\/yyyy\#") & " And " & Format(Nz(Me.по, #1/1/3000#), "\#mm\/dd\/yyyy\#")
    End If

Я попробовал так но не знаю что писать для обновления поля. Просто DoSubFormFilter?

Я бы просто понял логику если бы умел читать этот код. Сейчас конечно попробую.

И еще один вопрос.
Даты надо будет фильтровать не только в масштабе оборудования. А когда то всех записей когда то для присоединения.
По логике как я понял мы задали переменную "s" и надо просто еще один фильтр или в этом же фильтре другую переменную который будет фильтровать значение s по датам?

@Eugene-LS · 19.02.2017, 22:31

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

И еще один вопрос.

А вам писал (выше) - постройте запрос по полному заполнению условий - ОН будет вам подсказкой.
А то что я опубликовал = просто болванка (моя и для меня).

Там всё через "OR" делается.

mobile · 19.02.2017, 22:41

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

что то я такой записи не доверяю

Достаточно сопоставить и ответ однозначен. Хотя бы таким запросом и все будет ясно

SQL
1
2
3
4
5
SELECT top 1 "Пустая строка" AS ТипЗначения, ("" & "")="" AS [без Len], len("" & "")=0 AS [c Len], [без Len]=[c Len] AS [Они равны?] FROM msysobjects
UNION ALL
SELECT top 1 "NULL", (NULL & "")="", len(NULL & "")=0, ((NULL & "")="") = (len(NULL & "")=0) FROM msysobjects
UNION ALL
SELECT top 1 "Символ", ("a1" & "")="", len("a1" & "")=0, (("a1" & "")="") = (len("a1" & "")=0) FROM msysobjects

Результаты

ТипЗначения	Значение	без Len	c Len	Они равны?
Пустая строка		-1	-1	-1
NULL		-1	-1	-1
Символ	a	0	0	-1

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

@Eugene-LS · 19.02.2017, 22:47

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

Хотя бы таким запросом и все будет ясно

Ну через "UNION ALL" - там городить IMHO не стоит.
И так всё нормально - просто длинная строка фильтра с прибл 14-тью "но" и "если".
Да - Не проста строчка.
Просто (кое кому) лень её построить просто.

@Capricorn · 19.02.2017, 23:26 **[ТС]**

Сообщение от Eugene-LS

Там всё через "OR" делается.

Я понимаю что уже надоел скорее всего.

Но если можно кое что пояснить.
В строках что выше
Сперва мы присваиваем полям тип даты.
Потом sTemp задаем какие поля и как фильтровать.
Потом совмещаем два фильтра s и sTemp
Приравниваем s к sTemp
Я правильно понял или нет просто?
Я фильтрую даты по одному полю выдает ошибку в этом совмещении как раз.

@Eugene-LS · 19.02.2017, 23:28

Уважаемый Capricorn, а если пользователю потребуется выборка по датам не по всем полям:
"|Дата К |Дата В |Дата К1 |"
А только, допустим, по "Дата В" - Вполне допускаю что такое возможно.
- и тут всё меняется.
А по сему:
Лучше ,что бы вы сами освоили фильтрацию формы.
Успехов!

@Capricorn · 19.02.2017, 23:32 **[ТС]**

Сообщение от Eugene-LS

Лучше ,что бы вы сами освоили фильтрацию формы.

Я и пытаюсь освоить. Пытаюсь понять тип записей. Просто правильно я понял что выше написано или нет? Если да то я тогда примерно пойму что надо поменять или от чего отталкиваться.

@Eugene-LS · 19.02.2017, 23:37

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

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

Я подсказывал:
Постройте запрос по всем параметрам - переведите его в режим SQL - то что после WHERE - это ваш фильтр (строка фильтра).
Дальше стройте строку фильтра по значениям полей выбора с учётом того что НЕКОТОРЫЕ могут быть не заданны.

@Capricorn · 20.02.2017, 00:18 **[ТС]**

Сообщение от Eugene-LS

Я подсказывал

Спасибо. Все получилось.
Только теперь ищу как цветом поля нужные выделить. А то слишком много данных а что к чему искать надо

@Eugene-LS · 20.02.2017, 01:18

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

Спасибо. Все получилось.

Ура-а-а-а-а-а!
Искренне рад.

Расцветка - это уже другая тема.
Справились с прошлым, - и это уже не задачка.

@Capricorn · 20.02.2017, 01:21 **[ТС]**

Сообщение от Eugene-LS

Справились с прошлым, - и это уже не задачка.

Я правда через кнопку назначил все. Чтобы другим понятнее было. И прошлое немного изменил.

PureBasic
1
2
3
4
5
6
7
8
9
10
11
If (Me!ФильтрПодразделение <> "") Then
            s = " And Подразделение = '" & Me!ФильтрПодразделение & "'"
    End If
        
    If (Me!ФильтрПрисоединение <> "") Then
            s = " And Присоединение = '" & Me!ФильтрПрисоединение & "'" & " And Подразделение = '" & Me!ФильтрПодразделение & "'"
    End If
        
    If (Me!ФильтрОборудование <> "") Then
            s = " And Оборудование = '" & Me!ФильтрОборудование & "'" & " And Присоединение = '" & Me!ФильтрПрисоединение & "'" & " And Подразделение = '" & Me!ФильтрПодразделение & "'"
    End If

Сейчас в цветах копаюсь.

@Eugene-LS · 20.02.2017, 03:29

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

что то я такой записи не доверяю

Галь - ну я так "начиркал" - тоже вариант.
Когда мы берём значения из полей формы - тут много всяких "НО" и "ЕСЛИ", но тут они второстепенны.

Тема не про то ...

@Capricorn · 20.02.2017, 23:03 **[ТС]**

Сообщение от Eugene-LS

Справились с прошлым

Что то опять пошло не так. Вбил часть данных Фильтрует или по датам или по названиям. А вместе никак. Ни ошибок ничего не выдает. Просто если даты выбраны то только по датам фильтрует. Я записал так.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
    If IsDate(Me!txtDateFrom) And IsDate(Me!txtDateTo) Then
        datFrom = Format$(Me!txtDateFrom, "\#mm\/dd\/yy\#")
        datTo = Format$(Me!txtDateTo, "\#mm\/dd\/yy\#")
        
        sTemp = " And ([Дата Н] Between " & datFrom & " and " & datTo & ") OR ([Дата К1] Between " & datFrom & " and " & datTo & ") OR ([Дата К] Between " & datFrom & " and " & datTo & ") OR ([Дата след К] Between " & datFrom & " and " & datTo & ") OR ([Дата след В] Between " & datFrom & " and " & datTo & ") OR ([Дата В] Between " & datFrom & " and " & datTo & ")"
        
        sT = s & sTemp
        
        s = sT
        
        Debug.Print s
        
    End If

Добавлено через 1 час 37 минут
Попробовал еще и такой вариант. Результат тот же.

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
Private Sub DoSubFormFilter()
Dim s$
Dim datFrom$, datTo$
Dim sT$
Dim sTemp$
       
    If (Me!ФильтрПодразделение <> "") Then
            s = " And Подразделение = '" & Me!ФильтрПодразделение & "'"
    End If
    
    If (Me!ФильтрПодразделение <> "") And IsDate(Me!txtDateFrom) And IsDate(Me!txtDateTo) Then
        datFrom = Format$(Me!txtDateFrom, "\#mm\/dd\/yy\#")
        datTo = Format$(Me!txtDateTo, "\#mm\/dd\/yy\#")
            
        s = " And Подразделение = '" & Me!ФильтрПодразделение & "'" & " And ([Дата Н] Between " & datFrom & " and " & datTo & ") OR ([Дата К1] Between " & datFrom & " and " & datTo & ") OR ([Дата К] Between " & datFrom & " and " & datTo & ") OR ([Дата след К] Between " & datFrom & " and " & datTo & ") OR ([Дата след В] Between " & datFrom & " and " & datTo & ") OR ([Дата В] Between " & datFrom & " and " & datTo & ")"
    End If
        
        
    If (Me!ФильтрПрисоединение <> "") Then
            s = " And Присоединение = '" & Me!ФильтрПрисоединение & "'" & " And Подразделение = '" & Me!ФильтрПодразделение & "'"
    End If
    
     If (Me!ФильтрПрисоединение <> "") And IsDate(Me!txtDateFrom) And IsDate(Me!txtDateTo) Then
        datFrom = Format$(Me!txtDateFrom, "\#mm\/dd\/yy\#")
        datTo = Format$(Me!txtDateTo, "\#mm\/dd\/yy\#")
            
        s = " And Присоединение = '" & Me!ФильтрПрисоединение & "'" & " And Подразделение = '" & Me!ФильтрПодразделение & "'" & " And ([Дата Н] Between " & datFrom & " and " & datTo & ") OR ([Дата К1] Between " & datFrom & " and " & datTo & ") OR ([Дата К] Between " & datFrom & " and " & datTo & ") OR ([Дата след К] Between " & datFrom & " and " & datTo & ") OR ([Дата след В] Between " & datFrom & " and " & datTo & ") OR ([Дата В] Between " & datFrom & " and " & datTo & ")"
    End If
        
    If (Me!ФильтрОборудование <> "") Then
            s = " And Оборудование = '" & Me!ФильтрОборудование & "'" & " And Присоединение = '" & Me!ФильтрПрисоединение & "'" & " And Подразделение = '" & Me!ФильтрПодразделение & "'"
    End If

Новые блоги и статьи Все статьи Все блоги /
GitHub Copilot в JetBrains: модель по умолчанию, Fix и контроль MCP and_y87 12.10.2026 10 октября 2026 года GitHub обновил Copilot для JetBrains: добавил настройки стартовой модели, исправления из диагностики и управление автозапуском MCP. Поддержка IDE 2025. 1 прекращена — требуется. . .	GitHub Copilot в JetBrains: модель по умолчанию, Fix и контроль MCP and_y87 12.10.2026 10 октября 2026 года GitHub обновил Copilot для JetBrains: добавил настройки стартовой модели, исправления из диагностики и управление автозапуском MCP. Поддержка IDE 2025. 1 прекращена — требуется. . .	День 5 из 28: Codex подсказывает следующий запрос and_y87 12.10.2026 9 октября 2026 года OpenAI запустила бету Composer predictions — подсказок следующего сообщения в текущем диалоге Codex. Это помощь с формулировкой запроса, а не автоматическое продолжение задачи. . . .	Запустил конкурс "тем и промптов для текстовых квестов созданных почти чисто ИИ" Adler 06.10.2026 Всем привет! За последние три-четыре дня я создал более 16 текстовых квестовых игр используя преимущественно по одному запросу к ИИ на игру. Мне так понравилось смотреть все ветки/ сцены во всех. . .
ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .

@Capricorn 0 / 0 / 0 Регистрация: 15.02.2017 Сообщений: 60

	Добавление готового модуля 15.02.2017, 18:46. Показов 5195. Ответов 62 Метки нет (Все метки) Добрый день. У меня был назначен макрос для кнопки. Я преобразовал его в модуль VBA. Как назначить этот готовый модуль для кнопки. 0

@Eugene-LS 13270 / 5947 / 1529 Регистрация: 05.10.2016 Сообщений: 16,651
	19.02.2017, 23:28
	Уважаемый Capricorn, а если пользователю потребуется выборка по датам не по всем полям: "\|Дата К \|Дата В \|Дата К1 \|" А только, допустим, по "Дата В" - Вполне допускаю что такое возможно. - и тут всё меняется. А по сему: Лучше ,что бы вы сами освоили фильтрацию формы. Успехов! 0