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