Domino 9 und frühere Versionen > ND6: Entwicklung

Felder setzen

<< < (3/6) > >>

animate:
also in dem Kontext gibt UnprocessedDocuments eine Collection mit 0 Dokumenten zurück
in der Hilfe steht, wie du an das Dokument kommst, das der Benutzer öffnen möchte:
falls du die Hilfe noch nicht hast:

Die Klasse NotesUIView hat ein Attribut Documents:

Read-only. The documents that are currently selected in a view.

Data type
NotesDocumentCollection

Syntax
To get: Set notesDocumentCollection = notesUIView.Documents

Wenn du das Attribut im QueryOpenDocument-Event benutzt gilt für das Documents-Attribut folgendes:
The Documents property contains one document, the document the user wants to open.

TripleH:
Hi,
Postmoker oh du bist heut der aktivste Mann.
Wie kann ich das je wieder gut machen!?Ja das hast du gut in Erinnerung das ist mein großes Prob ihne Hilfe.
Ich les im Netzt und ww.anton-tauscher.de
hilft mir nen bißchen.So hab jetzt deine Zeile wie folgt eigefügt.und bekommen jetzt sogar schon mal ne Fehlermeldung
"Variant does not contain an object"
Das hängt mit deinem letten Satz zusammen.
Ich war in den Maskeneigenschaften gewesen aber kann dort diese Attributeinstellung nicht finden:) Hab ich was mißvertanden ?Du meintest doch bei den MaskenOptionen ?

Set s = New NotesSession
  Dim db As notesdatabase
  Set db = s.CurrentDatabase  
  Dim c As NotesDocumentCollection
  Set c = db.UnprocessedDocuments
  Dim doc As NotesDocument
   Set notesDocumentCollection = notesUIView.Documents
 
  Set doc= c.GetFirstDocument
  While not (doc is nothing)

    Call doc.ReplaceItemValue("Status","Bitte")
    Call doc.Save(True,True)

    Set doc= c.GetNextDocument(doc)
  Wend

animate:
Dein Problem ist die Zeile
Set notesDocumentCollection = notesUIView.Documents

notesUIView steht wie notesDocumentCollection als Platzhalter für ein Objekt der entsprechenden Klasse.
Das Objekt, das du benötigst wird der Funktion QueryOpenDocument übergeben (Source)

wenn du damit noch nicht klarkommst

Beispiel aus der Hilfe
Sub Queryopendocument(Source As Notesuiview, Continue As Variant)
  Dim docs As NotesDocumentCollection
  Dim doc As NotesDocument
  Set docs = Source.Documents
  Set doc = docs.GetFirstDocument
  If Ucase (doc.Categories(0) ) <> Ucase (workArea) Then
    Continue = False
  End If
End Sub

TripleH:
Hallo!
Oh Thomas. Kannst du mich nicht noch mit der Nase drauf stoßen?
Also notesUIView  steht als Platzhalter.
Aber tut mir Leid ich blicke jetzt hier nicht ganz hinter das Problem ich schau auf meinen Quelltext und seh jetzt nicht ganz was da zu verbessern ist.
Kannst du mir nochmal helfen weil dann könnt ich schon ne ganze ecke mehr schaffen heut.
Wär super nett.
Gruß

Basti

TripleH:
Hi, kann sich jemand noch mal dieser Topic zuwenden, da es sich hier um mein Hauptproblem handelt.
Kann jemand mir nicht mal zeigen wie der Quelltext richtig lläuft mit der Zeile
Set notesDocumentCollection = notesUIView.Documents
 da ich anhand des Quelltextes nicht ganz den Sinn erkennen kann.
Das wär super nett.

Gruß

Basti

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete