Examples: LimitRevisions property (NotesDatabase - LotusScript®)

This agent cycles the revision limit from 0 to 1000 in increments of 100.

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