DokumentCollection

[skywook]

Hallo,
in einer kategorisierten Ansicht werden Dokumente ausgewählt die an eine DokumentenCollection übergeben werden. Wenn keine Dokument (greife ich über count ab) gewählt wurde wird ein Hinweis ausgegeben. 
Aber wie kann ich eine Meldung ausgeben wenn nur die Kategorie ausgewählt wurde und kein Dokument. Kann ich das abgreifen?

[Thomator]

Hi skywook,

Du mußt halt eine ViewEntryCollection von den markierten Elementen bilden und dann beim durchlaufen für die einzelnen ViewEntries die Eigenschaft 'isDocument' prüfen.

Mit ViewEntry.Document bekommst Du dann Zugriff auf das Dokument hinter dem Entry.

Oder hab ich die Frage falsch verstanden?

Thomas

[klaussal]

Man keine "Kategorie" auswählen, sondern nur Dokumente.

klaus

[Axel]

Man keine "Kategorie" auswählen, sondern nur Dokumente.

klaus

Klar kann man eine Kategorie auswählen, nur ist die Collection dann leer. Dieses kann auch über Count geprüpft werden.


Axel

[Thomator]

Einspruch, euer Ehren!

in einer NotesUIView mit Kategorisierung kann man auch eine Kategorie markieren.

Und wenn man über einer UIView eine ViewEntryCollection bildet, sind alle betroffenen Kategorien und Unterkategorien als NotesViewEntrys mir in der Collection. Vorausgesetzt, die Kategorien werden nicht flach angezeigt...

Thomas

Edit: Oh, hier gehts ja um die DocumentCollection 

[TMC]

Edit: Oh, hier gehts ja um die DocumentCollection 

Jo 
Deswegen ist Axel's Hinweis auch goldrichtig:

Klar kann man eine Kategorie auswählen, nur ist die Collection dann leer. Dieses kann auch über Count geprüpft werden.

"If collection.Count > 0 " sollte da ein guter Ansatz sein. Die Collection = 0, wenn leer - also kein Dokument ausgewählt.

[skywook]

Hallo,

if collection.count = 0 then
messagebox .....
end if

funktioniert leider nicht wenn bei der kategorisierten Ansicht nur die Kategorie ausgewählt wurde.

[Axel]

Hi,

versuch's mal so:

....
Set doc = collection.GetFirstDocument
  If doc Is Nothing Then
       Messagebox "Zum Anlegen einer Kontaktperson muss der Markierungsrahmen" + Chr$(10) + _
      "auf dem entsprechenden Firmendokument stehen.", 48, "Adressen"
       Exit Sub
  Else
....


Axel

[Thomas Schulte]

@skywook
Mich beschleicht beim lesen deiner Threads immer mehr das Gefühl, das dir erheblich Basiswissen in der Programmierung fehlt. Wie heute schon in anderem Zusammenhang gesagt, lese doch bitte erst einmal ein oder zwei Basisbücher über Programmierung und da ist das was der Seemann empfohlen hat nicht das schlechteste.

Hier speziell habe ich den Eindruck das du den Unterschied zwischen einer DocumentCollection und einer ViewEntryCollection nicht verstanden hast. Zumindest gehst du mit keinem Wort in deinen Posts darauf ein was du denn tatsächlich verwendest.

Es wäre für alle Beteiligten wirklich wünschenswert, wenn du zum Beispiel die echten Klassennamen anstelle deiner eigenen Kreationen verwenden würdest. Eine gemeinsame Sprachbasis erleichtert die Kommunikation nämlich ungemein.

[skywook]

@Thomas
Manchmal verstehe ich dieses Forum nicht!
Ich lese hier täglich die neuen Einträge, habe einige Bücher über Lotus Script. Die ich sogar gelesen habe. Aber als Anfänger ist es schwierig alle Zusammenhänge zu verstehen. Deshalb greife ich gerne auf dieses Forum zurück. Ok, ich drücke mich manchmal vielleicht nicht wie ein Profi aus. Aber für was ist dann dieses Forum da? Um nur schlaue Fragen zu stellen?

Wenn ich wirklich etwas nicht verstanden habe, dann bitte, erklärt es mir doch. Von diesen Dingen lebt doch ein Forum! Muss ich hier ein schlechtes Gewissen haben, wenn ich hier eine Frage poste. Ist das der Sinn? Klar, ist das Zeitaufwendig. Finde ich auch super wenn man sich Zeit für solche Dinge nimmt. Aber es hat doch jeder mal Klein angefangen. Oder?

[Thomator]

Da hast Du schon Recht, aber was Thomas angesprochen hat (vor allem das mit den Klassennamen zwecks Kommunikation) ist schon wichtig.

Wir sind ja alle keine Kaffeesatz-Leser hier.

Also nicht gleich beleidigt abwenden. A bissi mehr Struktur in den Fragen und wir können Dir besser helfen...

Thomas

[Thomas Schulte]

@skywook
Thomas hat eigentlich die richtige Anwort schon gegeben.

Und ja die Einwohner (bei manchen kann man das wirklich sagen) dieses Forums helfen, wo es zu helfen gibt.

Nur gibt es Damen und Herren die es dem Helfenden etwas leichter machen und solche die es unnötig schwer machen.

Wie Thomas schon gesagt hat. E bissi mehr Struktur in die Fragen und vor allem den Folgefragen. Komplette Angaben und ein wenig intensiver nachdenken was das/die Gegenüber da gerade von sich gegeben ha(t)(ben) und Fragen lassen sich mit der Hälfte an Aufwand, Zeit und Nerven vernünftig beantworten.

[Axel]

Hi,

nicht gleich aufregen und einen kühlen Kopf behalten.

@skywook
Hast du eigentlich meinen Vorschlag aus Antwort #7 mal probiert?
Wenn's nicht funktioniert, dann poste doch mal das relevante Stück Code.


Axel

[skywook]

Ok, habs verstanden und werde die Dinge fürs nächste mal beachten.

@Axel
Hat leider nicht funktioniert. Habs mit Deinem letzten Tipp versucht, mit = 0 und mit = "". Alles vergebens. Hier mein Code:

Sub Initialize
Dim ordner As String
Dim auswahl As Integer   
Dim session As New NotesSession
Dim ws As New NotesUIWorkspace   
Dim db As NotesDatabase
Dim collection As NotesDocumentCollection
Dim doc As NotesDocument
Dim newdoc As NotesDocument
   
Set db = session.CurrentDatabase
Set collection = db.UnprocessedDocuments
Set doc = collection.GetFirstDocument

' Diese Abfrage wird übergangen
If collection.Count = 0 Then
   Messagebox "Sie haben kein Dokument markiert!",0 + 16,"Achtung"
   Exit Sub
End If
........   
   

[Thomator]

Hi skywook,
lass Dir doch mal in einer MsgBox den collection.Count ausgeben und schau nach, wann dat Dingen 0 ist und wann nicht.

Thomas

[skywook]

Hi Thomator,
habe ich versucht. Aber wenn der User ausversehen nur die Kategorie auswählt. Wird die Abfrage collection.count = 0 übergangen. Auch wenn ich die Anzahl vorher in einer msgbox ausgebe wird diese nicht einmal angezeigt.

Habe ich Dokumente ausgewählt. Wird mir die Anzahl in der msgbox korrekt angezeigt. 

[Semeaphoros]

Ist der Code vollständig oder gibts da irgendwo ein On Error?

Wenn nur Kategorien ausgewählt werden, ist dann die UnprocessedDocuments instantiiert oder ist sie "Nothing"? kannst Du im Debugger überprüfen.

[eknori]

ich hab es mit dem Schnipsel probiert; funzt einwandfrei

[dirk_2909]

Hallo

Frag doch noch ab ob die collection überhaupt initialisiert wurde:

if coll is Nothing Then
    msgbox " :-( "
elseif coll.Count = 0 Then
    msgbox " :-| "
else
    msgbox " :-) "
end if

Ich hoffe das hilft.

Dirk

[Thomator]

Hi skywook,

mich beschleicht da eine dunkle Ahnung.
Kann es sein, dass vorher im code noch irgendwo auf ein Objekt zugegriffen wird, das Nothing ist?
Ich hatte vor langer, langer Zeit auch einmal einen Fall, wo ich nach einer while not doc is nothing-Schleife mal auf doc zugegriffen habe.

Das hat dann auch die Auswirkung gehabt, dass nachfolgende Message-Boxen ohne Fehlermeldung einfach übersprungen wurden.

Kannst Du das mal prüfen?

Thomas