Domino 9 und frühere Versionen > ND6: Entwicklung

Tabelle auslesen und in Feld speichern

(1/2) > >>

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

Navigation

[0] Themen-Index

[#] Nächste Seite