This code will show how to rebuild views using a scheduled Lotus Domino agent. This is helpful when we use @TextToNumber(today) in a view's column formula when the view requires a rebuild every day , and refreshing the view will not serve the purpose or reflect the correct value.
Sub Initialize Dim session As New NotesSession Dim db As NotesDatabase Dim view As NotesView Dim col As NotesViewColumn Dim i As Integer Dim RView As String On Error Resume Next Set db = session.CurrentDatabase ' List of views which u wants to rebuild Dim Rviews() As String Redim Rviews(0 To 2) Rviews(0)=("ABC") Rviews(1)=("EFG") Rviews(2)=("XYZ") ' a temporary change in design of views needs to be made in order to rebuild a view ' we are doing it by adding a temporary Column and deleting it back. i=0 While i<=Ubound(Rviews) Set view = db.GetView(Rviews(i)) Set col = view.CreateColumn(view.ColumnCount + 1, "Test","OrderNo") Call view.Refresh Set col = view.Columns(view.ColumnCount - 1) Call view.RemoveColumn(view.ColumnCount) Call view.Refresh Print "View -" & i i=i+1 Wend End Sub
Do you have comments on this tip? Let us know.
This tip was submitted to the SearchDomino.com tip library by member Huzefa Amar Haider. Please let others know how useful it is via the rating scale at the end of the tip. Do you have a useful Lotus Notes, Domino, Workplace or WebSphere tip or code snippet to share? Submit it to our monthly tip contest and you could win a prize.