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

ReSQL.ru

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

Гость

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

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

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

Цитировать

Написать

Автор*:

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

Тема*:

Сообщение

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

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

Автор:

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

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

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

Вложение:

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

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

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

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

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

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

25 сообщений из 32, страница 1 из 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

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

25 сообщений из 32, страница 1 из 2

все

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

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

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

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

start [/forum/topic.php?fid=45&msg=39273982&tid=1613345]:	0ms
get settings:	10ms
get forum list:	11ms
check forum access:	4ms
check topic access:	4ms
track hit:	36ms
get topic data:	11ms
get forum data:	2ms
get page messages:	65ms
get tp. blocked users:	2ms
others:	306ms

total:	451ms