F
fedotxxl
Вот такая простая функция
ничего не возвращает, если в вызывающей её функции нет объекта базы данных, в котором функция createRequest создает документ... Объект может называться как угодно, главное чтобы он существовал
Просто нет слов
/Moderated By Morpheus/ Подправил название топика. Усно предупреждаю не надо пладить темы с безсмысленными названиями типа "хэлп" или "шо за фигня"
Код:
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
Просто нет слов
/Moderated By Morpheus/ Подправил название топика. Усно предупреждаю не надо пладить темы с безсмысленными названиями типа "хэлп" или "шо за фигня"