Domino 9 und frühere Versionen > ND6: Entwicklung

Piccklist_Methode

(1/1)

carpri:
Hallo liebe Notes-Freunde
An dieser Stelle nochmal ein herzliches Dankeschön an die Initiatoren und Mitgestalter dieses Forums.
Es sind die kleinen Tipps und Kniffe, die mir hier beim Lesen der vielfältigen Beiträge sehr geholfen haben.
Zu allererst habe ich eine sehr wichtige Frage an alle hier, da in vielen Beiträgen das Lesen der Designer-Help durchaus berechtigt angemahnt wird. Gibt es eine deutsche Übersetzung? Also meine Designerhilfe ist mal deutsch, mal englisch, je nachdem wo man sich halt in der Menüstruktur gerade befindet. Meine Englischkenntnisse streiken durchaus manchmal bei einer fachgerechten Übersetzung dieser Beiträge.
Vielleicht kann mir da jemand einen Tipp vermitteln.

Und nun eine fachliche Frage.

Aus Microsoft_Word wird durch ein Klick auf einem Button (userform) folgende Funktion aufgerufen.

Function Adauswahl() As String
 Dim ws As Object
 Set ws = CreateObject("Notes.NotesUIWorkspace")
  For Each nTask In Tasks
   x = nTask.Name
   If InStr(1, x, "Lotus Notes") > 0 Then
     Call nTask.Activate
     Exit For
   End If
 Next
 'AppActivate ("Lotus Notes")
 OK = ws.PicklistStrings(0, False, "Server", "DB.Nsf", "Ansicht", "Title", "Prompt", "Spalte")
Adauswahl = OK(0)
End Function

Natürlich wird bei der PicklistString-Methode nur der Wert einer Spalte übergeben, den man dann ausdröseln muss, was ich auch tatsächlich gemacht habe. (VBA-Word)
Die PickListCollection_Methode ist eleganter, nur mir fehlt die richtige Idee, die Einzelwerte in eine Userform von VBA-Word einzuschreiben. Mit der Collection-Methode wird ein Dokument erzeugt mit  den daraus resultierenden Einzelwerten. Ich weiss nicht, wie ich diese in meine Word-Userform oder überhaupt aus dieser o.g. Funktion an Word weitergeben kann.
Mit der Stringmethode funktioniert das zwar alles, aber ich muss halt in die DB eine unsichtbare Spalte einschleusen, die halt alle interesanten Daten (mit Trennzeichen) beinhalten muß.

Würde mich sehr freuen, wenn mir jemand einen Lösungsansatz zu dieser Problematik anbieten könnte.

freundliche Grüße

Norbert

DerAndre:
Hi Norbert.

Ist es Notwendig, das die Funktion die Auswahl zurück gibt?
Du bekommst von der PicklistCollection als Ergebnis die entsprechend Ausgewählten Dokumente zurück.

collection = PicklistCollection....

Dann iterierst Du durch die Collection und solltest dann ganz Normal mit

grübel..... wie war das jetzt nochmal in VBA

UserForm.Feldname = docauscollection.Feldname(0)

oder

Set item = docauscollection.GetFirstItem("Feldname")

if not item is nothing then
  UserForm.Feldname = item.text
endif

So grob in etwa. Der Spaß  ;D an der Sache ist, das VBA die Mögllichkeit bietet wie in Notes zu hantieren. Was Du ja auch schon gemacht hast.

André

Axel:
Schau mal hier COM Together - with Domino

Da findest du einiges an Infos wie man Notes aus anderen Anwendungen über die COM-Schnittstelle anspricht. Vielleicht bringt dich das weiter.


Axel
 

DerAndre:
@Axel

Hab da gerade mal reingeschaut. Das ist echt nicht übel auf den ersten Blick. Das sollte Ihn gut weiterbringen  8)

André

carpri:
Hallo

der Hinweis auf diese Literatur von IBM (Redbook) ist goldig. Ich frag mich nur, wieso man nicht gleich mal bei IBM nachgeschaut hat.

Jedenfalls danke ich Euch recht herzlich.

schöne Grüße aus der (noch) sonnigen Oberlausitz und allen ein tolles Weekend
wünscht

Norbert

Navigation

[0] Themen-Index