заполнение таблицы

[beginner09]

Всем привет!

Есть таблица G и таблица T и форма для заполнения таблицы T на основе данных таблицы G.

Пожалуйста подскажите, как сделать так, чтобы при заполнении таблицы в форме при вводе значения T1 из поля со списком, содержащего значение таблицы G, в ячейку T2 в форму и в таблицу T вносилось соответствующее значение столбца 2 таблицы G. Т.е., если мы вводим в T1 значение из списка G12, то значение T2 равно G22.

Пример этот прилагаю.

Спасибо.

[denis.ta-com]

Можно сделать так...

[beginner09]

Сообщение от denis.ta-com

Можно сделать так...

Большое спасибо!

Буду пробовать перенести ваш пример на свою базу. Мне, конечно, сложно разобраться полностью в коде, который вы прописали - не могу расшифровать некоторые команды, т.к. не знаю, где найти их описание.

Еще, если можно, вопрос: в процедуре обработки событий

Private Sub ПолеСоСписком6_AfterUpdate()

Dim rs As Object

Set rs = Me.Recordset.Clone
rs.FindFirst "[T1] = '" & Me![ПолеСоСписком6] & "'"
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub

ПолеСоСписком6 откуда оно появилось, ведь его в моем примере вроде как нет? И, если поменять, например, на ПолеСоСписком16, то ничего не меняется, все так же работает.

Спасибо.

[Myhaylo]

Можно сделать проще...
У ПолеСоСписком4 я изменил:
1. Закладка "Данные" - свойство "Данные".
2. Закладка "Макет":
- свойство "Число столбцов";
- свойство "Ширина столбцов".

[beginner09]

Сообщение от Myhaylo

Можно сделать проще...
У ПолеСоСписком4 я изменил:
1. Закладка "Данные" - свойство "Данные".
2. Закладка "Макет":
- свойство "Число столбцов";
- свойство "Ширина столбцов".

Большое спасибо, Myhaylo! Элегантное решение.