Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Access
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 27.03.2010, 10:31   #1
Agapov_stas
Пользователь
 
Регистрация: 23.11.2009
Сообщений: 54
По умолчанию Запрос по списку в adp.?:-((

Доброе утро,форумчане!
Не могу понять,как написать правильно текст sql-запроса..??
Вопрос вот в чем:
Два поля со списком на форме - "Улица" и "Номер_дома"
Источником для "Улица" является
запрос :
Код:
Select Улица.Улица, Улица.id_улица
From Улица
Order By Улица.Улица
Для обновления второго поля пишу в VBA :
Код:
Private Sub Улица_AfterUpdate()
Me!Номер_дома.Requery
End Sub
Затем для второго поля со списком "Номер_дома" пишу текст sql-запроса:
Код:
SELECT id_дом, Дом 
FROM Улица_дом 
WHERE id_улица=Forms!Заявка!Улица;
....захожу в форму,выбираю улицу,затем пытаюсь выбрать в поле со списком"Номер_дома" дом,-а он ругается : <Недопустимая инструкция SQL.Проверьте фильтр для сервера в источнике записей формы>
???
Подскажите,что делать?:-((((
Заранее благодарен!

Последний раз редактировалось Agapov_stas; 27.03.2010 в 11:29.
Agapov_stas вне форума Ответить с цитированием
Старый 27.03.2010, 12:49   #2
Agapov_stas
Пользователь
 
Регистрация: 23.11.2009
Сообщений: 54
По умолчанию

Вопрос снимается,уже дошло!.
Кому понадобится:
В запросе поля со списком "Номер_дома" написал :
Код:
SELECT Дом, id_дом FROM Улица_дом WHERE id_улица=0
В VBA прописал :
Код:
Private Sub Улица_AfterUpdate()
Dim strSQL As String
  strSQL = _
    "SELECT Дом, id_дом " & _
    "FROM Улица_дом " & _
    "WHERE id_улица=" & Nz([Улица].Value, 0)
  Номер_дома.RowSource = strSQL
  Номер_дома.Requery

End Sub
Ну и присоединенные столбцы и там два и там..
Agapov_stas вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Поиск по списку gavrylyuk Microsoft Office Excel 6 25.03.2010 16:24
Макрос печати по списку Feniks18 Microsoft Office Excel 2 03.11.2009 07:20
Загрузка по списку jkpro Работа с сетью в Delphi 23 24.09.2009 17:26
список/поиск по списку risen Microsoft Office Excel 5 21.07.2009 17:33
Переименовать файлы по списку!? jungo Microsoft Office Excel 14 19.05.2008 11:43