Как отформатировать запрос в VBA? / Microsoft Access

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Как отформатировать запрос в VBA?

32 сообщений из 32, показаны все 2 страниц

все

Как отформатировать запрос в VBA?

#39273851

-SWAN-

Гость

Коллеги подскажите пожалуйста, как отформатировать запрос в VBA!
Есть запрос, на основе которого сделана подчиненная форма, в запросе параметр берется из поля в основной форме (поле типа Дата и называется Me.fi_date1)
Изначальный копи-паст запроса в VBA:

Код: sql

1.
2.
3.

RS.Source = "SELECT Наряды.* " & _
            "FROM Наряды " & _
            "WHERE IIf(isnull(Forms!Наряды!fi_date1) or Forms!Наряды!fi_date1 = "", Наряды!Дата, Наряды!Дата >= Forms!Наряды!fi_date1) = True;"

После доработки получился вот такой запрос, но он тоже выдает ошибку

Код: sql

1.
2.
3.

RS.Source = "SELECT Наряды.* " & _
            "FROM Наряды " & _
            "WHERE IIf(isnull(#" & Format(Me.fi_date1, "dd\/mm\/yyyy") & "#) or #" & Format(Me.fi_date1, "dd\/mm\/yyyy") & "# = #" & "" & "#, Наряды!Дата, Наряды!Дата >= #" & Format(Me.fi_date1, "dd\/mm\/yyyy") & "#) = True;"

что я сделал не так?

...

Рейтинг:

0 / 0

14.07.2016, 15:07

| Ответить | Цитировать | Написать

Как отформатировать запрос в VBA?

#39273893

Анатолий ( Киев )

Гость

Исходя из вашего условия при пустом поле на форме должны возвращаться записи, где Дата = True? Это условие не выполнимо, видимо вы хотели вернуть ВСЕ записи. Тогда лучше так:

Код: plsql

...WHERE (Forms!Наряды!fi_date1 Is Null) or (Дата >= Forms!Наряды!fi_date1)

PS. Поле на форме обязательно должно иметь формат даты.
PPS. Условие Forms!Наряды!fi_date1 = "" - лишнее.

...

Рейтинг:

0 / 0

14.07.2016, 15:40

| Ответить | Цитировать | Написать

Как отформатировать запрос в VBA?

#39273916

-SWAN-

Гость

Анатолий ( Киев ), добрый день! Спасибо за помощь!
В моем запросе, если на форме поле Me.fi_date1 пустое или isnull, то берутся ВСЕ данные из таблицы, просто у меня вопрос именно как отформатировать правильно запрос

Код: sql

1.
2.
3.

RS.Source = "SELECT &#205;&#224;&#240;&#255;&#228;&#251;.* " & _
            "FROM &#205;&#224;&#240;&#255;&#228;&#251; " & _
            "WHERE IIf(isnull(#" & Format(Me.fi_date1, "dd\/mm\/yyyy") & "#), not isnull(&#205;&#224;&#240;&#255;&#228;&#251;!&#196;&#224;&#242;&#224;), &#205;&#224;&#240;&#255;&#228;&#251;!&#196;&#224;&#242;&#224; >= #" & Format(Me.fi_date1, "dd\/mm\/yyyy") & "#) = True;"

вот этот вариант выдает синтаксическую ошибку(((

...

Рейтинг:

0 / 0

14.07.2016, 15:51

| Ответить | Цитировать | Написать

Как отформатировать запрос в VBA?

#39273921

-SWAN-

Гость

с крокозябрами получилось((

Код: sql

1.
2.
3.

RS.Source = "SELECT Наряды.* " & _
            "FROM Наряды " & _
            "WHERE IIf(isnull(#" & Format(Me.fi_date1, "dd\/mm\/yyyy") & "#), not isnull(Наряды!Дата), Наряды!Дата >= #" & Format(Me.fi_date1, "dd\/mm\/yyyy") & "#) = True;"

...

Рейтинг:

0 / 0

14.07.2016, 15:52

| Ответить | Цитировать | Написать

Как отформатировать запрос в VBA?

#39273960

sdku

Участник

Откуда: Краснодар

Сообщения: 7 762

Рейтинг: 0 / 0

-SWAN-,
поясните,что именно Вы подразумеваете под словами "отформатировать запрос" (ведь в запросе, кроме как,изменить ширину полей, шрифт,параметры печати и сделать-то больше ничего нельзя

...

Рейтинг:

0 / 0

14.07.2016, 16:26

| Ответить | Цитировать | Написать

Как отформатировать запрос в VBA?

#39273972

-SWAN-

Гость

sdku,
В моем запросе Access ругается что неверный синтаксис Даты

Код: sql

1.
2.
3.
4.
5.

RS.Source = "SELECT Наряды.* " & _
            "FROM Наряды " & _
            "WHERE IIf(isnull(#" & Format(Me.fi_date1, "dd\/mm\/yyyy") & "#) or #" & Format(Me.fi_date1, "dd\/mm\/yyyy") & "# = #" & "" & "#, " & _
            "Наряды!Дата, " & _
            "Наряды!Дата >= #" & Format(Me.fi_date1, "dd\/mm\/yyyy") & "#) = True;"

Вот этот запрос. Я и спрашиваю у форумчан, верно ли я проставил значки решетки # и пр?

...

Рейтинг:

0 / 0

14.07.2016, 16:33

| Ответить | Цитировать | Написать

Как отформатировать запрос в VBA?

#39273982

sdku

Участник

Откуда: Краснодар

Сообщения: 7 762

Рейтинг: 0 / 0

И поймите,что условие отбора справедливо для ВСЕХ записей запроса и оно не может измениться в зависимости от значения какого-то поля в записи(т.к это оно меняется в записях)
Если какое-то поле пустое,то отбери такие-то записи,а остальные скрой,а если не пустое то отбери такие-то а другие скрой, а как это сделать в одном запросе?(Нужен простой запрос с параметром)

...

Рейтинг:

0 / 0

14.07.2016, 16:38

| Ответить | Цитировать | Написать

Как отформатировать запрос в VBA?

#39273987

sdku

Участник

Откуда: Краснодар

Сообщения: 7 762

Рейтинг: 0 / 0

ПыСы-это вычисляемое поле,а не условие отбора

...

Рейтинг:

0 / 0

14.07.2016, 16:40

| Ответить | Цитировать | Написать

Как отформатировать запрос в VBA?

#39274004

-SWAN-

Гость

sdku,
это только часть моего запроса (этот запрос - источник данных подчиненной формы),
весь запрос выглядит так

Код: sql

1.
2.
3.
4.
5.
6.
7.
8.

SELECT Наряды.*
FROM Наряды
WHERE (((IIf(IsNull(Формы!Наряды!fi_date2) Or Формы!Наряды!fi_date2="",Наряды!Дата>0,Наряды!Дата<=Формы!Наряды!fi_date2))=True) 
And ((IIf(IsNull(Forms!Наряды!fi_SN) Or Forms!Наряды!fi_SN="",Наряды![SN устройства]<>"-1",Наряды![SN устройства]=Forms!Наряды!fi_SN))=True) 
And ((IIf(IsNull(Forms!Наряды!fi_ID) Or Forms!Наряды!fi_ID="",Наряды![ID устройства]<>"-1",Наряды![ID устройства]=Forms!Наряды!fi_ID))=True) 
And ((IIf(IsNull(Формы!Наряды!fi_date1) Or Формы!Наряды!fi_date1="",Наряды!Дата>0,Наряды!Дата>=Формы!Наряды!fi_date1))=True)
And ((IIf(IsNull(Формы!Наряды!fi_isp) Or Формы!Наряды!fi_isp="",Наряды!Исполнитель<>"-1",Наряды!Исполнитель=Формы!Наряды!fi_isp))=True))
ORDER BY Наряды.Дата, Наряды.Исполнитель;

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

Код: sql

1.
2.
3.
4.
5.

RS.Source = "SELECT Наряды.* " & _
            "FROM Наряды " & _
            "WHERE IIf(isnull('" & Me.fi_isp & "') or '" & Me.fi_isp & "'='" & "" & "', Наряды!Исполнитель, Наряды!Исполнитель = '" & Me.fi_isp & "') = True " & _
            "And IIf(isnull('" & Me.fi_SN & "') or '" & Me.fi_SN & "'='" & "" & "', Наряды![SN устройства], Наряды![SN устройства] = '" & Me.fi_SN & "') = True " & _
            "And IIf(isnull('" & Me.fi_ID & "') or '" & Me.fi_ID & "'='" & "" & "', Наряды![ID устройства], Наряды![ID устройства] = '" & Me.fi_ID & "') = True;"

осталось доделать 2 поля с Датами (начало и конец периода) - но выдается ошибка синтаксиса - вот поэтому я и задал здесь упрощенный вариант моего запроса.

...

Рейтинг:

0 / 0

14.07.2016, 17:00

| Ответить | Цитировать | Написать

Как отформатировать запрос в VBA?

#39274008

_проходил_мимо_

Гость

авторВ моем запросе Access ругается что неверный синтаксис Даты

гарантированное понимание Access'om даты:

"[Поле запроса типа дата] = #" & Dateserial(2016,07,14) & "# и так далее по запросу

а вообще имхо лучше сначала отработать запрос в бланке запросов, а потом его форматировать для вставки в переменную

ИМХО проблем меньше

...

Рейтинг:

0 / 0

14.07.2016, 17:03

| Ответить | Цитировать | Написать

Как отформатировать запрос в VBA?

#39274021

__Michelle

Участник

Сообщения: 3 247

Рейтинг: 0 / 0

-SWAN-,

Кто же это научил вас так условие WHERE составлять?!
Уже второй случай за два дня....
Жуть какая-то...

...

Рейтинг:

0 / 0

14.07.2016, 17:19

| Ответить | Цитировать | Написать

Как отформатировать запрос в VBA?

#39274039

-SWAN-

Гость

__Michelle, у меня на основной форме 5 полей (фильтров) и подчиненная формочка основанная на этом большом запросе, так что без такого условия отбора никак(((

...

Рейтинг:

0 / 0

14.07.2016, 17:35

| Ответить | Цитировать | Написать

Как отформатировать запрос в VBA?

#39274059

__Michelle

Участник

Сообщения: 3 247

Рейтинг: 0 / 0

-SWAN-,

Уже даже не говоря о построенных выражениях, но....
Но зачем Вы вносите проверки значений полей формы внутрь запроса,
ведь можно проверять эти значения раньше, при построении запроса,
и запрос примет уже готовый вид.
Да еще в IsNull вставляете строки в кавычках... Ох...

...

Рейтинг:

0 / 0

14.07.2016, 18:03

| Ответить | Цитировать | Написать

Как отформатировать запрос в VBA?

#39274061

-SWAN-

Гость

вопрос остается открытым(((, что неверно в синтаксисе Даты в запросе:

Код: sql

1.
2.
3.
4.
5.

RS.Source = "SELECT Наряды.* " & _
            "FROM Наряды " & _
            "WHERE IIf(isnull(#" & Format(Me.fi_date1, "dd\/mm\/yyyy") & "#) or #" & Format(Me.fi_date1, "dd\/mm\/yyyy") & "# = #" & "" & "#, " & _
            "Наряды!Дата, " & _
            "Наряды!Дата >= #" & Format(Me.fi_date1, "dd\/mm\/yyyy") & "#) = True;"

...

Рейтинг:

0 / 0

14.07.2016, 18:05

| Ответить | Цитировать | Написать

Как отформатировать запрос в VBA?

#39274074

__Michelle

Участник

Сообщения: 3 247

Рейтинг: 0 / 0

-SWAN-,

А что такое здесь Source? К какому объекту Вы это применяете?

...

Рейтинг:

0 / 0

14.07.2016, 18:25

| Ответить | Цитировать | Написать

Как отформатировать запрос в VBA?

#39274083

__Michelle

Участник

Сообщения: 3 247

Рейтинг: 0 / 0

-SWAN-,

У Вас там прямо кладезь.
Вот этим думаете проверить поле даты на пустое значение?

Код: sql

..... Format(Me.fi_date1, "dd\/mm\/yyyy") & "# = #" & "" & "#, ".....

А потом еще дату из таблицы, Наряды!Дата, собираетесь сравнивать с True?
Кстати, нужна точка, а не восклицательный знак.

...

Рейтинг:

0 / 0

14.07.2016, 18:35

| Ответить | Цитировать | Написать

Как отформатировать запрос в VBA?

#39274292

-SWAN-

Гость

__Michelle-SWAN-,

У Вас там прямо кладезь.
Вот этим думаете проверить поле даты на пустое значение?

Код: sql

..... Format(Me.fi_date1, "dd\/mm\/yyyy") & "# = #" & "" & "#, ".....

А потом еще дату из таблицы, Наряды!Дата, собираетесь сравнивать с True?
Кстати, нужна точка, а не восклицательный знак.

А как надо проверить дату на пустое значение?

...

Рейтинг:

0 / 0

15.07.2016, 09:03

| Ответить | Цитировать | Написать

Как отформатировать запрос в VBA?

#39274378

__Michelle

Участник

Сообщения: 3 247

Рейтинг: 0 / 0

Посмотрите. Может, что-нибудь поймете.
И на порядок следования дней и месяцев взгляните.

Код: vbnet

1.
2.
3.

S = "SELECT Наряды.* " & _ 
    "FROM Наряды" & _ 
    IIf(IsNull(Me.fi_date1), "", " WHERE Наряды.Дата>=" & Format(Me.fi_date1, "\#mm\/dd\/yyyy\#")

А что же Вы на вопросы-то не отвечаете?
Вам, значит, все разжуй, а Вы не соизволяете?

...

Рейтинг:

0 / 0

15.07.2016, 10:44

| Ответить | Цитировать | Написать

Как отформатировать запрос в VBA?

#39274387

-SWAN-

Гость

__Michelle,
спасибо!
Но проверки на пустое значение Даты я так и не увидел(((
У вас есть только проверка на Isnull.

...

Рейтинг:

0 / 0

15.07.2016, 10:52

| Ответить | Цитировать | Написать

Как отформатировать запрос в VBA?

#39274399

Панург

Участник

Откуда: настоящему индейцу завсегда везде ништяк

Сообщения: 5 486

Рейтинг: 0 / 0

-SWAN-, в запросе все пустые значения проверяются одинаково - IS Null

...

Рейтинг:

0 / 0

15.07.2016, 11:04

| Ответить | Цитировать | Написать

Как отформатировать запрос в VBA?

#39274401

Панург

Участник

Откуда: настоящему индейцу завсегда везде ништяк

Сообщения: 5 486

Рейтинг: 0 / 0

-SWAN-У вас есть только проверка на Isnull.Не путай с функцией.

...

Рейтинг:

0 / 0

15.07.2016, 11:05

| Ответить | Цитировать | Написать

Как отформатировать запрос в VBA?

#39274408

__Michelle

Участник

Сообщения: 3 247

Рейтинг: 0 / 0

-SWAN-__Michelle,
спасибо!
Но проверки на пустое значение Даты я так и не увидел(((
У вас есть только проверка на Isnull.Не увидели, значит, это не нужно.
Почитайте Help про дату, как выглядит "пустая" дата.

На вопросы упорно не отвечаете?

...

Рейтинг:

0 / 0

15.07.2016, 11:12

| Ответить | Цитировать | Написать

Как отформатировать запрос в VBA?

#39274487

-SWAN-

Гость

__Michelle-SWAN-,

А что такое здесь Source? К какому объекту Вы это применяете?

на какие вопросы я не ответил?
У меня теперь запрос выглядит так (поля дата1 и дата2 теперь обязательно имеют какое-нибудь значение отличное от пустого и НУЛЛ)

Код: sql

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.

Set RS = New ADODB.Recordset
RS.ActiveConnection = CurrentProject.Connection

RS.Source = "SELECT Наряды.* " & _
            "FROM Наряды " & _
            "WHERE IIf(isnull('" & Me.fi_isp & "') or '" & Me.fi_isp & "'='" & "" & "', Наряды!Исполнитель, Наряды!Исполнитель = '" & Me.fi_isp & "') = True " & _
            "And IIf(isnull('" & Me.fi_SN & "') or '" & Me.fi_SN & "'='" & "" & "', Наряды![SN устройства], Наряды![SN устройства] = '" & Me.fi_SN & "') = True " & _
            "And IIf(isnull('" & Me.fi_ID & "') or '" & Me.fi_ID & "'='" & "" & "', Наряды![ID устройства], Наряды![ID устройства] = '" & Me.fi_ID & "') = True " & _
            "And Наряды.Дата >= #" & Format(Me.fi_date1, "dd\/mm\/yyyy") & "# " & _
            "And Наряды.Дата <= #" & Format(Me.fi_date2, "dd\/mm\/yyyy") & "#;"

...

Рейтинг:

0 / 0

15.07.2016, 12:08

| Ответить | Цитировать | Написать

Как отформатировать запрос в VBA?

#39274544

MrShin

Участник

Сообщения: 1 276

Рейтинг: 0 / 0

-SWAN-,
Не слушаете вы __Michelle.

1. Конструкция isnull('" & Me.fi_isp & "') не имеет смысла, она никогда не будет True. Если Me.fi_isp будет Null, то IsNull('') будет False. Тут должно быть Is Null [fi_ID], где [fi_ID] - поле таблицы
2. Конструкция для даты с # работает только для форматов американского и стандартного: #mm/dd/yyyy# и #yyyy.mm.dd#

В остальные подробности не вдавался, это уж больно глаз режет.

...

Рейтинг:

0 / 0

15.07.2016, 12:43

| Ответить | Цитировать | Написать

Как отформатировать запрос в VBA?

#39274560

__Michelle

Участник

Сообщения: 3 247

Рейтинг: 0 / 0

MrShin-SWAN-,
Не слушаете вы __Michelle.

1. Конструкция isnull('" & Me.fi_isp & "') не имеет смысла, она никогда не будет True. Если Me.fi_isp будет Null, то IsNull('') будет False. Тут должно быть Is Null [fi_ID], где [fi_ID] - поле таблицы
2. Конструкция для даты с # работает только для форматов американского и стандартного: #mm/dd/yyyy# и #yyyy.mm.dd#

В остальные подробности не вдавался, это уж больно глаз режет.То есть, как это "не слушайте"?)))
Где Вы в предложенном мной варианте 19412963 увидели критикуемую Вами конструкцию?!
У меня-то как раз IIf(IsNull(Me.fi_date1)..., причем не в теле запроса.
А зачем это туда помещать, когда все решается на стадии формирования запроса?
Если "глаз режут" воображаемые мои недочеты, могу порекомендовать хорошие капли глазные.)))

...

Рейтинг:

0 / 0

15.07.2016, 12:55

| Ответить | Цитировать | Написать

Как отформатировать запрос в VBA?

#39274566

__Michelle

Участник

Сообщения: 3 247

Рейтинг: 0 / 0

MrShin,

Ай, простите, там ведь прямо противоположное...
Не "не слушайте", а не слушаете".
Видимо, капли приберегу для себя, пригодятся.)))

...

Рейтинг:

0 / 0

15.07.2016, 12:59

| Ответить | Цитировать | Написать

Как отформатировать запрос в VBA?

#39274574

MrShin

Участник

Сообщения: 1 276

Рейтинг: 0 / 0

__Michelle,

Уфф, я уже испугался, что описАлся :) Никогда не призывал кого-то не слушать

...

Рейтинг:

0 / 0

15.07.2016, 13:04

| Ответить | Цитировать | Написать

Как отформатировать запрос в VBA?

#39274588

ПЕНСИОНЕРКА

Участник

Откуда: Владимирская обл

Сообщения: 4 809

Рейтинг: 0 / 0

-SWAN-,
намного более удобный и практичный код с выборкой по любому сочетанию параметров

Код: 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.

Dim s, s1, s2
Set RS = New ADODB.Recordset
RS.ActiveConnection = CurrentProject.Connection

s1 = "SELECT Наряды.* FROM Наряды "
s = ""
If Len(Me.fi_isp & "") > 0 Then

s = s & " and Наряды!Исполнитель = '" & Me.fi_isp & "'"
End If

If Len(Me.fi_SN & "") > 0 Then
s = s & " and Наряды![SN устройства] = '" & Me.fi_SN & "'"
End If

If Len(Me.fi_ID & "") > 0 Then
s = s & " and Наряды![ID устройства] = '" & Me.fi_ID & "'"
End If

If Len(Me.fi_date1 & "") > 0 Then
s = s & " and Наряды.Дата >= #" & Format(Me.fi_date1, "dd\/mm\/yyyy") & "# "
End If

If Len(Me.fi_date2 & "") > 0 Then
s = s & " and Наряды.Дата <= #" & Format(Me.fi_date2, "dd\/mm\/yyyy") & "# "
End If
If Len(s) > 0 Then
s2 = s1 & " where " & Mid(s, 5)
Else
s2 = s1
End If

RS.Source = s2

...

Рейтинг:

0 / 0

15.07.2016, 13:15

| Ответить | Цитировать | Написать

Как отформатировать запрос в VBA?

#39274612

__Michelle

Участник

Сообщения: 3 247

Рейтинг: 0 / 0

-SWAN-__Michelle-SWAN-,

А что такое здесь Source? К какому объекту Вы это применяете?

на какие вопросы я не ответил?
У меня теперь запрос выглядит так (поля дата1 и дата2 теперь обязательно имеют какое-нибудь значение отличное от пустого и НУЛЛ)

Код: sql

1.
2.
3.
4.

Set RS = New ADODB.Recordset
RS.ActiveConnection = CurrentProject.Connection

RS.Source = ....

Просто Вы где-то раньше писали, что это источник данных подчиненной формы...

А вопрос, который меня действительно интересует, был такой:
"Кто учит писать такие конструкции в WHERE?".
IIf(.....)=True
Дело в том, что именно такое впервые увидела позавчера у одной из спрашивающих участниц.
И вот снова такое. Уже система. Значит, где-то именно такому учат.
Интересно, откуда это взялось.

...

Рейтинг:

0 / 0

15.07.2016, 13:23

| Ответить | Цитировать | Написать

Как отформатировать запрос в VBA?

#39274657

-SWAN-

Гость

__Michelle,
Вообще у меня задача стояла следующая:
Форма с подчиненной формочкой + 5 полей-фильтров
После выбора необходимых данных надо было отправить в Outlook письма по каждой строке выборки - т.е одна строка - одно письмо.
Может и можно было бы решить эту задачку по-другому.

ПС: Где меня научили составлять такие запросы - вопрос сложный, уже не помню, но первый раз такое у меня появилось году в 2006, наверно где-то здесь на форуме увидел, Access'у учился сам по книгам и сайтам, ну и этот форум конечно.
И вот теперь я снова столкнулся с программированием в access, вот и брал из старых своих прог.

...

Рейтинг:

0 / 0

15.07.2016, 14:01

| Ответить | Цитировать | Написать

Как отформатировать запрос в VBA?

#39274669

__Michelle

Участник

Сообщения: 3 247

Рейтинг: 0 / 0

-SWAN-,

Да я не про составление запросов. Неужели Вы до сих пор не видите,
насколько избыточная, ненужная и просто неверная конструкция в Where?

...

Рейтинг:

0 / 0

15.07.2016, 14:13

| Ответить | Цитировать | Написать

Как отформатировать запрос в VBA?

#39276156

-SWAN-

Гость

ПЕНСИОНЕРКА-SWAN-,
намного более удобный и практичный код с выборкой по любому сочетанию параметров

Код: 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.

Dim s, s1, s2
Set RS = New ADODB.Recordset
RS.ActiveConnection = CurrentProject.Connection

s1 = "SELECT Наряды.* FROM Наряды "
s = ""
If Len(Me.fi_isp & "") > 0 Then

s = s & " and Наряды!Исполнитель = '" & Me.fi_isp & "'"
End If

If Len(Me.fi_SN & "") > 0 Then
s = s & " and Наряды![SN устройства] = '" & Me.fi_SN & "'"
End If

If Len(Me.fi_ID & "") > 0 Then
s = s & " and Наряды![ID устройства] = '" & Me.fi_ID & "'"
End If

If Len(Me.fi_date1 & "") > 0 Then
s = s & " and Наряды.Дата >= #" & Format(Me.fi_date1, "dd\/mm\/yyyy") & "# "
End If

If Len(Me.fi_date2 & "") > 0 Then
s = s & " and Наряды.Дата <= #" & Format(Me.fi_date2, "dd\/mm\/yyyy") & "# "
End If
If Len(s) > 0 Then
s2 = s1 & " where " & Mid(s, 5)
Else
s2 = s1
End If

RS.Source = s2

Спасибо большое, обязательно приму на вооружение такой вариант!

...

Рейтинг:

0 / 0

19.07.2016, 12:14

| Ответить | Цитировать | Написать

32 сообщений из 32, показаны все 2 страниц

все

Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Как отформатировать запрос в VBA?

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?all=1&fid=45&tid=1613345]:	0ms
get settings:	8ms
get forum list:	13ms
check forum access:	3ms
check topic access:	3ms
track hit:	43ms
get topic data:	10ms
get forum data:	2ms
get page messages:	69ms
get tp. blocked users:	2ms
others:	341ms

total:	494ms