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

  • Автор темы Sayonara
  • Дата начала
Статус
Закрыто для дальнейших ответов.
S

Sayonara

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

Domino6

#2
<!--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]
Сделай малтивалью поле для даты
 
N
#3
Так собственно в чем сложность или загвоздка заключается?
 
G

Guest

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

Код:
 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
 
Статус
Закрыто для дальнейших ответов.