Мне нужно если документа нет в базе, то выполнить определенные действия. Документ в базе я ищу с помощью :

db.GetDocumentByUNID(strUnid)

Если такой документ есть в базе, то все работает как нужно.

Если его нет, то выводит ошибку и не выполняет остальные действия.

Подскажите, пожалуйста, как мне сделать, чтобы если этого дока нет, то делать ….

if (doc is nothing) then

<твои действия>

end if

Function GetDocByUNID(db As NotesDatabase, doc As NotesDocument, UNID As String) As Boolean
    On Error Goto Errh
    
    GetDocByUNID = False
    
    If db Is Nothing Then Exit Function
    If Trim$(UNID) = "" Then Exit Function
    
    On Error Resume Next
    Set doc = db.GetDocumentByUNID(UNID)
    On Error Goto Errh
    
    If Not doc Is Nothing Then GetDocByUNID = True
    
    Exit Function
Errh:
    Call ErrHandler
    Exit Function
End Function

Для: Sasha*
так, а обработку ошибок Вас никто не учил делать?

Function MY_GetDocByUNID(db As NotesDatabase, sunid As String) As NotesDocument
    On Error Goto err1
         if db is Nothing  Then Exit Function
         if Len( sunid ) = 0 Then Exit Function
    Set MY_GetDocByUNID = Nothing

    Set MY_GetDocByUNID = db.GetDocumentByUNID(sunid)
    If Not MY_GetDocByUNID.IsValid Then Set MY_GetDocByUNID = Nothing
    Exit Function
    
err1:
    Err = 0
    Exit Function
End Function

Для: allex
не прокатить ибо будет ошибка

Оно не успевает зайти в эту проверку. Там где я получаю этот док:

Set doc = db.GetDocumentByUNID(strUnid) - получает ошибку и дальше не идет

Для: Sasha*
используйте отдельную фунцию приведёую мною или Omh

Для: Morpheus
Кстати, у меня раньше было что-то похожее на твоё: ф-ия, которая возвращала NotesDocument.
Потом переделал на Boolean, т.к. таким образом экономиться пару строк в коде.
Хотя, конечно, разница не принципиальная..

Для: Omh
Для Boolean не вижу смысла, т.к. у меня всегда будет

  Dim Doc as NotesDocumnt
  Set Doc MY_GetDocByUNID(db , "UNID")
 if Not MY_GetDocByUNID is Nothing Then ....

А у меня будет

Dim Doc as NotesDocument
If GetDocByUNID(db, Doc, UNID) then
'ПОНЕСЛАСЬ
End if

Т.е. строчка экономиться (IMG:http://forum.codeby.net/style_emoticons/default/smile.gif)

Для: Omh
Ну так можно же

Dim Doc as NotesDocument
if Not (MY_GetDocByUNID(db , "UNID") is Nothing) then 
'ПОНЕСЛАСЬ
End if

(IMG:http://forum.codeby.net/style_emoticons/default/wink.gif)

Не, так низзя.
Где доку присваивается значение ф-ии?

Для: Omh
Ушел пить кофе. (IMG:http://forum.codeby.net/style_emoticons/default/smile.gif)

Для: Medevic
ооо.. карашо что напомнил

Позволю себе добавить... (IMG:http://forum.codeby.net/style_emoticons/default/smile.gif)

итак, первое - очень важное замечание, в контексте данного вопроса не очень важное, но все-же...
если вы выполняете возврат каких-либо объектов нотес (документ, коллекция) всегда нужно чтобы объект БД, если она не текущая, из которой тянется требуемый объект, был инициализирован в вызывающем коде, иначе получите в возвращенном значении "Nothing".
например:

function getDoc1(aParam1 as variant) as notesDocument
dim someDb as notesDatabase

set someDb = getSomeDb
...
set getDoc1 = someDb.getSomeNotesDocument
end function

Sub someSub
dim doc1 as notesDocument

set doc1 = getDoc1(doc1Param1)
end sub

в результате вызова этой функции получим doc1 = nothing, хотя при проходе дебагером, в вызванной функции будет нормально полученный документ.

исправить так:

function getDoc1(aDoc1Db as notesDatabase, aParam1 as variant) as notesDocument
...
set getDoc1 = aDoc1Db.getSomeNotesDocument
end function

Sub someSub
dim someDb as notesDatabase
dim doc1 as notesDocument

set someDb = getSomeDb
set doc1 = getDoc1(someDb, doc1Param1)
end sub

это связанно с тем, что лотус убивая объект БД чистит память под объектами, полученными из этой БД.


А второе замечание к Omh и Morpheus:
а зачем условия проверки переданного параметра-унида документа, если вызов getDocumentByUnid сам выполнит подобную проверку? если даже его и проверять, то проверять бы уже на длинну в 32 символа! (IMG:http://forum.codeby.net/style_emoticons/default/wink.gif)

Для: Akupaka
Это легаси.
Мне нравиться такая проверка вот и оставил (IMG:http://forum.codeby.net/style_emoticons/default/smile.gif)
Хотя понимаю, что лишняя (IMG:http://forum.codeby.net/style_emoticons/default/smile.gif)

Народ, ну вы жжете
GetDocumentByUNID всегда ошибку возвращал. В хелпе написано какую и что с ней делать

Для: Sasha*
Если лень разбираться, как обработать ошибку, то сделайте представление DocumentsByUNID и не ломайте голову. Работать будет чуть-чуть медленее

в продолжение последнего поста рекомендуется использовать NoteID, если конечно он имеется и это будет быстрее всего прочего получать документ..

Кстати, не всегда. Я уже кажется писал об этом. Инода возвращает нулевой документ. На форуме ibm проблема была озвучена. Что с этим делать не понятно.
Поэтому, я как-то больше доверяю представлению с поиском по ключу.

Для: fedotxxl
Вообще, на самом деле не чуть-чуть медленнее будет, а заметно.
Т.к. тока одна только операция взятия view стоит нормально.
Зато всегда будет достоверно незакешированный документ.
Я сам иногда так делаю, точнее раньше делал.

Стабильнее, но медленее.

on error resume next
set doc = db.GetDocumentByUNID(unid)
on error goto 0

Все.. Если есть док-т - он есть, если нет - doc is nothing

Хм... на сколько мне известно, то т.з. "пустой" документ - это документ, к которому пользователь, выполняющий метод, не имеет доступа на уровне Readers-полей.
Т.е. если в документе есть Readers-поле, со значением: "CN=Вася Пупкин/...", а текущий пользователь Петя Васечкин, то вызов метода вернет "полуинициализированный" объект NotesDocument'а (IMG:http://forum.codeby.net/style_emoticons/default/smile.gif)
В таких случаях его можно вычислить, вроде, только по итемах - если массив Items пустой... или =EMPTY, точно не помню...

Для: Akupaka
несовсем.... пустой документ это инвалид, и вычисляетсья он свойством IsValid которое у таких документов False

А вот и нифига...
Если искать док по getDocumentByUNID и пользователь не имеет к нему доступа, то полученный документ будет валидным (IsValid вернет тру (IMG:http://forum.codeby.net/style_emoticons/default/smile.gif) ) там надо проверять на IsEmpty(doc.items)...

мы в таких случаях называем их невалидными (IMG:http://forum.codeby.net/style_emoticons/default/smile.gif) это могут быть окурки документов, к примеру... а пустые - именно валидные, но у которых не доступны остальные свойства...

Сообщение отредактировал Akupaka - 26:01:2008, 10:30

Объясните теперь мне пожалуйста
Всю жизнь писал

if not nd is nothing then

и все было нормально... теперь валиды, инвалиды, пустые айтемы... что это??? Где это нужно?

Для: fedotxxl
ну представте что у вас nd - не Nothing .. Вы щасливо начинаете с ним раблотаьт и бац ... ошибка... из ниоткуда казалось бы

Для: Morpheus
Никогда ещё не встречал такой ситуации...
Как правильно писать-то? Сначала проверять на существований документа, потом на существование айтемов?

Ага сначала на существование, потом на валидность, а потом на наличие итемов...

Для: Всех
Ну помоему, такая куча проверок, это немного черезчур.

Вроде IsEmpty(Doc.Items) будет, если у тебя нет даже прав reader'a на документ?
Или в таком случае он просто не вернётся с помощью GetDocumentByUNID?
А в каком случае Doc.IsValid будет False?

Кстати, именно тут ф-ия возвращающая Boolean начинает рулить, т.к. все проверки можно всунуть именно внутрь ф-ии и снаружи не городить всю кучу If-ов.

Так что ф-ия вида GetDocByUNID(db, doc, UNID) возвращающая boolean - то, что доктор прописал.
Попробуйте - Вам понравиться (IMG:http://forum.codeby.net/style_emoticons/default/smile.gif)

еще NotesDocument.IsDeleted (boolean) нужно проверять (IMG:http://forum.codeby.net/style_emoticons/default/wink.gif)

isValid = False, в случае, если документ является "окурком" репликации, например, т.е. еще не документ (IMG:http://forum.codeby.net/style_emoticons/default/smile.gif) или уже не документ ))