Поле со списком

[Diamand]

Здравствуйте.

проблема такова, как сделать в выпадающем списке имена таблиц и при выборе чтобы показывались их поля и значения (все) с возможностью редактирования , пробывал запросом но не катит нужно чтобы значения полей редактировались (добавлять,удалять,изменять ).

на форме

пример обрезанной бд ниже.

[Diamand]

ок. 1. пошёл другим путём создал доп. таблицу и ввёл в неё значения ток что то опять не получилось при выборе значения из списка должна открываться таблица но выдаёт ошибку Else without if при выборе значения

вот код :

Private Sub ПолеСоСписком0_AfterUpdate()
If ПолеСоСписком0 = 1 Then DoCmd.OpenTable "Белая офисная бумага", acViewNormal, acEdit
Else
If ПолеСоСписком0 = 2 Then DoCmd.OpenTable "Цветная офисная бумага", acViewNormal, acEdit
End If
End If
End Sub

хотя если удалить

Else
If ПолеСоСписком0 = 2 Then DoCmd.OpenTable "Цветная офисная бумага", acViewNormal, acEdit
End If
End If

то при выборе значения 1 всё раб таблица открывается

2. как организовать выбор выбор текстового варианта например место

If ПолеСоСписком0 = 2

допустим

If ПолеСоСписком0 = бумага

сама бд ниже


помогите пожалуйста

[Diamand]

первый пункт уже не актуален

помогите со 2ым

2. как организовать выбор выбор текстового варианта

[Teslenko_EA]

Здравствуйте Diamand.
"..запросом..не катит нужно чтобы значения полей редактировались.." - а почему Вы решили, что это не возможно?
Ветвление If.. может быть не вложенным, а многоступенчатым

Private Sub ПолеСоСписком0_AfterUpdate()
Const T1 = "Белая офисная бумага", T2 = "Цветная офисная бумага"
Dim s$
If ПолеСоСписком0 = 1 Then
    s = T1
ElseIf ПолеСоСписком0 = 2 Then
    s = T2
'ElseIf ... Then
    '...
'Else
    '...
End If
If Len(s) > 0 Then DoCmd.OpenTable s, acViewNormal, acEdit
End Sub

сравнение с текстовым значением может выполняться так же, только значение Присоединенного столбца в поле со списком должно быть текстовым.
Евгений.

[Diamand]

спасибо Евгений за внимание ваш способ понятен но сделал по другому но похожим методом