Examples: SelectionFormula property (NotesView - LotusScript®)

  1. This view action displays the selection formula for the current view.
    Sub Click(Source As Button)
      Dim ws As New NotesUIWorkspace
      Dim uiview As NotesUIView
      Dim view As NotesView
      Set uiview = ws.CurrentView
      Set view = uiview.View
      Messagebox view.SelectionFormula,, "Selection formula"
    End Sub
  2. This view action sets the selection formula for the current view.
    Sub Click(Source As Button)
      Dim ws As New NotesUIWorkspace
      Dim uiview As NotesUIView
      Dim view As NotesView
      Dim formula As String
      formula = "SELECT (@Modified > [" & (Date - 7) & "])"
      Set uiview = ws.CurrentView
      Set view = uiview.View
      view.SelectionFormula = formula
    End Sub