| |
|
|
| | Здравствуйте!
Имеется таблица helper, в которой 2 столбца section и subsection. Там что-то типа:
наука, математика
наука, физика
наука, химия
спорт, футбол
спорт, баскетбол
спорт, волейбол
финансы, валюты
финансы, статистика
финансы, индексы
Имеется форма, в которой два поля со списком Раздел и Подраздел
Источник строк для поля Раздел определил запросом
SELECT DISTINCT section FROM helper
Далее нужно, чтобы при выборе элемента поля Раздел автоматически изменялся источник поля Подраздел. Например, если выберу раздел спорт, чтоб в списке Подраздел были только футбол, баскетбол, волейбол.
Понимаю, что в Источнике строк Подраздела надо написать что-то типа
SELECT DISTINCT subsection FROM helper WHERE section=...
или в
Private Sub shop_title_Change()
????
End Sub
Помогите! Очень нужно!
Заранее благодарен! | |
| |
| |
| |
|
|
| | если сделаете две таблички section, subsection
и свяжите их по ключевому полю, то все решится само собой | |
| |
| |
| |
|
|
| | 1. Создал таблицу helper_section со столбцом section (ключевое поле)
2. Создал таблицу helper_subsection со столбцами section и subsection
3. В Схеме данных связал helper_section.section и helper_subsection.section отношением "один-ко-многим".
В форме:
1. для поля Раздел указал источником строк helper_section
2. для поля Подраздел указал SELECT DISTINCT [subsection] FROM helper_kassa_subsection;
Подскажите что еще нужно сделать, пожалуйста. | |
| |
| |
| |
|
|
| | SELECT [helper_subsection.subsection ] FROM helper_subsection WHERE helper_subsection.section = " & me.ПолеСоСписком.Value ; | |
| |
| |
| |
|
|
| | Где тут кавычки открываются и где закрываются-то? | |
| |
| |
| |
|
|
| | Данный код вешаете в качестве источника строк второго комбобокса на событие after_update первого комбобокса в коде VBA. В данном случае кавычки закрывать не обязательно. | |
| |
| |
| |
|
|
| | Наконец-то я для себя решил эту проблемку
Private Sub cmbSection_AfterUpdate()
cmbSubsection.RowSource = "SELECT [helper_subsection.subsection ] FROM helper_subsection WHERE helper_subsection.section = '" & Me.cmbSection.Value & "'"
End Sub
|
| |
| |
| |
