T
ToNiK!
Привет всем! Такая тема: нужно сделать гиперссылку на значения в поле со списком.
Есть поле, в котором записываются счета, но при создании гиперссылки переход осуществляется только на последний добавленный счёт в это поле. Тоесть по факту адресом гиперссылки становиться последний введённый счёт, а не любой счёт из списка. Как бы это поменять?
Скрипт такой:
Sub Click(Source As Button)
Dim s As New NotesSession
Dim cdb As NotesDatabase
Set cdb=s.CurrentDatabase
Dim doc As NotesDocument
Dim dc As NotesDocumentCollection
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc=ws.CurrentDocument
Set doc=uidoc.Document
Set dc=cdb.Search("(Form=""Account"")&(Account="""+doc.Account(0)+""")", Nothing, 0)
If dc.Count>0 Then
Set doc=dc.GetFirstDocument
Call ws.EditDocument(False, doc)
End If
End Sub
ЗЫ: Я в лотусе полный чайник, поэтому помидорами особо прошу не закидывать
Есть поле, в котором записываются счета, но при создании гиперссылки переход осуществляется только на последний добавленный счёт в это поле. Тоесть по факту адресом гиперссылки становиться последний введённый счёт, а не любой счёт из списка. Как бы это поменять?
Скрипт такой:
Sub Click(Source As Button)
Dim s As New NotesSession
Dim cdb As NotesDatabase
Set cdb=s.CurrentDatabase
Dim doc As NotesDocument
Dim dc As NotesDocumentCollection
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc=ws.CurrentDocument
Set doc=uidoc.Document
Set dc=cdb.Search("(Form=""Account"")&(Account="""+doc.Account(0)+""")", Nothing, 0)
If dc.Count>0 Then
Set doc=dc.GetFirstDocument
Call ws.EditDocument(False, doc)
End If
End Sub
ЗЫ: Я в лотусе полный чайник, поэтому помидорами особо прошу не закидывать
