Domino 9 und frühere Versionen > Entwicklung

Name in die Gruppe hinzufügen

(1/7) > >>

Selin:
Hallo Zusammen,

ich habe eine Datenbank, die auf der Adressbuchschablone basiert.
Habe ein zusätzliches Feld Gruppe eingefügt.
Das Feld ist ein Listfeld mit der Formel
@Right(@DbColumn("":"NoCache"; ""; "Gruppe"; 1);"_")
Die Gruppennamen fangen alle mit ABC_ an.Deshalb @Right...

Mir werden in der Liste nun alle Gruppen angezeigt.
Was ich versuche ist folgendes:
Wenn ich eine oder mehrere Einträge in dem Listfeld markiere(Mehrfachauswahl möglich), soll dieser Kontakt, z.B. nach Klick auf einen Knopf, in die markieren Gruppen hinzugefügt werden.

Wie kann ich das am besten machen?
Bitte um Hilfe.

Danke + Gruß
Selin

Axel:
Hi,

ohne mir tiefergehende Gedanken gemacht zu haben, könnte das ganz grob gesehen so aussehen:

Du brauchst eine nach Gruppennamen sortierte Ansicht im globalen Adressbuch. Die ist aber glaube ich schon vorhanden.

Mit GetDocumentbyKey("GruppennameausderListe incl ABC_",True) aus der NotesView-Klasse holst du dir das Zugriff auf das entsprechende Gruppendokument. Dann kannst du den Namen in das Members-Feld anhängen.

Ganz nebenbei gefragt: hat derjenige der das machen soll auch Autorenrechte auf das Adressbuch?


Axel

Selin:

--- Zitat von: Axel am 08.03.05 - 13:00:21 ---
Mit GetDocumentbyKey("GruppennameausderListe incl ABC_",True) aus der NotesView-Klasse holst du dir das Zugriff auf das entsprechende Gruppendokument. Dann kannst du den Namen in das Members-Feld anhängen.


--- Ende Zitat ---

GetDocumentbyKey("GruppennameausderListe incl ABC_",True) => meinst du hier den Feldnamen aus der View Gruppe?

Und wie hänge ich den Namen des Members an?


Die User haben Autorenrechte.

Axel:
Hi,

bei GetDocumentByKey kommt der Feldname, der die Gruppenliste enthält rein. Zusätzlich musst du aber noch, da du das in der Liste abgeschnitten hast, "ABC_" davorsetzen.

Das kann so aussehen:

Set docGroup = view.GetDocumentByKey("ABC_" & doc.ListenFeld(0), True)

Das Anhängen der Namen an das Members-Feld kann so aussehen:


Dim item As NotesItem

Set item = docGroup.GetFirstItem( "Members" )
Call item.AppendToTextList( "Hugo Test" )



Axel
 



 

Selin:
Danke Dir

>>Set docGroup = view.GetDocumentByKey("ABC_" & doc.ListenFeld(0), True)

Hier hat er noch ein  Problem
Habe alles angepasst aber kann aufgrund von Fehlern nicht abspeichern

Navigation

[0] Themen-Index

[#] Nächste Seite