Domino 9 und frühere Versionen > Entwicklung

Rich Text-Feld / Exiting-Formel

<< < (2/2)

Silver:
 ;D  ;D  :D  ;D
Stimmt - sorry!  ;D
Aber es iss doch schön, wenn mach auch über sich selbst lachen kann. Nun ja... also meine Formel sieht nun so aus. Es klappt eigentlich auch alles - nur, wenn das Feld leer bleibt und ich auf raus klicke bekomme ich ne Fehlermeldungen. Wie muss hier dann noch die If-Formel aussehen?

Sub Exiting(Source As Field)
   Dim workspace As New NotesUIWorkspace
   Dim uidoc As NotesUIDocument
   Set uidoc = workspace.CurrentDocument
   If Comment <> "" Then
      Call uidoc.GotoField( "Comment" )
      Call uidoc.SelectAll
      Call uidoc.Copy
      Call uidoc.GotoField( "Comment_1" )
      Call uidoc.SelectAll
      Call uidoc.Paste
      Call uidoc.GotoField( "FirstName" )
   End If
End Sub

So gehts leider net!  :-[
Da tut sich gar nix. Fehler kommt zwar keiner. Aber Comment_1 bleibt auch leer.

Axel:
So kann's auch nicht gehen.

Wenn, dann so:
   
   ...
   If uidoc.FieldGetText("Comment") <> "" Then
      ...

Allerdings liefert diese Abfrage ein falsches Ergebnis, wenn in dem Feld nur ein Anhang enthalten ist. Die Abfrage ob ein RTF-Feld leer ist ist nicht ganz trivial.

Hier ging's schon mal um das Thema: http://atnotes.de/index.php?topic=5106.0


Axel

Silver:
Vielen Dank an alle! Jetzt klappt alles!  :)

Navigation

[0] Themen-Index

[*] Vorherige Sete