| |
|
|
| | в предыдущей теме я спарвшивал как создать сразу несколько записей с номером в диапазоне
от ... до ..... СПАСИБО огромное за помощь, разобрался.
вот тот код
Set rs = CurrentDB.OpenRecordset("Таблица")
For i = 200 To 750
rs.AddNew
rs![Код] = i
rs.Update
Next
|
Но споткнулся дальше еще на одной проблеме.
Данные добавляются в таблицу БСО_реестр
Set rs = db.OpenRecordset("БСО_реестр")
|
В таблице есть поле КОД - счетчик, и поэтому полю происходит связь один ко многим с таблицей БСО_история.
На форме есть поля, данные с которых записываются в разные таблицы.
Так вот как сделать, чтобы данные записывались так же заданным диапазоном (то есть по несколько сразу), но в обе таблицы сразу в соответствующие поля?
вот сюда:
Set rs = db.OpenRecordset("БСО_история")
|
Когда делаешь по одной записи все получается...
Буду рад любой помощи ) | |
| |
| |
| |
|
|
| | 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 | |
| |
| |
