Заполнение таблиц с со связью "Один ко многим"

[DenProx]

Доброго времени суток. У меня такой вопрос: на форме лежат два контрола "ПолеСоСписком" первый берет данные из таблицы 1:
ID - счетчик
Part - Текст

Второй контрол берет данные из таблицы 2:
ID - счетчик
PartID - код раздела
Theme - текст

И заполняется с выборкой... т.е. заносятся только те данные которые относятся к выбранному разделу в первом контроле.

Каждый контрол имеет кнопки "Добавить" и "Удалить"... с первым контролом проблем нет... добавляю в него так:

Private Sub btnAddPart_Click()
Dim rst As Recordset
 
Set rst = CurrentDb.OpenRecordset("Parts", dbOpenDynaset)
rst.AddNew
 
rst!Part = PartSp.Value
 
rst.Update
rst.Close
 
PartSp.Requery
 
End Sub

Удаляю так:

Private Sub btnDelPart_Click()
Dim rst As Recordset
 
Set rst = CurrentDb.OpenRecordset("Select Parts.* From Parts Where Part='" & Me!PartSp.Value & "'", dbOpenDynaset)
rst.Delete
 
MsgBox ("Запись удалена!")
 
PartSp.Value = Null
PartSp.Requery
End Sub

Вопрос в следующем - как добавить в таблицу 2 значение из контрола 2, чтобы она присвоилась разделу выбранному в контроле 1 ... ?

p.s. если что то не понятно, напишите что ))

[Swatch]

так же как Вы добавляете и в первую таблицу только сделать rst!PartID=контрол1.Value.... ну если я правильно понимаю опять же

[DenProx]

Да действительно так... )) правда с небольшим ньюансом, но это уже индивидупльно ко мне относилось... )) спасибо!))