Создание записей

[Sayonara]

Всём, здрасти! У меня такой головняк уже 2-ой день, шеф сказал написать базёнку, но всё хорошо, всё отлично, если бы не одно, но.... Пользователь за один подход к базе, должен будет создать до 150 доков, в той реализации, которую я написал, а это естественно неприемлемио.. Вот мне и пришла в голову мысль, что неплохо бы было, чтобы Лотус сам заполнял всё за юзера.
Смысл таков, юзер открывает форму, заполяет поля и каким-нибудь способом отмечает даты (или интервал дат) в которых необходимо разместить её же (продублировать эту запись). Может кто сможет подсказать мне в этой проблеме?

 

[Domino6]

<!--QuoteBegin-Sayonara+9:02:2006, 01:51 -->
<span class="vbquote">(Sayonara @ 9:02:2006, 01:51 )</span><!--QuoteEBegin-->Может кто сможет подсказать мне в этой проблеме?

[snapback]30350" rel="nofollow" target="_blank[/snapback]​

[/quote]
Сделай малтивалью поле для даты

 

[nor]

Так собственно в чем сложность или загвоздка заключается?

 

[Guest]

Можно заполнить все поля в доке, а потом документ скопировать, чтобы не заполнять еще раз уже заполненное.

 Sub Click(Source As Button)
Dim ws As New NotesUIWorkspace
Dim s As New NotesSession
Dim db As NotesUIDatabase
Dim currdoc As NotesDocument, doc1 As NotesDocument
Dim uicurrdoc As NotesuiDocument, uidoc1 As NotesuiDocument	
Dim coll As NotesDocumentCollection	

Set db = ws.CurrentDatabase
Set doc1 = New NotesDocument(db.Database)
Set currdoc = ws.currentdocument.Document
Set uicurrdoc = ws.currentdocument	
Call currdoc.Copyallitems( doc1 )
Call doc1.Save( True, True )
Call ws.EditDocument(True,doc1,False,"",uidoc1)
Call uicurrdoc.Close
Call ws.currentdocument.Save
Set uidoc1 = ws.currentdocument	
End Sub