Prüfung ob Dialog mit OK oder Abbrechen beendet.

[Axel]

Hi,

mir ist in verschiedenen Postings aufgefallen, dass immer wieder die Frage gestellt, wie prüfe ich, ob ein User einen Dialog mit OK oder Abbrechen beendet.

Mit Script gibt es zwei Möglichkeiten.

1. In der aufrufenden Routine

If workspace.DialogBox("Dialog Box", True, True, False, False, False, False, "Dialog Box", doc) Then
 'User hat mit OK beendet
Else
 'User hat mit Abbrechen beendet
End If


2. In der Dialogmaske
Man kann in QueryClose prüfen, ob der User auf OK oder Abbrechen geklickt hat.

Dazu gibt es in der Klasse NotesUIDocument die Eigenschaft DialogBoxCanceled

flag = notesUIDocument.DialogBoxCanceled

Beispiel:

Sub Queryclose(Source As NotesUIDocument, Continue As Variant)

   If Source.DialogBoxCanceled Then
'Anweisungen beim Abbrechen
   Else
'Anweisungen bei OK
   End If    

End Sub

Axel

[Christopher]

Danke Axel genau das habe ich gestern gebraucht und dann im Posting gefunden.

Gruß Christopher