notesitem + wertzuweisung

[Raabiat]

Hallo,
folgendes Problem:

set itemAdmin = source.document.getfirstitem("paACLGrpAdminAll")

damit müsste itemAdmin vom typ Notesitem sein

nun möchte ich itemAdmin.values Werte zuweisen

wie soll das gehen?? und von welchem typ muß das sein.
itemAdmin.values ist vom Typ variant, gefüllt mit Strings

ich will lediglich neue werte einfüllen

danke

[Myron]

Ich habs mal so geschrieben und hatte keine Probleme...


^{Sub Querysave(Source As Notesuidocument, Continue As Variant)
   Dim item As NotesItem
   Dim arr(4) As String
   
   Set item = source.document.getfirstItem("test")
   arr(0) = "Wert0"
   arr(1) = "Wert1"
   arr(2) = "Wert2"
   arr(3) = "Wert3"
   arr(4) = "Wert4"
   item.Values = arr
   Call source.refresh
End Sub}



Grüße
  Markus

[Axel]

Hi,

nichts einfacher als das. In der Regel brauchst du, besonders wenn's nur um Wertzuweisungen geht, keine solchen Klimmzüge zu machen.

Hier sind die einfacheren Varianten:

Sub Querysave(Source As Notesuidocument, Continue As Variant)

  Dim doc As NotesDocument
  Set doc = Source.Document
  doc.paACLGrpAdminAll = "Feldwert"

End Sub

Es geht auch als Einzeiler:

Sub Querysave(Source As Notesuidocument, Continue As Variant)

  Source.Document.paACLGrpAdminAll = "Feldwert"

End Sub


Axel