Das Notes Forum
Domino 9 und frühere Versionen => ND6: Entwicklung => Thema gestartet von: carpri am 17.08.06 - 22:38:24
-
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
-
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é
-
Schau mal hier COM Together - with Domino (http://www.redbooks.ibm.com/abstracts/sg245670.html?Open)
Da findest du einiges an Infos wie man Notes aus anderen Anwendungen über die COM-Schnittstelle anspricht. Vielleicht bringt dich das weiter.
Axel
-
@Axel
Hab da gerade mal reingeschaut. Das ist echt nicht übel auf den ersten Blick. Das sollte Ihn gut weiterbringen 8)
André
-
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