всем привет! кто подскажет откопал такой код
а он коприует все документы из базы. а мне надо что бы копировался те документы который я выделил во вюхе. и после коприования удалил из текущей базы
Dim nArchDb As New NotesDatabase("arch","arch.nsf")
Dim nSs As New NotesSession
Dim nDb As NotesDatabase
Dim nDoc As NotesDocument
Dim nDocColl As NotesDocumentCollection
Set nDb = nSs.CurrentDatabase
Formula1$={Form="RabDoc"| @AllChildren }'условия отбора
Set nDocColl = nDb.Search(Formula1$,Nothing,0)
Set nDoc = nDocColl.GetFirstDocument
While Not(nDoc Is Nothing)
Call nDoc.CopyToDatabase(nArchDb)
Set nDoc = nDocColl.GetNextDocument(nDoc)
Wend
а он коприует все документы из базы. а мне надо что бы копировался те документы который я выделил во вюхе. и после коприования удалил из текущей базы
Dim nArchDb As New NotesDatabase("arch","arch.nsf")
Dim nSs As New NotesSession
Dim nDb As NotesDatabase
Dim nDoc As NotesDocument
Dim nDocColl As NotesDocumentCollection
Set nDb = nSs.CurrentDatabase
Formula1$={Form="RabDoc"| @AllChildren }'условия отбора
Set nDocColl = nDb.Search(Formula1$,Nothing,0)
Set nDoc = nDocColl.GetFirstDocument
While Not(nDoc Is Nothing)
Call nDoc.CopyToDatabase(nArchDb)
Set nDoc = nDocColl.GetNextDocument(nDoc)
Wend