> «WHERE (Документ. Група=[Список групи]. [Код групи]) And» + _
«([Список групи]. [Код користувача]=Користувач. [Код користувача]) And» + _
«(Пользователь. [Код користувача] =» + CStr (UserNum. Value) + »);» rstCurrent=CurrentDb. OpenRecordset (QuerySQL) rst=dbs. OpenRecordset («Документ»)
'Переписуємо всі записи групових документів в таблицю «Документ»
With rstWhile Not rstCurrent.EOF
! [Код документа]=rstCurrent. Fields («Код документа»). Value
! [Дата відправки]=rstCurrent. Fields («Дата відправки»). Value
! [Дата отримання]=rstCurrent. Fields («Дата отримання»). Value
! [Опис документа]=rstCurrent. Fields («Опис документа»). Value
! [Документ]=rstCurrent. Fields («Документ»). Value
! [Відправник]=rstCurrent. Fields («Відправник»). Value
! [Одержувач]=rstCurrent. Fields («Одержувач»). Value
! [Група]=rstCurrent. Fields («Група»). Value =. LastModified. MoveNext. Close. CloseWith
=«SELECT Документ. *» + _
«FROM Користувач, Документ, Користувач AS Пользователь_1» + _
«WHERE (Пользователь_1. [Код користувача]=Документ. Одержувач) And» + _
«(Пользователь. [Код користувача]=Документ. Відправник) And» + _
«(Пользователь_1. [Код користувача] =» + CStr (UserNum. Value) + »);» rstCurrent=CurrentDb. OpenRecordset (QuerySQL) rstTable=CurrentDb. OpenRecordset («Документ») rst=dbs. OpenRecordset («Документ»)
'Переписуємо всі записи особистих документів в таблицю «Документ»
With rstWhile Not rstCurrent.EOF
! [Код документа]=rstCurrent. Fields («Код документа»). Value
! [Дата відправки]=rstCurrent. Fields («Дата відправки»). Value
If IsNull (rstCurrent. Fields («Дата отримання»). Value) Then. Index=«PrimaryKey». Seek «=», Val (rstCurrent. Fields («Код документа»). Value). Edit
rstTable! [Дата отримання]=Now
! [Дата отримання]=rstTable! [Дата отримання]. Update. Bookmark=rstTable. LastModified
! [Дата отримання]=rstCurrent. Fields («Дата отримання»). ValueIf
! [Опис документа]=rstCurrent. Fields («Опис документа»). Value
! [Документ]=rstCurrent. Fields («Документ»). Value
! [Відправник]=rstCurrent. Fields («Відправник»). Value
! [Одержувач]=rstCurrent. Fields («Одержувач»). Value
! [Група]=rstCurrent. Fields («Група»). Value =. LastModified. MoveNext. Close. Close. CloseWith
'Закриваємо базу. Closedbs=Nothing
Sub
Додаток Б
Sub Form_Load () dbs As DAO. Database, rst, rstCurrent, rstTable As DAO. RecordsetQuerySQL As StringUserNum As Long
'Відкриваємо базу адміністратора
Set dbs=DBEngine. OpenDatabase («C: Program Files СЕД kmm.mdb», True)
