Sub Click(Source As Button)
On Error Goto Handler ' Если будет ошибка в работе - перейдет на обработчик ошибок
Dim sess As New NotesSession ' Это можно делать сразу так.
Dim db As NotesDatabase
Dim sview As NotesView
Dim sdoc As NotesDocument
Dim rdoc As NotesDocument
Dim line1 As String ,lineAll As String
Set db = sess.CurrentDatabase
Set sview = db.GetView("Dolgi")
If sview Is Nothing Then Error 5007, "Не найдено представление: Dolgi" ' Если представления нет - лучше об этом знать
Call sview.Refresh ' обновим данные в представлении
If sview.EntryCount < 1 Then ' Если нет данных, зачем дальше работать?
Msgbox "Нет данных для отчета.",64
Exit Sub
End If
sView.AutoUpdate = False ' Отключаем автообновление представления на время создание отчета
Set sdoc = sview.GetFirstDocument
line1 = ""
lineAll = ""
Set rDoc = db.CreateDocument ' Создаем документ отчета
Call rDoc.ReplaceItemValue("Form","Отчет") ' Прописываем форму
Do While Not sdoc Is Nothing
' лчно я не очень люблю прямой доступ к полям, предпочитаю GetItemValue. Сроки объединяю всегда через &.
line1 = line1 & sdoc.GetItemValue("ToDate")(0) & " " & line1 & sdoc.GetItemValue("Year")(0) & "-" & sdoc.GetItemValue("RegNum")(0) & sdoc.GetItemValue("Lit")(0) & " " & sdoc.GetItemValue("ToName")(0) & Chr(10)
lineAll = lineAll & line1
line1 = ""
Set sdoc = sview.GetNextDocument(sdoc)
Loop
' Print lineAll
Call rDoc.ReplaceItemValue("clist",lineAll) ' Записываем в отчет результаты
sView.AutoUpdate = True ' возвращаем автообновление вьюхи
Call rDoc.ComputeWithForm(False,False) ' Пересчитаем отчет по форме.
Dim ws As New NotesUIWorkspace
Call ws.EditDocument(True,rDoc) ' Открываем отчет на редактирование
Exit Sub
handler:
' Простейший обработчик ошибок
Msgbox "Error:" & Error$ & Chr(10) & Chr(13) & " in line:" & Erl,16
If Not sview Is Nothing Then sView.AutoUpdate = True ' Это чтобы вернуть автообновление при ошибке.
Resume endh
endh:
End Sub
?!