Заполнить Checkbox

[wowa]

Подскажите, мне нужно при открытии формы из Оутлайна чтобы во всем Checkbox'е стояли галочки....
Вот мой код

Sub Postopen(Source As Notesuidocument)
Dim s 					 As New NotesSession	
Dim vwecCollection 	 As NotesViewEntryCollection
Dim doc 		 As NotesDocument
Dim wks 		 As NotesUIWorkspace

Set wks = New NotesUIWorkspace
Set db = s.CurrentDatabase
Set uidocCurrent = wks.CurrentDocument
Set doc = uidocCurrent.Document	

Call doc.ReplaceItemValue("LEA_SD_TypeSearch_TX", "тут названия галочек")
Call uidocCurrent.Refresh()
End Sub

Вообщем, если просто запускать форму, то галочки ставятся
А если через Outline, то выскакивает ошибка(Эту ошибку я как-то раньше исправил, но потом из-за чего-то она появилась)
Ошибка: Object variable not set
Насколько я проверял, то uidocCurrent не пуст , а пуст DOC
Подскажите. что нужно исправить!

 

[fvoice]

посмотри тут