Pick list

[ch]

Wenn ich diesen code angebe kommt das Adreßbuch und nicht meine Ansicht "Alle" als Picklist. Was hab ich falsch gemacht?

lg claudia


   Dim workspace As New NotesUIWorkspace
   Dim picklist As Variant
   Dim messagelist As String
   picklist = workspace.PickListStrings(Alle)
   If ( Isempty( picklist) ) Then
      Messagebox "Canceled" , , "Resource selected"
   Else
      Forall plist In picklist
         messagelist = messagelist & plist & Chr(10)
      End Forall
      Messagebox messagelist  , , "Resource selected"
   End If

[Semeaphoros]

Blick in die Designer-Hilfe:

Code

stringArray = notesUIWorkspace.PickListStrings( type% [, multipleSelection ] )

Der erste Parameter ist type% und ist eine Zahl

Dein Alle ist eine Variable, und da sie nicht inizialisiert ist, hat sie den Wert 0

Weiter unten in der Hilfe ist der Typ erklärt:

Code

PICKLIST_NAMES (0)	Displays the names dialog box. Can only be used in the first form of the method.

Damit ist klar, dass der Namensdialog kommt.

Was Du brauchst, ist die Picklist in dieser Form:

Code

stringArray = notesUIWorkspace.PickListStrings( type% [, multipleSelection ], server$, databaseFileName$, viewName$, title$, prompt$, column% [, categoryname$ ] )

Da sind mindestens 6 Parameter anzugeben. Studier die Hilfe mal.