align="justify"> rstCurrent=CurrentDb. OpenRecordset («Тип користувача») rst=dbs. OpenRecordset («Тип користувача»)
'Переписуємо всі записи з поточної таблиці «Тип користувача»
With rstCurrentWhile Not rst.EOF=«PrimaryKey» «=», Val (rst. Fields («Код типу користувача»). Value)
If. NoMatch Then
! [Код типу користувача]=rst. Fields («Код типу користувача»). Value
! [Найменування типу]=rst. Fields («Найменування типу»). Value
Update =. LastModifiedIf. MoveNext. Close
Set rstCurrent=CurrentDb. OpenRecordset («Користувач») rst=dbs. OpenRecordset («Користувач»)
'Переписуємо всі записи з поточної таблиці «Користувач»
With rstCurrentWhile Not rst.EOF=«PrimaryKey» «=», Val (rst. Fields («Код користувача»). Value). NoMatch Then
! [Код користувача]=rst. Fields («Код користувача»). Value
! [Ключ користувача]=rst. Fields («Ключ користувача»). Value
! [П.І.Б.]=rst. Fields («П.І.Б.»). Value
! [Тип користувача]=rst. Fields («Тип користувача»). Value
Update =. LastModifiedIf. MoveNext. CloseWith
rstCurrent=CurrentDb. OpenRecordset («Група користувачів»)
Set rst=dbs. OpenRecordset («Група користувачів»)
'Переписуємо всі записи з поточної таблиці «Група користувачів»
With rstCurrentWhile Not rst.EOF=«PrimaryKey» «=», Val (rst. Fields («Код групи»). Value). NoMatch Then
! [Код групи]=rst. Fields («Код групи»). Value
! [Назва групи]=rst. Fields («Назва групи»). Value
Update =. LastModifiedIf. MoveNext. CloseWith
rstCurrent=CurrentDb. OpenRecordset («Список групи») rst=dbs. OpenRecordset («Список групи»)
'Переписуємо всі записи з поточної таблиці «Список групи»
With rstCurrentWhile Not rst.EOF=«PrimaryKey» «=», Val (rst. Fields («Код групи»). Value). NoMatch Then
! [Код групи]=rst. Fields («Код групи»). Value
! [Код користувача]=rst. Fields («Код користувача»). Value
Update =. LastModifiedIf. MoveNext. CloseWith
rstCurrent=CurrentDb. OpenRecordset («Відправник»)
'Прочитуємо код користувача з таблиці «Відправник»
With rstCurrent =! [Код користувача] With
=«SELECT Документ. *» + _
«FROM Користувач, Документ, [Список групи]» + _
«WHERE (Документ. Група=[Список групи]. [Код групи]) And» + _
«([Список групи]. [Код користувача]=Користувач. [Код користувача]) And» + _
«(Пользователь. [Код користувача] =» + CStr (UserNum) + »);»
Set rstCurrent=CurrentDb. OpenRecordset («Документ») rst=dbs. OpenRecordset (QuerySQL)
'Переписуємо всі записи групових документів в таблицю «Документ»
With rstCurrentWhile Not rst.EOF=«PrimaryKey» «=», Val (rst. Fields («Код документа»). V...
