Кто подскажет как лучше сделать следующее:
На форме "Rentals" есть субформа "SubAssets", с таблицей. На главной форме есть текстбокс "Rental_DeviceID", который показывает ключевой номер прибора, который сдаётся в аренду. В субформе таблица ключевых номеров приборов, которые содержатся в сдаваемом в аренду приборе. То есть при сдаче в аренду определённого прибора, сдаются автоматически все находящиеся в нём.
Основная проблема в том, что не знаю как лучше это сделать. У меня 2 варианта:
1. создать событие кнопки с командой SQL типа: INSERT INTO RentalStatus(SubAsset, данные главной формы, .......) SELECT (запрос ключей субформы из базы данных)

2. создать функцию WHILE(), которая считывает ключи из СубФормы и вносит их построчно вместе с остальными данными главной формы(фирма, дата сдачи, дата возврата, итд) в таблицу RentalStatus.

Кто мне посоветует, как лучше создать такую функцию?

Создал я тут одну функцию и она работает хорошо, но без дополнительных аттрибутов таблицы(CompanyID, RentBegin, RentEnd, Comments), только с Asset.

CurrentProject.Connection.Execute "INSERT INTO RentStatus (Asset, CompanyID, RentBegin, RentEnd, Comments)" _
& "SELECT DISTINCT c1.SubAsset " _
& "FROM Container AS c1 " _
& "WHERE c1.MainAsset=" & Rental_DeviceID & "" _
& "UNION " _
& "SELECT DISTINCT c3.SubAsset " _
& "FROM Container AS c2 RIGHT OUTER JOIN Container AS c3 ON c2.SubAsset=c3.MainAsset " _
& "WHERE c2.MainAsset=" & Rental_DeviceID & ""

Пробую вместо этих аттрибутов вставить контролы формы типа:
" & Me![Combo_CompanyID] & " вместо CompanyID итд, но постоянно ошибка выскакивает. Можно ли в списке аттрибутов использовать элементы формы?