Sub Initialize Dim session As New NotesSession Dim db As NotesDatabase Set db = session.CurrentDatabase lr# = db.LimitRevisions If lr# > 999 Then db.LimitRevisions = 0 Else db.LimitRevisions = lr# + 100 End If Messagebox db.LimitRevisions,, "Limit $Revisions" End Sub
See Also