Domino 9 und frühere Versionen > ND6: Entwicklung

Maske nicht schließen

<< < (2/2)

koehlerbv:
Dirk, da muss man nicht das QuerySave bemühen (dann wären ja eh alle Messen gelesen). Was hier fehlt ist ein Exit Sub an der richtigen Stelle:


--- Code: ---Sub Querysave(Source As Notesuidocument, Continue As Variant)
   Dim readflag As Integer
   If Source.FieldGettext("txtStatus") = "in Erstellung" Then
      readflag = Msgbox("Möchten Sie die Anforderung ohne Weiterleitung speichern?",20, "Hinweise")
      If readflag = 7 Then
         Continue = False
         Exit Sub
      End If
   End If
End Sub
--- Ende Code ---

Bernhard

Wiesel:
QueryClose!

Das war´s!

koehlerbv:
Das ist es NICHT! Du konterkarierst damit Dein eigentliches Anliegen - das Speichern zu verhindern.

Bernhard

diali:
ich dachte auch sie wollte das Speichern verhindern, aber dann bin ich bei dem Satz
--- Zitat ---Wie sage ich es Notes, dass wenn ich auf "nein" klicke, dass es in der Maske stehen bleiben soll und diese nicht schließt?

--- Ende Zitat ---
stutzig geworden.

koehlerbv:
Mit einem richtig eingebauten Continue = False im QuerySave wird ja nicht nur das Speichern verhindert, sondern auch das Schliessen der Maske. Ich bezog das "Nein" allerdings auf das Messagebox. Wenn das "Speichern = Nein" abgefangen werden soll, dann ist es natürlich das QueryClose. Aber dann hätte man bestimmt nicht diesen Code gepostet.

Bernhard

Navigation

[0] Themen-Index

[*] Vorherige Sete