einziges Dokument einer Ansicht automatisch öffnen

[martin72]

Lässt es sich einrichten, dass beim Aufruf einer best. Ansicht automatisch das einzige Dokument dieser Ansicht bzw. das erste Dokument falls mehrere vorhanden sind, geöffnet wird?

[eknori]

Postopen Event der Ansicht:

Sub Postopen(Source As Notesuiview)
   Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim workspace As New NotesUIWorkspace
   Dim collection As NotesDocumentCollection
   Dim doc As NotesDocument
   Dim uiview As NotesUIView
   Set db = session.CurrentDatabase
   Set uiview = workspace.CurrentView
   Set collection = db.AllDocuments
   Set doc = collection.GetFirstDocument
   Call uiview.SelectDocument(doc)
   Call workspace.EditDocument(False, doc)
End Sub

(ist übrigens aus der Designer Hilfe kopiert )

[martin72]

Erstmal, guten Morgen und Danke.

Aber, sorry:

"Postopen Event der Ansicht" ist mir noch nicht so geläufig. Wo ist diese Anweisung zu platzieren in der Ansichtsdefinition?

[eknori]

im PostOpen event der Ansicht

[martin72]

habs gefunden.

Die Anweisung führt allerdings dazu, dass nicht das erste Dokument dieser Ansicht sondern irgendein Dokument geöffnet wird, das in dieser Ansicht gar nicht enthalten ist.

[ascabg]

Hallo,

Dann aender den Code mal folgendermassen ab.

ab

Code

Set uiview = WorkSpace.CurrentView
Set view = uiview.View
Set doc = view.GetFirstDocument
Call Workspace.EditDocument(False, doc)

oder

Code

Set uiview = WorkSpace.CurrentView
Set doc = db.GetDocumentByID(uiview.CaretNoteID)
Call Workspace.EditDocument(False, doc)

Andreas

[BigWim]

Und so?

Sub Postopen(Source As Notesuiview)
   Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim workspace As New NotesUIWorkspace
   Dim collection As NotesDocumentCollection
   Dim doc As NotesDocument
   Dim uiview As NotesUIView
   Dim view as NotesView
   Set db = session.CurrentDatabase
   Set uiview = workspace.CurrentView
   Set view = uiview.view
   Set doc = view.GetFirstDocument
   Call uiview.SelectDocument(doc)
   Call workspace.EditDocument(False, doc)
End Sub

Markus

[martin72]

Danke Andreas, hat mit deiner Variante leider nicht geklappt, (Script-Fehler-Meldung)

Danke Markus, hat geklappt.


 

[eknori]

Und jetzt haben wir wieder den typischen Fall: Fremden Code kopiert, ohne zu verstehen, was der genau macht. Nix gelernt.
Bei mir hat mein Code übrigens funktioniert. Und mit etwas Nachdenken kommt man auch dahinter, warum.

Sorry für den Spruch, ist nicht bös' gemeint; habe nur schlechte Laune im Moment.

[ascabg]

Mit welcher von beiden?
Und welche Meldung?


Andreas

[martin72]

@ Andreas

die erste Variante hat nicht geklappt. Hab die zweite jetzt auch noch versucht. Klappt.

Bei der ersten Variante wird beim Speichern der Ansicht ein Script-Fehler in Zeile 10 angemeckert.


@eknori
Mir ist der Hintergrund der Bemerkung "nichts dazugelernt" wohl bewußt. Völlig blöd bin ich aber auch nicht. Selbst wenn ich die ganze Script-Anweisung nicht seziere und problemlos in einer anderen Problemstellung anwenden kann, so ist mir doch zumindest jetzt bewußt, dass das PostOpenEvent eine ganz nützliche Einrichtung ist.

Ja, wirklich. Es gibt Notes-Administratoren, die auch nach 13 Jahren noch nichts von PostOpenEvents gehört haben, weil sie sich auch noch mit anderen Dingen am Arbeitsplatz beschäftigen müssen.

Allein für die PostOpen-Events schon mal ganz herzlichen Dank für die geopferte Zeit an alle hilfsbereiten Forums-Teilnehmer.

[ascabg]

Kannst Du mal Deine erste Variante, den Code, posten?
Dann kann ich dir eventuell auch sagen, wo der Hund begraben liegt.


Andreas

[BigWim]

Und mit etwas Nachdenken kommt man auch dahinter, warum.

Ich will's versuchen!

Meine Vermutung: Diese Version funktioniert "nur" dann, wenn in der Ansicht alle Dokumente dargestellt werden.

Markus

[martin72]

@ Andreas

Sorry, war ein einfacher Tipp-Fehler von mir. Jetzt klappen alle mir angebotenen Lösungs-Varianten.

danke nochmal dafür.