PickListCollection einer lokalen DB

    Ich möcht mit folgendem Script 2 Felder einer Maske aus einer Ansicht der selben DB befüllen.
    Am Server funktionierts, nur wenn die DB lokal liegt, dann nicht.


    Könnte mir jeman helfen, was ich bei "Server" eintragen muss damits funzt? Danke im voraus.


    Viele Grüße
    Daniel Bloos


    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" ,_
    "test.nsf" , "agenturen" , "Auswahl" , "Bitte wählen Sie den Mitarbeiternamen aus." )

    Set doc = col.GetFirstDocument

    curdoc.gs= doc.gs(0)
    curdoc.agenturnummer= doc.agenturnummer(0)

    mit


    serverName$ = notesDatabase.Server


    den Servernamen ermitteln, und dann in col


    Set col = ws.PickListCollection( PICKLIST_CUSTOM, False , serverName$ ,_
    "test.nsf" , "agenturen" , "Auswahl" , "Bitte wählen Sie den Mitarbeiternamen aus." )


    die Variable für den Server eingeben.



    so würde ich es erstmal probieren.

    Einfach nur den Servernamen weglassen funktioniert bei mir prima


    Code
    Set col = ws.PickListCollection( PICKLIST_CUSTOM, False , "" ,"Test.nsf" , "agenturen" , "Auswahl" , "Bitte wählen Sie den Mitarbeiternamen aus." )_

    taurec


    Seh ich ein. Hab wohl auch etwas schnell gelesen und gedacht, er will sie nur lokal verwenden und nicht auch auf Server.


    Wieder was dazugelernt