Функция возвращает пустой Notesdocument

[fedotxxl]

Вот такая простая функция

Function createRequest() As NotesDocument
Dim ns As New NotesSession
Dim MIISdb As NotesDatabase
Dim MIISdoc As NotesDocument
Set MIISdb = getMIISdb
Set MIISdoc = MIISdb.CreateDocument

Set createRequest = MIISdoc
Exit Function
ErrLab:
Print Chr(10) + "Error #" + Cstr(Err) + " in " + Cstr(Getthreadinfo(1)) + "(" + Cstr(Erl) + ") : " + Error$ 
Exit Function
End Function

ничего не возвращает, если в вызывающей её функции нет объекта базы данных, в котором функция createRequest создает документ... Объект может называться как угодно, главное чтобы он существовал

Просто нет слов

/Moderated By Morpheus/ Подправил название топика. Усно предупреждаю не надо пладить темы с безсмысленными названиями типа "хэлп" или "шо за фигня"

 

[Medevic]

Только недавно же обсуждалось...

link removed

 

[Omh]

Байан канаццкий.

 

[morpheus]

ЗАКРЫВАЮ ибо гармонь, и народ начал флудить