Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / как изменить запрос? / 3 сообщений из 3, страница 1 из 1
15.04.2004, 17:47
    #32483294
Юра-чайник
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как изменить запрос?
написал запрос он работает:
Dim poChel As Object
Set poChel = Forms("ПоискЧеловека2")
strSql = "SELECT * FROM Контакты WHERE (((Контакты.Имя) Like '" & _
poChel.Имя & "*')AND ((Контакты.КличкаФамилия)Like'" & _
poChel.КличкаФамилия & "*')AND ((Контакты.Тел1)Like'" & _
poChel.Тел1 & "*')AND ((Контакты.Город)Like'" & _
poChel.Город & "*'));"
производит выбор зпаисей в таблице "контакты" по совпадениям в полях с полями формы "ПоискЧеловека2", но вот не видит записи в которых одно из полей не заполнено (имеет значение null)? Что нужно вставить чтоб "неполные записи тоже участвовали в отборе?
...
Рейтинг: 0 / 0
15.04.2004, 17:56
    #32483322
null
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как изменить запрос?
Код: plaintext
1.
(Контакты.Имя) Like '" & _ 
poChel.Имя & "*'

лучче переписать например:
Код: plaintext
1.
2.
3.
4.
5.
if (poChel.Имя &  "") <> "  " then
  str = " (Контакты.Имя) Like '" & _ 
  poChel.Имя & "*' "
else 
  str = "  True "
end if

и вообще оформить этот блок в функцию.
...
Рейтинг: 0 / 0
15.04.2004, 20:03
    #32483478
Shuhard
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как изменить запрос?
для любителей длинных запросов
Код: plaintext
1.
2.
...WHERE (((Контакты.Имя) Like '" poChel.Имя & "*'   OR   (Контакты.Имя) is Null)     AND ((...

...
Рейтинг: 0 / 0
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / как изменить запрос? / 3 сообщений из 3, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]