Заполнить Checkbox

wowa

Well-known member
01.02.2007
845
0
#1
Подскажите, мне нужно при открытии формы из Оутлайна чтобы во всем 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
Подскажите. что нужно исправить!