title image


Smiley Re: oder nur blond...:-))
Try this:



Der Code öffnet auf dem Dominoserver "YourDominoServer" die DB "names.nsf", geht in die Ansicht "People" und marschiert alle Dokumente durch. Von jedem Dokument wird LastName und FirstName in ein Listenfeld "lstResult" auf der Form geschrieben.



Den Code habe ich hinter einen Button auf der Form gelegt.





Dim nSession As NotesSession

Dim pubNAB As NotesDatabase

Dim nPeople As NotesView

Dim nPerson As NotesDocument



Set nSession = New NotesSession

Call nSession.Initialize



Set pubNAB = nSession.GetDatabase("YourDominoServer", "names.nsf")

Set nPeople = pubNAB.GetView("People")

Set nPerson = nPeople.GetFirstDocument

While Not (nPerson Is Nothing)

  lstResult.AddItem nPerson.GetItemValue("LastName")(0) & " " & nPerson.GetItemValue("FirstName")(0)

  Set nPerson = nPeople.GetNextDocument(nPerson)

Wend





cu



Jörg

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: