ник: Lukas
Создаем запрос в конструкторе запросов:
INSERT INTO tblName (имена полей через запятую) SELECT ..поля которые нам нужны через запятую...FROM tbl2Name WHERE ID=Forms![Имя формы]![ListName]
|
Сохраняем запрос. Остается его выполнить на двойной клик по списку:
Private Sub List_DblClick(Cancel As Integer)
Либо DoCmd.RunSQL ИмяЗапроса
либо CurrentDb.Execute ИмяЗапроса
End Sub
|