ник: Анатолий (Киев)
Я бы сделал это на событии AfterUpdate поля "КодКлиента" или на Click кнопки:
Me.Refresh 'Или Me.Dirty = False - сохраняем новую запись
Set RS = CurrentDB.OpenRecordset("SELECT * FROM Товары")
With Me![Подчиненная].Form.RecordsetClone
Do Until RS.EOF
.AddNew
![КодКлиента] = Me!КодКлиента
![КодТовара] = RS![КодТовара]
.Update
RS.MoveNext
Loop
End With