ANWENDUNGSGESTALTUNG

Beispiele: Ereignis-Script oder Formel erstellen
Nachricht anzeigen, wenn Benutzer Dokumente schließen

Das Queryclose-Ereignis-Script für eine Maske zeigt eine Nachricht an, wenn Benutzer ihr bearbeitetes Dokument schließen:

Sub QueryClose(Source As Notesuidocument,ContinueAsVariant
  Dim workspace As New NotesUIWorkspace
  Dim doc as NotesUIDocument
  Set doc = workspace.CurrentDocument
  If doc.EditMode Then
     Messagebox("Bei Fragen wenden Sie sich bitte an Frau Meier unter der Durchwahl 314.")
  End If
End Sub

Felder automatisch ausfüllen

Das folgende Script für das "Entering"-Ereignis eines Feldes füllt das Feld "Voller Name" aus, indem es das Feld "Vorname", ein Leerzeichen und das Feld "Nachname" aneinanderreiht:

Sub Entering(Source As Field)
  Dim workspace As New NotesUIWorkspace
  Set doc = workspace.CurrentDocument
  firstName = doc.FieldGetText("Vorname")
  lastName = doc.FieldGetText("Nachname")
  fullName = firstName & " " & lastName
  Call doc.FieldSetText("Voller Name", fullName)
End Sub

Benutzer zum Ausfüllen eines Feldes auffordern

Im folgenden Script für das "Exiting"-Ereignis eines Feldes müssen Benutzer nach dem Ausfüllen des Feldes "Vorname" ein Feld "Nachname" ausfüllen.

Sub Exiting
  Dim W As New NotesUIWorkspace
  Dim UIDoc As NotesUIDocument
  Set UIDoc = W.CurrentDocument
  If (UIDoc.FieldGetText ("Nachname") <> "") Then
    UIDoc.GotoField "Vorname"
  Else
    UIDoc.GotoField "Nachname"
   Messagebox "Geben Sie den Nachnamen der Person ein.", 0, "FEHLER"
 End If
End Sub

Siehe auch