Variant enthält keinen Container

[dani_blues]

Hallo zusammen, bekomme o.genannte Fehlermeldung.
Habe eine Schaltfläche mit folgendem Script. Es wird aus einer Ansicht heraus die gerade geöffnete Maske befüllt.

Das funktioniert soweit prima, nur wie muss ich die Formel anpassen, damit ich auch ein Richtext-Feld "abrufen" & befüllen kann?

Gruss und Danke Dani!



Sub Click(Source As Button)
   
   Dim ws As New NotesUIWorkspace
   Dim col As NotesDocumentCollection
   Dim doc As NotesDocument
   Dim curdoc As NotesDocument
   
   Set curdoc = ws.CurrentDocument.Document
   
   Set col = ws.PickListCollection( PICKLIST_CUSTOM, False , "server" ,_
   "order.nsf" , "Vorbelegung" , "Auswahl" , "HINWEIS: Wählen Sie das gewünschte Edelmetall aus!!!" )
   
   Set doc = col.GetFirstDocument
   
   curdoc.metall_beschreibung = doc.vorbelegung_edelmetall(0)
   
End Sub

[koehlerbv]

Vorab: RichText-Items kannst Du im Frontend generell nicht über das Backend belegen. Dazu gibt es zahlreiche erläuternde Threads u.a. hier im Forum.

Weiters: Wenn Du hier schon Fehlermeldungen bringst, poste immer die Zeile, in der das passiert. Wir haben keine Lust, Code à la "Was-wäre-wenn" zu durchforsten.

Da RichText-Items ganz anders "ticken" als "normale" Notes-Items, lese Dich in die Klasse NotesRichtextItem ein.

Bernhard

[m3]

doc ist nicht gesetzt.

[koehlerbv]

Vermutlich doch.

Wobei es sträflich ist, das Ergebnis von PicklistCollection nicht abzufragen. Sehr sträflich.

Bernhard