Поле со сложным выпадающим списком.
ambi
Дата: 24.11.2009 11:28:12
Есть список полей A, B, C, нужно, чтоб по каждому из этих значений открывался свой список. A1.A2,A3 и т.д. Можно ли все это сделать в пределах одного поля? (То есть что-то вроде выпадающих списков меню программ)
Можно ли все это сделать в одном поле или надо создавать временные таблицы и кнопки?
mds_world
Дата: 24.11.2009 11:33:34
TreeView не подойдет? Из описания - классическое дерево.
как вариант
Дата: 24.11.2009 11:51:17
? связанные списки
ambi
Дата: 24.11.2009 14:56:46
to mds_world
Tree view это что? Active X control?
Я нашла такой вот код, связанный с этим Tree View
Option Explicit
Option Compare Database
Dim sFieldValues As String
Private Sub Form_Load()
'Heading Column titles
sFieldValues = "ParentId;CategoryId, Title;"
Call LoadCategory(0)
lbxCategory.RowSourceType = "Value List"
lbxCategory.RowSource = sFieldValues
lbxCategory.ColumnCount = 3
lbxCategory.ColumnHeads = True
End Sub
Private Sub LoadCategory(sId)
Dim rs As Object
Dim sql
Dim sNewId
'Check for the bottom of the tree
If IsNull(sId) Then
Exit Sub
End If
sql = "select * from category where parentid=0" '& sId
Set rs = CurrentDb().OpenRecordset(sql)
Do While Not rs.EOF
sFieldValues = sFieldValues & sId & ";" & rs("categoryid") & ";" & rs("title") & ";"
'Recursive call to check for children
Call LoadCategory(rs("categoryid"))
rs.MoveNext
Loop
If Not rs Is Nothing Then
rs.Close
End If
Set rs = Nothing
End Sub
Пытаюсь разобраться, если есть источник получше передайте, буду очень благодарна.
to gest
Что касается связанных списков, Имеется ли ввиду, что при выборе элемента из одного списка, будет обновляться список элементов в другом поле? Если да, то это можно использовать только в том случае если в одном поле сделать многоуровневый список не получится, если Вы имели ввиду что-то другое, то пожалуйста, объясните или дайте ссылку))
Khabibula
Дата: 07.05.2012 20:30:03
ambi,
привет всем, а можно ли реализовать многоуровневый список (я думал автор это хотел сказать).
уже 5 часов мучаюсь это реализовать ничего не получается.
помогите друзья...
во вложении пример. Никак не выходит привязать третий список. Но хочется добавить четвертый.
и думаю на этом остановлюсь :)
Программист-Любитель
Дата: 07.05.2012 21:48:30
На событие AfterUpdate ведущего списка формируете RowSource ведомого списка. Тока про макросы мало кто подскжет - не я, точно.
khabibula
Дата: 07.05.2012 23:13:21
Программист-Любитель,
ну там есть и второй вариант на VBA. подскажи если знаешь.... очень нужно реализовать трех-четырех уровневую иерархию выпадающего списка
alvk
Дата: 08.05.2012 00:59:39
Программист-Любитель
Дата: 08.05.2012 11:39:12
khabibula |
---|
ну там есть и второй вариант на VBA. подскажи если знаешь.... очень нужно реализовать трех-четырех уровневую иерархию выпадающего списка |
Не вижу препятствий!
Khabibula
Дата: 08.05.2012 12:49:02
Программист-Любитель,
покажи как сделать...