Ich würde ich auf die allg. Problematik von Profil-Dokumente tippen.
Ruft ein Feld eines Profildokuments ab und speichert seinen Wert bis zum Ende der Sitzung im Cache.
Sub Postopen(Source As Notesuidatabase)
Dim s As New NotesSession
Dim Profil As NotesDocument
Dim DB As NotesDatabase
Dim ws As New NotesUIWorkspace
Set DB = s.CurrentDatabase
Set Profil = DB.GetProfileDocument("(DBProfil)") ' das profildokument holen
If Profil.Prof_DB_Name(0) = "" Then ' wenn das feld "Prof_DB_Name" leer ist, dann
Call ws.EditDocument(False, Profil)
Else
Msgbox Profil.Prof_DB_Name(0) ' sonst wert in messagebox anzeigen
End If
End Sub
Beim Debuggen gibts einen Fehler, dass man vom Arbeitsbereich aus das Dok nicht öffnen kann. Wenn der Debugger aus ist, gehts.
Matthias