Moin!
Versuch mal im Ansichtsereignis "QueryopenDocument" das entsprechende Dok mit der Dialogbox zu öffnen. Wenn keins da ist muss ein neues created werden.
Bsp:
......
Dim doc As NotesDocument
Set doc = uidoc.Document
Set coll = Source.Documents
Set docpos = coll.GetFirstDocument
if docpos is Nothing Then
'hier neues Dic erzeugen
End if
Dim intFlag As Integer
If uidoc.Editmode And uidoc.FieldGetText("Server")<>"" Then
docpos.Server=doc.Server
intFlag=ws.DialogBox( "MAskenname", True, True, False, False, False, False, "Titel", docpos, True)
Ich hoffe das Hilft. Oder habe ich das falsch verstanden?
Dirk