Domino 9 und frühere Versionen > ND6: Entwicklung

Abfrage ob name schon vorhanden

(1/2) > >>

brathaenchen:
Hi!

ich möchte in Script abprüfen, das wenn ich ein neues Dokument erstelle
abgeprüft wird, ob ein anderes Dokument diesen Namens existiert und wenn ja zum Abbruch beim Speichern führt.
Wie mache ich sowas?

klaussal:

--- Zitat ---ob ein anderes Dokument diesen Namens existiert
--- Ende Zitat ---

Wie soll man das verstehen ? Ansonsten mit "getdocumentbykey" (siehe Designer-Hilfe).

entertainer1105:
Vielleicht hilft Dir das:
   Dim session As New  NotesSession
   Dim db As Notesdatabase
   Dim view As Notesview
   Dim doc As Notesdocument
   Dim uidoc As NotesUIDocument
   Dim workspace As New NotesUIWorkspace
   Dim ProjektNrStr As String
   
   Set uidoc=workspace.Currentdocument
   If uidoc.IsNewDoc Then
      ProjektNrStr=uidoc.FieldGetText("ProjektNr")
      Set db= session.currentdatabase
      Set view=db.GetView("nach Projektnummern")
      Set  doc=View.GetDocumentbyKey(ProjektNrStr,True)
      If Not (doc Is Nothing) Then
         Msgbox "ProjektNr schon vergeben",MB_OK,"Fehler"
         Call uidoc.FieldSetText("ProjektNr","")
         Call uidoc.GotoField("ProjektNr")
      End If
   End If

Das ist ein Script Eintrag, der in einem Key-Feld (in diesem Fall die Projektnummer) unter "Exiting" steht und prüft, ob es diese Projektnummer schon gibt. Falls ja, wird wieder in das Feld "Projektnummer" gesprungen.

Axel:
Hi,

gegen den Code ist nichts zu sagen, aber ich würde das nicht im Exiting - Event machen. Dieser Event wird unter Umständen nicht ausgeführt. Besser ist so was im QuerySave-Event der Maske aufgehoben.


Axel

..Andreas..:
@entertainer1105 ... der Exiting event wird allerdings nur beim Verlassen des Feldes ausgeführt, also sollte man das Ganze auch (oder ausschließlich?) beim Speichern prüfen. Denn per Lotusdefinition verlässt man beim Speichern das Feld nicht.

Andreas

Navigation

[0] Themen-Index

[#] Nächste Seite