Domino 9 und frühere Versionen > Entwicklung

Pflichtfeld-Abfrage beim speichern

<< < (2/2)

TMC:
cool, danke auch schonmal für Tipp (1) Axel  :)

Muss ich dann mal testen (leider erst morgen möglich)....

Zu (2): Ein Ansatz / Beispiel wäre trotzdem mal prima, um das zu testen.
Ich fände es sehr praktisch, alle Felder übersichtlich zu sehen in einem Script etc. und jew. nur die Flags anzupassen....

TMC

Axel_Janssen:
o Mann  >:(

Das ist jetzt aber die Billiglösung anhand 2er Felder und ich teste das nicht. Vermutlich sind da noch Fehler drin. Passe die Feldnamen an deine Gegebenheiten an und tue den code ins querySave der Maske.




--- Code: ---Sub Querysave(Source As Notesuidocument, Continue As Variant)
   
   On Error Goto Fehler
   
   Dim docThis As NotesDocument
   Dim errorMsg As String
   Dim nl As String
   Dim hasError As Integer
   Dim i As Integer
   Dim strFelder(1) As String
   Source.refresh
   Set docThis = Source.Document
   hasError = False
   errorMsg = ""
   nl = Chr$(13) & Chr$(10)
   
   strFelder(0) = "aTest1"
   strFelder(1) = "aTest2"
   
   For i = 0 To Ubound(strFelder)
      If Trim(docThis.getItemValue (strFelder(i))(0)) = "" Then
         errorMsg = errorMsg & |Feld "| & strFelder(i) & |" ist nix drin| & nl   
         If hasError = False Then
            Source.GotoField(strFelder(i))
            hasError = True
         End If
      End If  
   Next
   
   If (hasError) Then
      Msgbox errorMsg ' gibt noch eine Reihe nützlicher Parameter in messagebox
      Continue = False
   End If
   
   Exit Sub
   
Fehler:
   Msgbox ": Fehler:" & Error$ & "(" & Cstr(Err) & ") in Zeile " & Cstr (Erl)
   Exit Sub
End Sub


--- Ende Code ---

hab doch getestet.

TMC:
Supi, vielen Dank Axel, klappt prima und hat mir sehr geholfen!!!
 :) :) :)

bye,
TMC

Navigation

[0] Themen-Index

[*] Vorherige Sete