Domino 9 und frühere Versionen > ND6: Entwicklung

Bekomme Fehler: "Error creating product object"

(1/4) > >>

dabjoern:
Hallo auch,
hier erstmal der Code:

--- Code: ---Sub Click(Source As Button)
Dim session As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim uidoc As NotesUIDocument
Dim ws As New NotesUIWorkspace
Dim doc As NotesDocument
Dim ldoc As NotesDocument
Dim rtitem As NotesRichTextItem
Dim key As Variant
Dim counter As Integer
Dim fieldcounter(1 To 4) As String

Set db = session.CurrentDatabase
Set uidoc = ws.CurrentDocument

Call uidoc.Save
Set doc = uidoc.Document

fieldcounter(1) = "EB_counter"
fieldcounter(2) = "UB_counter"
fieldcounter(3) = "TB_counter"
fieldcounter(4) = "Coach_counter"

For i = 1 To 4
counter = uidoc.FieldGetText((fieldcounter(i)))
For j = 1 To counter
key = uidoc.FieldGetText(("SO_Name_" + Cstr(i) + "_" + Cstr(j)))
Messagebox("i: " & i & " j: " & j)
Messagebox(key)
Set rtitem = New NotesRichTextItem(doc,("SO_Link_" + Cstr(i) + "_" + Cstr(j)))
Set view = db.GetView("Person" )
Set ldoc = view.GetDocumentByKey(key)
If (key <> "") Then
If ldoc Is Nothing Then
Messagebox("Could not find document for " & key & ".")
Exit Sub
Else
Call uidoc.FieldClear(("SO_Link_" + Cstr(i) + "_" + Cstr(j)))
Call rtitem.AppendDocLink(ldoc, "Link")
Call ReOpen(doc)
End If
Else
Call uidoc.FieldClear(("SO_Link_" + Cstr(i) + "_" + Cstr(j)))
Call ReOpen(doc)
End If
Next j
Next i
End Sub
--- Ende Code ---

Wenn ich den Code ausführe, erhalte ich in der Zeile Set rtitem = New NotesRichTextItem(doc,("SO_Link_" + Cstr(i) + "_" + Cstr(j))) den Fehler "Error creating product object". Was bedeutet das? Wie kann ich Abhilfe schaffen? Hintergrundinfos zu obigem Skript gibts unter: http://www.atnotes.de/index.php?topic=24367.0

Danke und Gruß
Björn

umi:
Hi
Für was sind den die Klammern um den String?

dabjoern:
Ich will die bspw. die Felder SO_Link_1_1, SO_Link_2_1, SO_Link_3_1 etc. ansprechen. Ich habe die Klammern gesetzt, da es ohne Klammern nicht richtig funktioniert hat. Können die Klammern eine Fehlerquelle sein? Ich werde sie mal testweise entfernen.
Gruß
Björn

Edit: Ich habe die Klammern entfernt (komischerweise geht es jetzt auch ohne), jedoch selbe Fehler ("Error creating ...").

dabjoern:
Ergänzung: Der Link wird im ersten Feld (SO_Link_1_1) angelegt, in jedem weiteren Feld nicht. Dann kommt obige Fehlermeldung.

Kann es sein, dass ich immer ein neues rtitem anlegen muss?

Gruß
dabjoern

Glombi:
Werden denn i und j hochgezählt?

Anstelle von New NotesRichTextItem kannst Du auch

Set notesRichTextItem = notesDocument.CreateRichTextItem(
name$ )

verwenden.

Andreas

Navigation

[0] Themen-Index

[#] Nächste Seite