Problem mit Queryclose in Formular

[seerow]

Morgen,

ich habe in ein Formular das plaer applet eingebaut. Aber scheinbar hat Notes Probleme mit dem schließen
der Form wenn der Focus auf den Applet liegt (Notes schmiert ab *kotz*).

Also habe ich über die queryclose Anweisung folgendes script eingebaut:

Sub Queryclose(Source As Notesuidocument, Continue As Variant)
   Dim ws As New notesuiworkspace
   Dim erg
   
   Call Source.gotofield("bug")
   erg = ws.prompt(Prompt_yesno,"Schließen", "Möchten Sie das Fenster schließen?")
   If (erg = 0) Then continue = False
End Sub

funktioniert auch wunderbar, aber sobald ich nicht im Edit Modus bin un die Form dann schließe, bekomme
ich die Warnung "Document command not available".

Wie kann ich das nur fixen??

[Semeaphoros]

If Source.EditMode Then
 ....

End If

[seerow]

funkst  

man, dass man da nicht selber drauf kommt.....