Wie kann man eine geöffnet DB mit LS schliesen

[D. Roth.]

Hallo zusammen,
wie kann man eine geöffnet DB mit LS schliesen. (z.b die bookmark.nsf)

mfg neon

[Glombi]

Das geht mit Script erst mit Notes 6.
In R5 musst Du das mit Formelsprache oder der WinAPI machen.

Andreas

[Semeaphoros]

Wobei der Close via Script oder Formel ein NOP ist, also auch nichts bewirkt. Der Notes-Kernel schliesst die Datenbank dann, wenn es ihm passt.

[D. Roth.]

Hat jemand WinAPI Beipsiel dafür

[diali]

unter Notes 5 habe ich es damals so gelöst. Allerdings hatte ich nur ein Fenster offen.

Declare Function NEMGetCurrentSubprogramWindow Lib "nnotesws.dll" () As Long
Declare Function NEMStopSubprogramWindow Lib "nnotesws.dll" (Byval hwnd As Long) As Integer
Sub Click(Source As Button)
   Dim wHandle As Long
   wHandle = NEMGetCurrentSubprogramWindow ' Get window handle
   Call NEMStopSubprogramWindow(wHandle) ' Close current window
End Sub

Dabei wird das aktuelle Fenster geschlossen.

[Semeaphoros]

Das schliesst das Fenster, aber nicht die Datenbank. Ausserdem lässt sich das aktuelle Fenster über NotesUIDocument.Close bzw. NotesUIview.Close durchaus schliessen. Die WinAPI brauchts nur, wenn es sich nicht um das aktuelle Fenster handeln soll.