Domino 9 und frühere Versionen > ND7: Entwicklung

Postopen Problem

<< < (4/4)

koehlerbv:
Das stimmt wohl, dass das PostOpen nicht immer durchlaufen wird - in diesem Fall aber auf jeden Fall, sonst würde das ProfileDocument ja nicht geöffnet ...

Bernhard

wittmann_franz:
Script kann ich leider nicht sehr gut.

Kann mir jemand zum Test die Formel in Script umschreiben.?

Vielen Dank

botschi:

--- Code: ---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
--- Ende Code ---

Beim Debuggen gibts einen Fehler, dass man vom Arbeitsbereich aus das Dok nicht öffnen kann. Wenn der Debugger aus ist, gehts.


Matthias

wittmann_franz:
Da bin ich wieder,

mit dem Script hat es geklappt.
Vielen Dank dafür.

Aber gibt es für dieses Phänomen irgendeine Erklärung, warum die Formel nicht mehr funktioniert?

Navigation

[0] Themen-Index

[*] Vorherige Sete