Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Событие OnChange / 5 сообщений из 5, страница 1 из 1
05.11.2003, 11:11
    #32315791
Bukovka
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Событие OnChange
У меня есть три таблицы: YP с полями ID, Name, Section с полями SectionID, Name и таблица-связка YPSection с полями ID, SectionID.
На форме есть combobox для выбора секций. Надо выдавать все YP.Name, которые есть в данной секции. Как это организовать?
...
Рейтинг: 0 / 0
05.11.2003, 11:37
    #32315857
Лох Позорный
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Событие OnChange
Форма в каком виде - обычная, ленточная, табличная?
...
Рейтинг: 0 / 0
05.11.2003, 11:38
    #32315859
Bukovka
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Событие OnChange
форма ленточная
...
Рейтинг: 0 / 0
05.11.2003, 11:43
    #32315869
Лох Позорный
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Событие OnChange
На событии GotFocus у нужного комбобокса меняй RowSource на что-нить типа
Код: plaintext
1.
2.
Select YP.ID, YP.Name
From YP Inner Join YPSection On YP.ID=YPSection.ID
Wher YPSection.SectionID=[имя контрола формы содержащего SectionID]


Если я правильно все понял.
...
Рейтинг: 0 / 0
05.11.2003, 12:29
    #32315947
Bukovka
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Событие OnChange
Я делаю так
Private Sub SectionID_Change()
Dim str As String
Dim str1 As String
Dim NAME As String
str1 = Me.SectionID.Value
str = "SELECT YP.NAME AS Name, SECTION.SECTIONID" & _
"FROM SECTION INNER JOIN (YP INNER JOIN YPSECTION ON YP.ID = YPSECTION.ID) ON SECTION.SECTIONID = YPSECTION.SECTIONID" & _
"WHERE (((SECTION.SECTIONID)=[" + str1+"])) WITH OWNERACCESS OPTION"
а что делать дальше я не знаю.


вот запрос, который сформировал аксес:

SELECT YP.NAME AS Name, SECTION.SECTIONID
FROM SECTION INNER JOIN (YP INNER JOIN YPSECTION ON YP.ID = YPSECTION.ID) ON SECTION.SECTIONID = YPSECTION.SECTIONID
WHERE (((SECTION.SECTIONID)=[?SectionID]))
WITH OWNERACCESS OPTION;
...
Рейтинг: 0 / 0
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Событие OnChange / 5 сообщений из 5, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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