Das geht viel viel einfacher. In Script sind das wenige Zeilen Code. z.B. wenn der Button in einem Agenten steht, der über eine Ansichtsaktion mit @Command([RunAgent] ; "(OeffneHauptdokument)" ) aufgerufen wird:
Dim ws as New NotesUIWorkspace
Dim ses as New NotesSession
Dim db as NotesDatabase
Dim dc as NotesDocumentCollection
Dim doc as NotesDocument
Dim docParent as NotesDocument
Dim strUnid as String
Set db = ses.CurrentDatabase
Set dc = db.UnprocessedDocuments
Set doc = dc.GetFirstDocument
strUnid = doc.Getitemvalue( "db_detail_DocID " )(0)
Set docParent = db.GetdocumentByUnid( strUnid )
Call ws.EditDocument( False, docParent )
Natürlich hat der Code keinerlei Errorhandling und sollte nur als Anhaltspunkt dienen. Ausserdem solltest Du versuchen, den Code zu verstehen, bevor Du ihn einsetzt, aber als (funktionierenden) Startpunkt kannst Du das gerne verwenden. Ach ja: Den Code habe ich im Browser getippt, Tippfehler sind also durchaus möglich...