Заполнить Checkbox

Тема в разделе "Lotus - Программирование", создана пользователем wowa, 12 сен 2007.

  1. wowa

    wowa Well-Known Member

    Регистрация:
    1 фев 2007
    Сообщения:
    842
    Симпатии:
    0
    Подскажите, мне нужно при открытии формы из Оутлайна чтобы во всем Checkbox'е стояли галочки....
    Вот мой код
    Код (Text):
    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
    Подскажите. что нужно исправить!
     
  2. fvoice

    fvoice Гость

Загрузка...

Поделиться этой страницей