Evaluate gibt nichts zurück

[Alexis]

Hallo Forum,

weiss jemand, warum ich bei Evaluate keinen Wert zurück bekomme? Fehlermeldung: Variant does not contain a container

Code

Sub Click(Source As Button)
	Dim session As New NotesSession
	Dim db As NotesDatabase
	Dim ws As New NotesUIWorkspace
	Dim PickList As Variant
	Dim nam As String
	
	Set db = session.CurrentDatabase
	PickList = ws.PickListStrings( PICKLIST_NAMES )	
	nam = session.CreateName( PickList(0)).common
	Eval = Evaluate( |@DbLookup("":"NoCache";Servername:"Names.NSF";"($Users)";nam;"Department")| )
	End Sub

Alexis

[Driri]

Du darfst nam nicht direkt mit in die Formel schreiben, sondern mußt dir den Formelstring zusammenstricken.

Also etwa so :

|@DbLookup("":"NoCache";Servername:"Names.NSF";"($Users)";"| & nam & |";"Department")|

[Lossa]

Hi,

du möchtest doch nach dem Inhalt von nam Suchen?! und das auf dem Server Servername !!

Eval = Evaluate( |@DbLookup("":"NoCache";Servername:"Names.NSF";"($Users)";nam;"Department")| )

Also musst du doch ersteinmal den richtigen String @DBLookup...
zusammenbauen und dann an eval übergeben.
Warum nutzt du den nicht einfach reines LotusScript


Set dbname = sessio.getdatabase(db.server,"names.nsf")
Set view = db.getview("($users)")
set doc = view.getdocumentbykey(nam)
department = doc.department(0)

[Alexis]

Danke an Euch beide.

Beide Tipps bringen mich weiter.

Alexis