Domino 9 und frühere Versionen > Entwicklung
Wie validiere ich ein RichText-Feld
(1/1)
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
--- Ende Code ---
mit dem sizeRT musst du etwas rumprobieren.
Navigation
[0] Themen-Index
Zur normalen Ansicht wechseln