PicklistStrings Abbrechen abfangen

[TomLudwig]

Hallo,
Wie kann ich nach PickListStrings abfangen ob der Benutzer abbrechen wählt?

[klaussal]

... vielleicht so:

Set dc = ws.PickListCollection( PICKLIST_CUSTOM, False, strServer, strFile, ....
If dc.count < 1 Then Exit Sub

[klaussal]

... oder man lese in der hilfe:

This method returns a Variant containing a stringArray if you click OK, or it could return Nothing if you click Cancel. Use the LotusScript Debugger to see what is returned in the stringArray.

 

[TomLudwig]

   Dim picklist As Variant
   
   ' Auwahl des Namens
   picklist = uiwork.PickListStrings( PICKLIST_NAMES, False )
   
   ' Falls "Abbrechen" gewählt wurde ---> Abruch Script
   If picklist is nothing Then
      Exit Sub

Da hab ich schon nachgelesen.
Ja genau, es gibt mir entweder Nothing zurück oder ein String-Array. Wie soll ich das denn Überprüfen.
Beim obrigen bekomme ich eine Fehlermeldung.

[klaussal]

... dann lies doch mal in der designer-hilfe nach.

gerade in der kalten jahreszeit ein heisser tipp.

[TomLudwig]

Hab ich schon... siehe oben...

finde aber nichts....

[TomLudwig]

Wenn ich Abbrechen drücke kann ich es mit

if picklist = "" then
   blablabla
end if

abfangen. Falls ich aber OK drücke dann bekomme ich einen TypeMismatch, weil es sich ja dann um ein Array handelt.

[koehlerbv]

Gib' mal IsEmpty 'ne Chance - und schau' Dir bei der Gelegenheit mal verwandte Sachen in der DesignerHelp an.

Bernhard

[TomLudwig]

IsEmpty funktioniert. Habs aber mittlerweilen anders gemacht... Umständlich aber hauptsache es funktioniert...
   
   If Typename(picklist) = "EMPTY" Then
      Exit Sub
   End If