Wie validiere ich ein RichText-Feld

[Stephanie]

Hallo Zusammen

Ich möchte prüfen ob im RichText-Feld etwas eingegeben wurde. Folgende Formel verwende ich bei den Text-Feldern:

@If(FeldName !="";@Success;@Failure( "Bitte Pflichtfeld ausfüllen!"))

Leider funktioniert dies nicht bei den RichText-Feldern. Hat mir jemand vielleicht einen Tipp?


Besten Dank im voraus.

Grüsse

Stéphanie

[Axel]

Hi,

schau mal hier: http://www-10.lotus.com/ldd/46dom.nsf/55c38d716d632d9b8525689b005ba1c0/fbbd6b594f73989685256bf40053c7e7?OpenDocument

Du kannst im Notes/Domino 4 and 5 Forum http://www-10.lotus.com/ldd/46dom.nsf/DateAllThreadedweb?OpenView
nach RTF und Validierung suchen. Da gibt's noch mehr Infos.

Axel

[Glombi]

Hi,
ich mache das so: Da RTF Felder erst nach dem Speichern bekannt sind, mache ich die Validierung im QueryClose.

Bsp.:
(Declarations)
dim DocIsSaved as Integer

Postopen:
DocIsSaved = false

Postsave:
DocIsSaved = true

QueryClose:
'Validierung der Rich-Text-Felder   
If DocIsSaved Then
 Set rtitem = doc.GetFirstItem("Body")   
 If rtitem.Text = "" Then         
   Msgbox "Bitte geben Sie in das Rich Text Feld etwas ein!",0+16,"Feld enthält falschen Wert"         
  Call uidoc.GotoField("Body")   
  continue = False
  Exit Sub
 End If   
End If

Andreas

[klaussal]

... ich hab das mal so gelöst:

Code

Sub Postsave(Source As Notesuidocument)
   Dim ws As New NotesUIWorkspace
   Dim session As New NotesSession
   Dim db As NotesDatabase   
   Dim uidoc As NotesUIDocument
   Dim doc As NotesDocument
   Dim docCheck As NotesDocument
   Dim rtitem As Variant
   Dim sizeRT As Integer
   
   Set db = session.currentDatabase
   Set uidoc = ws.currentDocument
   Set doc = uidoc.document   
   Set rtitem = doc.getfirstItem("Formular")
   
   sizeRT = rtitem.valueLength
   
   If sizeRT > 100 Then
      doc.flag_formular = "ja"
   Else
      doc.flag_formular = "nein"
   End If
   
   Call doc.save(False, False)
End Sub

mit dem sizeRT musst du etwas rumprobieren.