ник: Анатолий (Киев)
Set rs = CurrentDB.OpenRecordset("БСО_реестр")
Set rs2 = CurrentDB.OpenRecordset("БСО_история")
For i = 200 To 750
rs.AddNew
rs![Номер] = i
ID = rs![Код]
rs.Update
rs2.AddNew
rs2![СвязьКод] = ID
rs2![Поле2] = Me![Поле2Формы]
rs2![Поле3] = Me![Поле3Формы]
rs2.Update
Next