Создание нового документа

[ivashkalotus]

Создаю новый документ и хочу его заполнить:

Sub Click(Source As Button)
Dim session As New NotesSession
Dim view As NotesView
Dim d1 As NotesDocument
Dim db As NotesDatabase
Dim ws As New NotesUIWorkspace

Set db = session.CurrentDatabase
Set d1 = New NotesDocument( db )

Call d1.Save( True, True )

Call ws.EditDocument( True, d1 )
Call ws.ViewRefresh 
End Sub

Если нет в базе дефоултной формы, то созданный документ не хочет открываться.
Сделать какую-нибудь форму дефолтной не проблема, но если я захочу создать документ по другой форме?
Помогите, может у документа есть свойство Form, в котором записано какой формой его открывать?

 

[Guest]

Есть свойство Form.
См. в хелпе примеры для класса NotesDocument.

 

[ivashkalotus]

<!--QuoteBegin-Юлия+28:03:2006, 14:58 -->
<span class="vbquote">(Юлия @ 28:03:2006, 14:58 )</span><!--QuoteEBegin-->Есть свойство Form.

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

[/quote]
Странное поле , среди списка полей документа его нет, по нажатию точки после имени документа выбрать его то же нельзя.
А в примере оно используется :blink:
И все равно у меня не работает, пишу

Set d1.Form="book"

, предварительно удалив дефолтную форму и мне выдает ошибку.

P.S. Форму назвал правильно: book.

 

[Guest]

Set не нужно. Это для инициализации объектов.

 

[ivashkalotus]

Спасибо, заработало.
А что по поводу:
<!--QuoteBegin-ivashkalotus+28:03:2006, 15:14 -->
<span class="vbquote">(ivashkalotus @ 28:03:2006, 15:14 )</span><!--QuoteEBegin-->Странное поле , среди списка полей документа его нет, по нажатию точки после имени документа выбрать его то же нельзя.
А в примере оно используется 

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

[/quote]