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