Вызов процедуры!

DNT

Постоялец форума
Lotus team
12.10.2005
590
7
#1
Есть библиотека "MainLib".
В ней процедура "Sub LogWriteSave (sr As Notesdocument, Action As String)"
Процедуру вызываю из события формы - всё ОК.

Затык в следующем - в "Общей программе БД" на событие Querydocumentdelete пишу код:

....
Dim doc As NotesDocument
...
For i = 1 To collection.Count
Set doc = collection.GetNthDocument(i)
Call LogWriteSave(doc,"Отмена удаления")
Next
....

Ошибка: Type mismath on: DOC

Почему???? Может где-то нужно дополнительно что-то объявить?
Спасибо.
 
D

Domino6

Гость
#2
<!--QuoteBegin-DNT+30:01:2006, 13:20 -->
<span class="vbquote">(DNT @ 30:01:2006, 13:20 )</span><!--QuoteEBegin-->Set doc = collection.GetNthDocument(i)
[snapback]29920" rel="nofollow" target="_blank[/snapback]​

проверка на пусто документа[/quote]
if NOT(doc is Nothing) then
Call LogWriteSave(doc,"Отмена удаления")
end if
И заодно посмотри может в "doc" какая-то буква русская "о" или "с"