Das Notes Forum

Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: Silver am 13.02.06 - 14:04:22

Titel: Rich Text-Feld / Exiting-Formel
Beitrag von: Silver am 13.02.06 - 14:04:22

Hallo!

Ich habe eine Maske, in der sich ein Feld "Comment" und ein Feld "Comment_1" befindet.
Es soll nun so sein, wenn man das Feld "Comment" verlässt, soll der Inhalt auch im Feld "Comment_1" geschrieben. Werden. Soweit so gut - aber die Felder sind Rich Text-Felder. Ich krieg immer nur den Text rüber. Wie mache ich das mit den Formatierungen???
Kann mir hier jemand helfen?  :-[

Titel: Re: Rich Text-Feld / Exciting-Formel
Beitrag von: koehlerbv am 13.02.06 - 14:08:12

Mit den Methoden der NotesUIDocument class kannst Du den Inhalt von Comment markieren, in die Zwischenablage kopieren und dann in Comment_1 kopieren.

HTH,
Bernhard

Titel: Re: Rich Text-Feld / Exciting-Formel
Beitrag von: Silver am 13.02.06 - 14:16:06

Sorry... kannst Du mir hier ma den Code geben? Kenn mich leider nur mit der Formel-Sprache aus, nicht aber mit LotusScript. Da bin ich ein blutiger Anfänger. Sorry!  :'(

Titel: Re: Rich Text-Feld / Exciting-Formel
Beitrag von: Axel am 13.02.06 - 14:57:12

In der Designerhilfe gibt's Beispiele dafür. Zum Beispiel das hier. Du musst nur die Feldnamen anpassen.

Code

  Dim workspace As New NotesUIWorkspace
  Dim uidoc As NotesUIDocument
  Set uidoc = workspace.CurrentDocument
  Call uidoc.GotoField( "FirstDraft" )
  Call uidoc.SelectAll
  Call uidoc.Copy
  Call uidoc.GotoField( "Revision" )
  Call uidoc.Paste

Axel

Titel: Re: Rich Text-Feld / Exciting-Formel
Beitrag von: Driri am 13.02.06 - 15:12:42

Zitat

Exciting-Formel

Sorry für Offtopic, aber das ist ja mal nen genialer Schreibfehler  ;D

Titel: Re: Rich Text-Feld / Exiting-Formel
Beitrag von: Silver am 13.02.06 - 15:35:09

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

Titel: Re: Rich Text-Feld / Exiting-Formel
Beitrag von: Axel am 13.02.06 - 16:17:53

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

Titel: Re: Rich Text-Feld / Exiting-Formel
Beitrag von: Silver am 13.02.06 - 16:27:38

Vielen Dank an alle! Jetzt klappt alles!  :)