Domino 9 und frühere Versionen > ND6: Entwicklung

RTF Feld kopieren

(1/3) > >>

brathaenchen:
Hi

ich möchte im Query Save einer Subform mehrere RTF Felder an ein anderes RTF Feld anhängen. Bekomme aber eine fehlermeldung nach der anderen..

Hier mal ein kleines Beispiel:


Dim ws As New notesuiworkspace
Dim uidoc As notesuidocument
Dim doc As NotesDocument   
Set uidoc=ws.currentdocument
Set doc = uidoc.Document   
Dim rtitemA As Variant
Dim rtitemB As Variant
Set rtitemA = doc.GetFirstItem( "Test1" )
Set rtitemB = doc.GetFirstItem( "Test2" )
Call rtitemA.AppendRTItem( rtitemB )
Call doc.Save( False, True )


Kann mir kurz einer helfen?

Glombi:
Ist das nun ein "kleines Beispiel" oder der gesamte Code der nicht funktioniert?


--- Zitat ---Bekomme aber eine fehlermeldung nach der anderen..

--- Ende Zitat ---
Wenn Du die dann bitte auch hier nennen könntest oder sollen wir mal wieder die Kristallkugel herausholen?

Andreas

brathaenchen:
nein das ist im moment alles :)
den rest habe ich auskommentiert.

Will erstmal nur ganz simpel 1 RTF Feld kopieren

Glombi:
Dim rtitemA As NotesRichTextItem
Dim rtitemB As NotesRichTextItem

Welche Fehler kommen? - letzter Aufruf!  ;D

Andreas

brathaenchen:
nein das geht auch nicht bekomme sofort einen Type Mismatch

Navigation

[0] Themen-Index

[#] Nächste Seite