Форум программистов, компьютерный форум, киберфорум
HCL Notes (Lotus Notes/Domino)
Войти
Регистрация
Восстановить пароль
 
0 / 0 / 2
Регистрация: 08.11.2011
Сообщений: 21
1

Ошибка во время обработки агентом выбранных документов (документов -ответов) из представления "object variable not set"

11.09.2018, 16:37. Просмотров 1046. Ответов 0
Метки нет (Все метки)

Всем привет, возможно моя проблема имеет тривиальное решение. Но для меня она пока не разрешима (в лотусе недавно и вообще это не моя основная обязанность)

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

Проблема в том что после обработки первого же документа и его документов ответов, появляется сообщение об ошибке «object variable not set». Происходит это после обработки последнего документа ответа (вероятно на строчке ).

Visual Basic
1
while not(responceDoc is Nothing)
Visual Basic
1
2
3
4
5
6
7
Dim CurrSes as NotesSession
Dim CurrDb as NotesDatabase
Dim view as NotesView
Dim unprocessCollection as NotesDocumentCollection
Dim Resps as NotesDocumentCollection
Dim responceDoc as NotesDocument
Dim currDoc as NotesDocument
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
Sub Initialize
    Dim ErrCount as Integer
    
    Set CurrSes = new NotesSession
    Set CurrDb = CurrSes.CurrentDatabase
    Set unprocessCollection = CurrDb.UnprocessedDocuments
    ErrCount = 0
    Set CurrDoc = unprocessCollection.GetFirstDocument
    while not(CurrDoc is Nothing)
        'Анкеты
        if not CurrDoc.IsResponse then 
            if not(CurrDoc.Learn(0) = "Академический отпуск") then       
                CurrDoc.Learn = "Окончил"
                CurrDoc.Process = "Окончил"
                if not CurrDoc.Save(True,False,True) then
                    ErrCount = ErrCount+1
                end if
                Set Resps = CurrDoc.Responses
                MessageBox "1"
                if Resps.Count >0 then
                    Set responceDoc = Resps.GetFirstDocument
                    MessageBox "2"
                    while not(responceDoc is Nothing)   
                        responceDoc.Learn = "Окончил"
                        MessageBox "3"
                        if not responceDoc.Save(True,False,True) then
                            ErrCount = ErrCount+1
                        end if
                        MessageBox "4"
                        Set responceDoc = Resps.GetNextDocument(responceDoc)
                        MessageBox "5"
                    wend
                    MessageBox "6"
                end if
                'delete Resps
            end if
        end if
 
        Set CurrDoc = view.GetNextDocument(CurrDoc)
    wend
    
    if ErrCount>0 then
        MessageBox "Не сохранено" & ErrCount & " документов" ,4144,"Внимание"
    end if
    
    'Call view.Refresh
End Sub
Вероятно причина в том что как-то модифицируется коллекция UnprocessedDocuments, после обработки каждого из документов. Подскажите как правильно можно реализовать данный функционал.

Пробовал копировать коллекцию UnprocessedDocuments через метод Clone() и работать с ними (ради интереса) – та же ошибка

Добавлено через 1 час 55 минут
ЛОХ......

Закрывайте тему
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
11.09.2018, 16:37
Ответы с готовыми решениями:

Ошибка "object variable or With block variable not set" при попытке обращения к форме. VBA Access 7.0.
Добрый день. Данный код Dim frm As Form Set frm = Form_frmAdd_EditWareList ...

Ошибка при закрытии макроса с диаграммой "Object variable or With block variable not set"
Здравствуйте. Я только начал изучать VBA поэтому не закидывайте помидорами :black_eye.: В общем,...

ошибка "Run-time error '91': Object variable or With block variable not set"
приветствую! имеется документ на нескольких листах, заполняется по дням соответственно на многих...

Работа с БД MS Access и ошибка "object variable or with block variable not set"
В источниках данных ODBC есть такая штука "База данных MS Access", и назначена ей база "D:\БД...

0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
11.09.2018, 16:37

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Вылетает ошибка "Object variable or With block variable not set"
Всем привет! Вот такой код. Вылетает ошибка "Object variable or With block variable not set" -...

"Object variable or With block variable not set "
Всем доброго дня !! Sub oop() Dim ra As Range ra = Range("A239:A255") For Each Cell In ra...

В момент закрытия формы выводится сообщение "Run-time error '91' Object variable or With-block not set"
Программа запускается - работает - выводит форму. Потом нажимаю крестик на форме (типа закрываю...

WPF MP3 Player и ошибка "Object reference not set to an instance of an object"
Доброго времени суток. Пишу простой проигрыватель mp3 и столкнулся с следующей проблемой: при...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.