Autor Thema: Tabellen in RTF-Feld per Button einfügen  (Gelesen 7041 mal)

Offline Kutz

  • Junior Mitglied
  • **
  • Beiträge: 51
  • Geschlecht: Männlich
  • Banker vor Ort
Re:Tabellen in RTF-Feld per Button einfügen
« Antwort #20 am: 16.01.03 - 17:02:01 »
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
 ???
11 Server 5.010 OS/2,
2 Server 6.5 Windows 2003-Server
110 Plätze OS/2
30 Plätze Windows 2000 R5

Offline ata

  • Moderator
  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 5.092
  • Geschlecht: Männlich
  • drenaiondrufflos
    • Anton Tauscher Privat
Re:Tabellen in RTF-Feld per Button einfügen
« Antwort #21 am: 16.01.03 - 17:13:28 »
... wo kommt das actdoc her - ich vermisse

Set actdoc = ws.CurrentDocument.Document

... oder derartiges..

ata
Grüßle Toni :)

Offline Kutz

  • Junior Mitglied
  • **
  • Beiträge: 51
  • Geschlecht: Männlich
  • Banker vor Ort
Re:Tabellen in RTF-Feld per Button einfügen
« Antwort #22 am: 16.01.03 - 17:16:47 »
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.

 :(
11 Server 5.010 OS/2,
2 Server 6.5 Windows 2003-Server
110 Plätze OS/2
30 Plätze Windows 2000 R5

Offline ata

  • Moderator
  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 5.092
  • Geschlecht: Männlich
  • drenaiondrufflos
    • Anton Tauscher Privat
Re:Tabellen in RTF-Feld per Button einfügen
« Antwort #23 am: 16.01.03 - 17:20:52 »
... es fehlt noch die Deklaration des ws...

Dim ws As New NotesUIWorkspace

... sorry...


ata
Grüßle Toni :)

Offline Kutz

  • Junior Mitglied
  • **
  • Beiträge: 51
  • Geschlecht: Männlich
  • Banker vor Ort
Re:Tabellen in RTF-Feld per Button einfügen
« Antwort #24 am: 16.01.03 - 17:27:34 »
Danke, jetzt komme ich Schritt für Schritt weiter

Jetzt erhalte ich

Object variable not set

 >:(
11 Server 5.010 OS/2,
2 Server 6.5 Windows 2003-Server
110 Plätze OS/2
30 Plätze Windows 2000 R5

Offline ata

  • Moderator
  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 5.092
  • Geschlecht: Männlich
  • drenaiondrufflos
    • Anton Tauscher Privat
Re:Tabellen in RTF-Feld per Button einfügen
« Antwort #25 am: 16.01.03 - 19:07:08 »
... schau mal mit dem Debugger, wo die Meldung erzeugt wird...

ata
Grüßle Toni :)

Offline Performance

  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 1.096
  • Geschlecht: Männlich
  • I love YaBB 1G - SP1!
Re:Tabellen in RTF-Feld per Button einfügen
« Antwort #26 am: 17.01.03 - 09:50:02 »
@ata
der Geduldsmensch  ;D  ;D  ;D

@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
Wir können alles außer hochdeutsch !

Alles ist möglich, es ist nur eine Frage der Zeit oder des Geldes!

Offline doliman

  • Senior Mitglied
  • ****
  • Beiträge: 332
  • Geschlecht: Männlich
    • www.doleschel.de
Re:Tabellen in RTF-Feld per Button einfügen
« Antwort #27 am: 17.01.03 - 22:19:45 »
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.
Grüßle
                           _///_
                          (o~o)
-------------oOOO--(_)--OOOo-------------
Frank Doleschel

----------------------
Ein Berufsleben ohne Notes ist zwar möglich aber die Alternativen sind erschreckend ;-)

Offline Kutz

  • Junior Mitglied
  • **
  • Beiträge: 51
  • Geschlecht: Männlich
  • Banker vor Ort
Re:Tabellen in RTF-Feld per Button einfügen
« Antwort #28 am: 21.01.03 - 10:46:14 »
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
11 Server 5.010 OS/2,
2 Server 6.5 Windows 2003-Server
110 Plätze OS/2
30 Plätze Windows 2000 R5

Offline Performance

  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 1.096
  • Geschlecht: Männlich
  • I love YaBB 1G - SP1!
Re:Tabellen in RTF-Feld per Button einfügen
« Antwort #29 am: 21.01.03 - 13:28:28 »
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

Wir können alles außer hochdeutsch !

Alles ist möglich, es ist nur eine Frage der Zeit oder des Geldes!

Offline doliman

  • Senior Mitglied
  • ****
  • Beiträge: 332
  • Geschlecht: Männlich
    • www.doleschel.de
Re:Tabellen in RTF-Feld per Button einfügen
« Antwort #30 am: 21.01.03 - 19:57:15 »
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??
Grüßle
                           _///_
                          (o~o)
-------------oOOO--(_)--OOOo-------------
Frank Doleschel

----------------------
Ein Berufsleben ohne Notes ist zwar möglich aber die Alternativen sind erschreckend ;-)

Offline Performance

  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 1.096
  • Geschlecht: Männlich
  • I love YaBB 1G - SP1!
Re:Tabellen in RTF-Feld per Button einfügen
« Antwort #31 am: 22.01.03 - 09:08:25 »
@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
Wir können alles außer hochdeutsch !

Alles ist möglich, es ist nur eine Frage der Zeit oder des Geldes!

Offline Kutz

  • Junior Mitglied
  • **
  • Beiträge: 51
  • Geschlecht: Männlich
  • Banker vor Ort
Re:Tabellen in RTF-Feld per Button einfügen
« Antwort #32 am: 29.01.03 - 10:36:58 »
Hallo

vielen Dank für die vielen Infos.

Besonderer Dank gilt performance für die kompetente Hilfe.

Cu

 :D
11 Server 5.010 OS/2,
2 Server 6.5 Windows 2003-Server
110 Plätze OS/2
30 Plätze Windows 2000 R5

Offline Performance

  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 1.096
  • Geschlecht: Männlich
  • I love YaBB 1G - SP1!
Re:Tabellen in RTF-Feld per Button einfügen
« Antwort #33 am: 29.01.03 - 10:47:28 »
Hallo Kutz

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

keep running
Wir können alles außer hochdeutsch !

Alles ist möglich, es ist nur eine Frage der Zeit oder des Geldes!

 

Impressum Atnotes.de  -  Powered by Syslords Solutions  -  Datenschutz