Problem mit der Eingabevalidierung

[Sese]

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:

Code

@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

[Till_21]

@if(@text(Deadline)="";.....

gruss

[Sese]

@if(@text(Deadline)="";.....

gruss

Das funktioniert auch nicht.

Die Fehlermeldung ist die gleiche.

Trotzdem Danke.

Gruß
SESE

[klaussal]

....@if(@trim(@text(Deadline))="";.....

ist besser, sonst genügt ein druck auf die leertaste, und die validierung stimmt  

die fehlermeldung "Feld hat.... nicht entsprochen" kann man nicht unterdrücken (soweit mir bekannt ist)  

[Sese]

Auch danke dafür.

Also werd ich wohl doch den Weg über QuerySave gehen müssen.
 


Gruß
SESE

[Glombi]

Wird das Dokument evtl. durch ein Script gespeichert? Diese Meldung kenne ich bspw., wenn ich

call Source.Save

und hinter diesem Code noch was anderes kommt.

Gruß
Andreas

[Sese]

Du hast recht.

Das Dokument wird über folgende Aktion gespeichert:

Code

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

[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:

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