Select date range for view

On a view that asks for a "from" date and a "to" date, this button rebuilds the view in front of your eyes to reflect your date changes. Note: You must have designer access in the ACL to run this.

  Code: Sub Click(Source As Button)
 Dim ws As New NotesUIWorkspace
 Dim uiview As NotesUIView
 Dim view As NotesView
 Dim formula As String

 
 Dim from1 As String
 Dim to1 As String
 from1 = Inputbox$("From?")
 to1 = Inputbox$("To?")
 formula = "Select form =" + 
{"} + "Admin Data Form" + {"}+ 
"& status =" +{"}
+ "INVOICED" + {"}+ "& invoicedate >" 
+ "@texttotime(" + {"} +from1 + {"} +")"
+" & invoicedate <" + "@texttotime(" +{"} 
+to1  + {"}
+")"                                                     
 Set uiview = ws.CurrentView
 Set view = uiview.View
 view.SelectionFormula = formula
 
 Call ws.ViewRebuild
 
End Sub

Do you have comments on this tip? Let us know.

This tip was submitted to the SearchDomino.com tip exchange by member Mark Hughes. Please let others know how useful it is via the rating scale below. Do you have a useful Notes/Domino tip or code to share? Submit it to our monthly tip contest and you could win a prize and a spot in our Hall of Fame.