Problem mit PickListCollection

[Markus Henke]

Hallo,

folgender Code soll eine PicklistCollection (also eine Ansicht) öffnen.

_{Dim ws As New NotesUIWorkspace
   
   Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim userDoc As NotesDocument
   Dim auditCol As NotesDocumentCollection
   Dim auditDoc As NotesDocument
   
   'Variablen
   Dim AddAuditReaders As Variant
   
   Set db = session.CurrentDatabase
   Set userDoc = ws.CurrentDocument.Document
   
   Set auditCol = ws.PickListCollection(1, True, db.Server,db.FilePath,_
   "(LUpAuditsBySpecifiedReaderAccess)","Grant reader access", _
   "Please select the auditdocuments you want to give the user access to.", userDoc.userName(0))
   
   If auditCol.Count = 0 Then
      Exit Sub
   End If
.......}

Ich möchte nur eine einzelne Kategorie sehen (userDoc.userName(0)). Obwahl Ansichtsname richtig ist und der UserName eine Kategorie in der Ansicht ist, wird kein einziges Dokument angezeigt. Das komische ist, dass es mal funktioniert hat. Ich habe dann weiter unten im Code etwas verändert und seitdem geht es nicht mehr.

Hat einer eine Idee?

Gruß
Markus

[Axel]

Hi,

stimmt die Schreibweise des Usernamen im Feld und in der Ansicht überein? Ist der Username die erste Kategorie in der Ansicht?

Komprimier die Datenbank mal und lösche dabei auch den Ansichtenindex. Wenn das nix hilft, bau mal die Ansicht neu.


Axel

[Markus Henke]

Hallo,

es stimmte alles und ich habe auch die DB komprimiert. Trotzdem gings nicht. Ich habe mich jetzt dazu entschieden das ganze anders zu programmieren (das hat sich unabhängig davon so ergeben).

Trotzdem Danke.

Ich werden den Thread schließen.

Gruß
Markus