Hallo zusammen.
Ich habe ein Problem mit der Eingabevalidierung in einem Feld.
Und zwar will ich erzwingen, daß in einer Maske das Feld "Deadline" (Format : Datum) gefüllt sein muß.
Ich hab dafür folgende Formel in der Eingabevalidierung eingebaut:
@If(Deadline="" & @IsDocBeingSaved;@Failure("Please enter the Deadline !");@Success)
Jedoch erscheint nach der gewollten Fehlermeldung "Please enter..." noch die folgende Fehlermeldung :
Notes Error - Feld hat Validierungsformel nicht entsprochen
Hat jemand eine Idee wie ich die Fehlermeldung unterdrücken kann ?
Nach Möglichkeit will ich die Überprüfung nicht in das Ereignis QuerySave o.a. einbauen.
Danke im voraus.
Gruß
Sebastian
Du hast recht.
Das Dokument wird über folgende Aktion gespeichert:
Sub Click(Source As Button)
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc = workspace.CurrentDocument
Call uidoc.refresh
Call uidoc.save
End Sub
Nachtrag : Hab es jetzt über QuerySave gelöst.
War anders leider nicht möglich.
Gruß
SESE
Unglaublich.
Jetzt hatte ich das Problem Gestern gelöst (halt mit QuerySave) und nun bekomme ich schon wieder eine zusätzliche Meldung.
Wenn ich QuerySave mit : Continue = False
abbreche, dann bekomme ich noch diese Meldung :
"NotesUIDocument: Save cancelled"
----
Diese Meldung kam Gestern definitiv nicht.
Hier der Code:
Sub Querysave(Source As Notesuidocument, Continue As Variant)
Dim session As New NotesSession
Dim user As String
user = session.CommonUserName
Dim Dead As String
Dead = source.fieldgettext("Deadline")
If Dead = "" Then
Msgbox ("Please enter the Deadline before you save !")
Call source.GotoField( "Deadline" )
continue = False
Else
Call source.refresh
Call source.fieldsettext("ChangedBy",user)
Print "Document saved by " + user + " on " +dateV +" !"
End If
End Sub
Wäre für Hilfe echt dankbar.
Gruß
SESE