LOTUSSCRIPT/COM/OLE CLASSES

Examples: GotoLast and GotoPrev methods
This Visual Basic code (GotoLastPrev_Click Sub) gets all the entries in a view from last to first.

Dim s As New NotesSession
Dim db As NotesDatabase
Dim v As NotesView
Dim n As NotesViewNavigator
Dim e As NotesViewEntry
Dim lastPosition As String

Private Sub GotoLastPrev_Click()
InitializeNav_Click
lastPosition = ""
Call n.GotoLast
Set e = n.GetCurrent
While e.GetPosition(".") <> lastPosition
 If e.IsCategory Then
   MsgBox e.ColumnValues(0), , "Category"
 ElseIf e.IsTotal Then
   MsgBox "Is a total", , "Total"
 ElseIf e.IsDocument Then
   MsgBox e.Document.GetItemValue("Subject")(0), , "Document"
 End If
 lastPosition = e.GetPosition(".")
 Call n.GotoPrev(e)
 Set e = n.GetCurrent
Wend
End Sub

Private Sub InitializeNav_Click()
Set s = New NotesSession
s.Initialize
Set db = s.GetDatabase("", "Web test")
Set v = db.GetView("By Category")
Set n = v.CreateViewNav
End Sub

See Also