IBM Lotus Domino Designer 8.5
  Versions 8.5 and 8.5.1

Examples: ProtectReaders property

This script toggles protection for the readers field.

Dim session As New NotesSession

Dim db As NotesDatabase

Set db = session.CurrentDatabase

formNameIn = Lcase(Inputbox("Name of form?"))

Forall form In db.Forms

  If Lcase(form.Name) = formNameIn Then

    If form.ProtectReaders Then

      form.ProtectReaders = False

      Messagebox "ProtectReaders is set for " _

      & form.Name

    Else

      form.ProtectReaders = True

      Messagebox "ProtectReaders is not set for " _

      & form.Name

    End If

    Exit Sub

  End If

End Forall

Messagebox "The form """ & formNameIn & """ does not exist"

---

Library | Support | Terms of use |

Last updated: Monday, October 5, 2009