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
