tag:blogger.com,1999:blog-1962691898123103623.post5161452807464803531..comments2024-02-24T08:32:47.613+01:00Comments on XPages and more: Quick Tip: GetDocumentByUnid Method in LotusScript AgentsUnknownnoreply@blogger.comBlogger1125tag:blogger.com,1999:blog-1962691898123103623.post-55776480121739248412016-06-20T13:31:52.971+02:002016-06-20T13:31:52.971+02:00Shorter:
Function DatabaseGetDocumentByUnid(db As ...Shorter:<br />Function DatabaseGetDocumentByUnid(db As NotesDatabase, unid$) As NotesDocument<br /> On Error Resume Next<br /> Set DatabaseGetDocumentByUnid = Nothing<br /> Set DatabaseGetDocumentByUnid = db.GetDocumentByUnid(unid$)<br /> Err = 0<br /> If DatabaseGetDocumentByUnid Is Nothing Then Exit Function<br /> If DatabaseGetDocumentByUnid.Size = 0 Or DatabaseGetDocumentByUnid.IsDeleted Or Not DatabaseGetDocumentByUnid.IsValid Then<br /> Set DatabaseGetDocumentByUnid = Nothing<br /> End If<br />End FunctionLars Berntrop-Boshttps://www.blogger.com/profile/12080086450338712707noreply@blogger.com