1. Наш канал codeby в telegram. Пишем об информационной безопасности, методах защиты информации, о программировании. Не пропускай новости с кодебай, будь в тренде ! Подробнее ...

    Скрыть объявление

Заполнить Checkbox

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

  1. wowa

    wowa Well-Known Member

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

    fvoice Гость

    Репутация:
    0
Загрузка...

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