Hi Darkface,
mit If Lösung vermute ich eine @Formel Lösung,
sorry mit Formel bin ich nicht bewandert.
Aber Probier´s mal damit :
In das Exiting Ereignis des Feldes folgendes Script
Dim Session As New NotesSession
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
Set uidoc = ws.CurrentDocument
Set doc = uidoc.Document
Dim dc As NotesDocumentCollection
Dim key As String
Set db = session.CurrentDatabase
key = uidoc.FieldGetText("DeinFeldName")
Set view = db.GetView("DeineAnsichtName")
Set dc = view.GetAllDocumentsByKey(key, False)
If dc.Count > 1 Then
Messagebox ("Der Eintrag existiert bereits")
Continue = False
End If
Allerdings, und dass ist das entscheidende, der Nutzer bekommt nur die Meldung, dass der Eintrag bereits existiert, aber MEHR NICHT,
dass heisst die flasche Eingabe wird akzeptiert.
Da sollte man sich noch etwas ausdenken
Ach ja, und "DeineAnsichtName" sollte in der ersten Spalte nach DeinFeldName sortiert sein
Ciao
Don Pasquale
Danke Don Pasquale, aber ich habe die Sache nun mit einer Formel geschafft.
Aber danke für die mühe.
@If(DName = "";
@Failure("Bitte eine Namen angeben!");
@If(@IsMember(DName; @DbColumn("":"NoCache";"";"(Namen)"; 1)); @Failure("Dieser Name wurde bereits angelegt!"); @Success))
Gruß
Darkface