Tabellen in RTF-Feld per Button einfügen

[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

 

[ata]

... schau mal mit dem Debugger, wo die Meldung erzeugt wird...

ata

[Performance]

@ata
der Geduldsmensch      

@Kutz
poste doch einfach deine db hier rein - nur die 2 verwendeten Forms, dann kann ich dir weiterhelfen
- wenn du jede Fehlermeldung hier postest kann dieser Beitrag noch Ellenlang werden  

cu

[doliman]

Hallöchen Zusammen,

es gibt da etwas was eine Erwähnung sein sollte, nein es ist nicht kostenlos aber es hilft ungemein mit RTF Felder zu arbeiten.
Ich selber setzte diese Libary ein und man kann diese kostenlos testen. Für Profressionelle Berichte aus Notes mit RTF Felder eigentlich ein muss:
http://geniisoft.com/
Man kann mit dieser Libary mit den Backendklassen RTF Felder vergewaltigen und sämtliche Benutzerfunktionalität benutzen.

[Kutz]

Hallo,

hier habe ich meine DB eingestellt.

Ein neues Management-Protokoll soll erstellt werden, dazu habe ich ein Button in die Maske eingebaut, mit der die Tabelle eingesetzt werden soll.

Danke schon im voraus

Kutz

[Performance]

hallo kutz

ich habe ein Paar Änderungen vorgenommen
- du kannst mehrere Vorlagen mit einer Maske erstellen - der Unterschied liegt in der Bezeichnung der Vorlagen - Feld v_Art
- Auswahl von neuen Vorlagen über eine Dialogliste - da habe ich die vorhandenen VMasken reingeschrieben - wenn dir das ein wenig zu starr ist kannst du auch ein @unique(@dbcolumn einbauen.
- das Querysave der VMaske verhindert das Vorlagennamen doppelt vorkommen
- das erzeugen von neuen Vorlagen oder Management doks habe ich über die roten Punkt Aktion gemacht
- die Vorlagen werden immer an die vorhandene rtf angehängt


cu

[doliman]

Hi,

wollte mich eigentlich nicht einmischen nur der Neugierde zu Liebe.
Um den Fehler "OBjectvariable not set" loszuwerden fehlt das hier:

Dim session As New NotesSession
Dim db As NotesDatabase
Set db = session.CurrentDatabase

sonst knallts bei der set view = ....

das Managment Dokument muss auch erst ein save erfahren sonst knallts am rtf Feld.
Aber so richtig habe ich das Szenario nicht verstanden was da tun soll??

[Performance]

@doliman

jeder darf sich einmischen - so entstehen geniale Ideen !!

- welche view meinst du - ich verwende keine view mehr
- beim Mgm dok kanllt es nicht sondern es kommt eine Meldung oder Kutz kann den Code ändern mit einem actdoc.save true, false
--> steht aber im Kommentar



cu

[Kutz]

Hallo

vielen Dank für die vielen Infos.

Besonderer Dank gilt performance für die kompetente Hilfe.

Cu

 

[Performance]

Hallo Kutz

thx...
ich hatte schon gedacht du hättest dich von Notes verabschiedet  

keep running