Das Notes Forum

Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: Stephanie am 18.08.03 - 10:42:25

Titel: Wie validiere ich ein RichText-Feld
Beitrag von: Stephanie am 18.08.03 - 10:42:25

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

Titel: Re:Wie validiere ich ein RichText-Feld
Beitrag von: Axel am 18.08.03 - 11:11:07

Hi,

schau mal hier: http://www-10.lotus.com/ldd/46dom.nsf/55c38d716d632d9b8525689b005ba1c0/fbbd6b594f73989685256bf40053c7e7?OpenDocument (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 (http://www-10.lotus.com/ldd/46dom.nsf/DateAllThreadedweb?OpenView)
nach RTF und Validierung suchen. Da gibt's noch mehr Infos.

Axel

Titel: Re:Wie validiere ich ein RichText-Feld
Beitrag von: Glombi am 18.08.03 - 11:18:52

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

Titel: Re:Wie validiere ich ein RichText-Feld
Beitrag von: klaussal am 18.08.03 - 11:20:49

... 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.