Domino 9 und frühere Versionen > ND8: Entwicklung

einziges Dokument einer Ansicht automatisch öffnen

<< < (2/3) > >>

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)

--- Ende Code ---

oder

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

--- Ende Code ---



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

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete