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

ReSQL.ru

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

Гость

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

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

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

Цитировать

Написать

Автор*:

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

Тема*:

Сообщение

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

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

Автор:

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

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

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

Вложение:

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

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

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

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

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

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

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

все

Как отформатировать запрос в 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

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

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

все

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

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

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

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

start [/forum/topic.php?fid=45&gotonew=1&tid=1613345]:	0ms
get settings:	9ms
get forum list:	13ms
check forum access:	3ms
check topic access:	3ms
track hit:	36ms
get topic data:	10ms
get first new msg:	7ms
get forum data:	2ms
get page messages:	47ms
get tp. blocked users:	1ms
others:	334ms

total:	465ms