Domino 9 und frühere Versionen > Entwicklung

Tabellen in RTF-Feld per Button einfügen

<< < (5/7) > >>

Kutz:
Hm, irgendwie komme ich immer nicht weiter.

Beide Dokumente sind in der selben Datenbank.

Habt Ihr eine Idee, ich denke hier habe ich ein Denkfehler.

Sub Click(Source As Button)
   Dim actdoc As Notesdocument
   Dim db As notesdatabase
   Dim view As NotesView
   Dim item1 As Variant
   Dim item2 As Variant
   
   Set view = db.GetView( "Vorlagen" ) ''' in der view ist nur ein dok für diesen Zweck
   Set doc = view.GetFirstDocument
   Set item2 = doc.GetFirstItem( "v_protokoll" )
   
   Set item1 = actdoc.GetFirstItem( "Protokoll" )
   If ( item1.Type = RICHTEXT  And  item2.Type = RICHTEXT ) Then
    Call item1.AddNewLine( 1 )
      Call item1.AppendRTItem( item2 )
      
      actdoc.saveoptions = "1"
      Call actdoc.save (True,False)
      actdoc.saveoptions = "0"
      Call actdoc.close
      
      Set docUI = ws.EditDocument(True, actdoc)      
      Call docUI.refresh
      Call docUI.GotoBottom
   End If
End Sub
 ???

ata:
... wo kommt das actdoc her - ich vermisse

Set actdoc = ws.CurrentDocument.Document

... oder derartiges..

ata

Kutz:
Ja hatte ich ganz übersehen,

aber nachdem ich die Zeile eingefügt habe, erscheint immer noch die Meldung,

Variable does not contain an object.

Eine der Variablen ist leer.

 :(

ata:
... es fehlt noch die Deklaration des ws...

Dim ws As New NotesUIWorkspace

... sorry...


ata

Kutz:
Danke, jetzt komme ich Schritt für Schritt weiter

Jetzt erhalte ich

Object variable not set

 >:(

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete