powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Событие OnChange
5 сообщений из 5, страница 1 из 1
Событие OnChange
    #32315791
Bukovka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
У меня есть три таблицы: YP с полями ID, Name, Section с полями SectionID, Name и таблица-связка YPSection с полями ID, SectionID.
На форме есть combobox для выбора секций. Надо выдавать все YP.Name, которые есть в данной секции. Как это организовать?
...
Рейтинг: 0 / 0
Событие OnChange
    #32315857
Фотография Лох Позорный
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Форма в каком виде - обычная, ленточная, табличная?
...
Рейтинг: 0 / 0
Событие OnChange
    #32315859
Bukovka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
форма ленточная
...
Рейтинг: 0 / 0
Событие OnChange
    #32315869
Фотография Лох Позорный
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
На событии 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
Событие OnChange
    #32315947
Bukovka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Я делаю так
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
5 сообщений из 5, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Событие OnChange
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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