Hallo Gregor,
und wie wäre es, statt das Dokument im rechten Frame anzuzeigen, es mit
Dim wks As New NotesUIWorkspace
Dim db As NotesDatabase
Set db = wks.Currentdatabase.Database
Dim doc As NotesDocument
Set doc = db.Createdocument()
With doc
.form = "Test"
.Feld1 = "Here we are"
.Feld.. = "Noch ein Feld"
End With
Call wks.Dialogbox("Test", true, true, true, true, true, true, "Titel", doc)
anzuzeigen ? Das letzte "true" steht für Readonly.
CU,
Axel
Wenn Du Dich mit einer Maske einfacher tust als mit einer Seite, dann kannst Du auch noch einen geringfügig anderen Weg gehen:
Gestalte Deine Maske.
Sag ihr, dass sie immer in gewünschten Frame geöffnet werden soll (verwende die Standardbezeichner, rechts also - wenn machbar - NotesView)
Verstecke die ActionBar für den ReadMode
Lass QueryModeChange immer im Continue = False verröcheln
In der Outline rufst Du einen Code wie diesen in der Outline Entry über einen Agent auf:
Sub Initialize
Dim ses As New NotesSession
Dim wks As New NotesUIWorkspace
Dim dbCurrent As NotesDatabase
Dim docReadOnly As NotesDocument
Dim uidocReadOnly As NotesUIDocument
On Error Goto ErrorRoutine
Set dbCurrent = ses.CurrentDatabase
Set docReadOnly = dbCurrent.CreateDocument
docReadOnly.Form = "MyRODocument"
docReadOnly.SaveOptions = "0"
Set uidocReadOnly = wks.EditDocument (False, docReadOnly)
Exit Sub
ErrorRoutine:
Call ErrorHandler ("Open MyRODOcument")
Exit Sub
End Sub
Selbstverständlich kann man das Prinzip dann noch beliebig verfeinern, aber wie ich Dich kenne, ist Dir das Prinzip schon klar.
HTH,
Bernhard