Author: Tripp W Black
Created: 06/14/2000 at 09:39 AM
Category: Notes Developer Tips Agents, LotusScript
Sub Click(Source As Button) Dim db As NotesDatabase Dim session As New NotesSession Dim workspace As New NotesUIWorkspace Set db=session.CurrentDatabase Dim doc As NotesDocument Dim uidoc As NotesUIDocument Dim view As NotesView Dim dc As NotesDocumentCollection Dim x As Integer, y As Integer, RndNum As Integer Set view=db.GetView("(AllArtworks)") Set dc=view.GetAllDocumentsByKey("1") y=dc.Count x=1 Randomize RndNum=Cint((y-x)*Rnd+x) Set doc=dc.GetNthDocument(RndNum) Set uidoc=workspace.EditDocument(False,doc) End Sub