Tabelle auslesen und in Feld speichern

[Alexis]

Hallo Forum,

bin mal wieder mit meinem LS-Latein am Ende.

Folgendes Problem: In einer Maske wird eine Tabelle abgespeichert in ein RT-Feld ("Link"). Beim Schließen soll des 5. Feld der Tabelle in ein anderes Text-Feld ("Titel") übertragen werden. Nachfolgendes Script benutze ich, wobei eine Fehlermeldung bei der Ausführung hochkommt, das Ergebnis ist aber dennoch ok  .

Sub Querysave(Source As NotesUIdocument, Continue As Variant)
   Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim doc As NotesDocument
   Dim body As NotesRichTextItem
   Dim rtnav As NotesRichTextNavigator
   Dim rtrange As NotesRichTextRange
   Set db = session.CurrentDatabase
   Set doc = source.Document
   Set body = doc.GetFirstItem("Link")
   Set rtnav = Body.CreateNavigator
Error --> Object variable not set
   If rtnav.FindFirstElement(RTELEM_TYPE_TEXTPARAGRAPH) Then
      Set rtrange = body.CreateRange
      count% = 0
      Do
         count% = count% + 1
         Call rtrange.SetBegin(rtnav)
         If count% = 5 Then
            Call source.FieldSetText ( "Titel",rtrange.TextParagraph)
         End If
      Loop While rtnav.FindNextElement(RTELEM_TYPE_TEXTPARAGRAPH)
   Else
      Messagebox "Error",, "Contact Administrator"
   End If
End Sub

Kann mir jemand unter die Arme greifen

Alexis

[m3]

"body" statt "Body"?

[Alexis]

Anmerkung: Auch wenn body als Variant deklariert wird bleibt die selbe Fehlermeldung

[m3]

Soda, heute hab ich genauer gelesen. Nachdem es sich um ein RTF handelt, kannst Du auf dessen Inhalt IIRC erst NACH dem Speichern zugreifen.

[Alexis]

Hallo Martin,

nachgefragt: muss ich dazu das Frontend-Dokument erst speichern, ID speichern und dann im Background z.B. per Agent die Übertragung der Tabellenwerten in die Felder vornehmen ODER gibt es eine elegantere Lösung?

Alexis

[Driri]

Hallo,

Du kannst das UIDoc einfach speichern und nach dem Speichern dann über

Set doc = uidoc.Document

das Backend-Dokument holen.

[Alexis]

Hallo Forum,

Dank für alle Tipps, jetzt klappt es.

Die Lösung, die sich anbot war:

Editieren im QueryModeChange
Tabelle auswerten im Postsave

Alexis