Hast Du immer noch das
if not source.DialogBoxCanceled
im Code der Maske für die Dialogbox? Das gehört da nicht hin, weil eine Dialogbox nicht auf sich selbst reagieren kann.
Bernhard
Hallo Bernhard,
ich wiederspreche so aktiven wie Dir nur äußerst ungern, aber dafür ist auch laut Hilfe die Funktion gedacht.
You can access this property when the NotesUIDocument processes the QueryClose event from a document that has been brought up in a dialog.
Wenn ich von "aussen" wissen möchte, ob eine Dialogbox z.B. mit Abbrechen beendet wurde geht das doch über
if not ws.dialogbox("dialodmaske",doc,......) then
oder nicht?
Wie gesagt, über die Standardschaltflächen funktioniert das auch hervorragend. Habe das dialogboxcanceld auch schon in mehreren Datenbanken verwendet, aber immer über die Standardschaltflächen.
Hallo Bernhard,
vielen Dank für das Angebot mein Problem nachzustellen.
In einer Maske rufe ich über eine Schaltfläche folgenden Code auf:
Dim ws As New NotesUIWorkspace
Dim session As New NotesSession
Dim db As Notesdatabase
Dim doc As NotesDocument
Dim uidoc As NotesUIDocument
Set uidoc = ws.CurrentDocument
Set doc = uidoc.Document
Set db = session.CurrentDatabase
Dim diadoc As New NotesDocument(db)
If ws.DialogBox("pv.dialog.vermittler",True,True,True,False,False,False," ",diadoc,True, False) Then
diadoc.form="pv.form.vermittler"
Call diadoc.MakeResponse(doc)
Call diadoc.Save(True,True)
Call uidoc.Refresh
End If
end sub
In der aufgerufenen Maske ist das Feld Vermittler enthalten.
Im queryClose der Maske steht folgender Code:
Dim fehler$
If Not source.DialogBoxCanceled Then
If source.Document.Vermittler(0)="" Then fehler = fehler + "Es wurde kein Vermittler angegeben."+Chr$(13)
If fehler <>"" Then
Messagebox "Bei der Prüfung der eingegebenen Daten ist/sind folgende(r) Fehler aufgetreten:"+Chr$(13)+fehler+Chr$(13)+Chr$(13)+"Bitte berichtigen Sie Ihre Eingaben oder schließen Sie den Dialog duch 'Abbrechen'"
continue = False
End If
End If
Zusätzlich besitzt die Maske innerhalb einer Tabelle zwei Schaltflächen - eine vom Typ Abbrechen, die andere vom Typ OK.
Auf der Abbrechen-Schaltfläche liegt die Formel "@Command([FileCloseWindow])" mit der OK-Schaltfläche habe ich mehrere Varianten im Bereich Script und Formel versucht, jedoch ohne korrektes Ergebnis.
Als Notes-Version ist 7.03 im Einsatz.
Sorry, das ich immer wieder meinen Namen vergesse.
Erik