IBM Lotus Domino Designer 8.5
  Versions 8.5 and 8.5.1

Examples: Aliases property

This script displays all the aliases for a specified form.

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 Isempty(form.Aliases) Then

      Messagebox form.Name & " has no aliases"

    Else

      aliazCount = 0

      msgString = ""

      Forall aliaz In form.Aliases

        aliazCount = aliazCount + 1

        msgString = msgString & Chr(10) & _

        "     " & aliaz

      End Forall

      Messagebox form.Name & " has " & _

      aliazCount & _

      " alias(es):" & Chr(10) & msgString

    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