исок групи»
With rstWhile Not.EOFWith
rst=dbs. OpenRecordset («Група користувачів»)
'Видаляємо всі записи з таблиці «Група користувачів»
With rstWhile Not.EOFWith
rst=dbs. OpenRecordset («Користувач»)
'Видаляємо всі записи з таблиці «Користувач»
With rstWhile Not.EOFWith
rst=dbs. OpenRecordset («Тип користувача»)
'Видаляємо всі записи з таблиці «Тип користувача»
With rstWhile Not.EOFWith
rstCurrent=CurrentDb. OpenRecordset («Тип користувача») rst=dbs. OpenRecordset («Тип користувача»)
'Переписуємо всі записи з поточної таблиці «Тип користувача»
With rstWhile Not rstCurrent.EOF
! [Код типу користувача]=rstCurrent. Fields («Код типу користувача»). Value
! [Найменування типу]=rstCurrent. Fields («Найменування типу»). Value
Update =. LastModified. MoveNext. Close. CloseWith
rstCurrent=CurrentDb. OpenRecordset («Користувач») rst=dbs. OpenRecordset («Користувач»)
'Переписуємо всі записи з поточної таблиці «Користувач»
With rstWhile Not rstCurrent.EOF
AddNew
! [Код користувача]=rstCurrent. Fields («Код користувача»). Value
If rstCurrent. Fields («Код користувача»). Value=UserNum. Value Then
! [Ключ користувача]=rstCurrent. Fields («Ключ користувача»). ValueIf
! [П.І.Б.]=rstCurrent. Fields («П.І.Б.»). Value
! [Тип користувача]=rstCurrent. Fields («Тип користувача»). Value
Update =. LastModified. MoveNext. Close. CloseWith
rstCurrent=CurrentDb. OpenRecordset («Група користувачів»)
Set rst=dbs. OpenRecordset («Група користувачів»)
'Переписуємо всі записи з поточної таблиці «Група користувачів»
With rstWhile Not rstCurrent.EOF
! [Код групи]=rstCurrent. Fields («Код групи»). Value
! [Назва групи]=rstCurrent. Fields («Назва групи»). Value
Update =. LastModified. MoveNext. Close. CloseWith
rstCurrent=CurrentDb. OpenRecordset («Список групи») rst=dbs. OpenRecordset («Список групи»)
'Переписуємо всі записи з поточної таблиці «Список групи»
With rstWhile Not rstCurrent.EOF
! [Код групи]=rstCurrent. Fields («Код групи»). Value
! [Код користувача]=rstCurrent. Fields («Код користувача»). Value
Update =. LastModified. MoveNext. Close. CloseWith
rst=dbs. OpenRecordset («Відправник»)
'Додаємо код користувача в таблицю «Відправник» rst
! [Код користувача]=UserNum. Value =. LastModifiedWith
QuerySQL=«SELECT Документ. *» + _
«FROM Користувач, Документ, [Список групи]» + _
