Maske nicht schließen

[Wiesel]

Hallo!

Wie sage ich es Notes, dass wenn ich auf "nein" klicke, dass es in der Maske stehen bleiben soll und diese nicht schließt?

Ich habe folgenden Script dazu:

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
         End
      End If
   End If
End Sub

Egal, was ich mache, das Dokument wird trotzdem geschlossen.

Danke und Gruß,
Wiesel

[diali]

Continue = False

[Thomas Schulte]

Continue = False setzen Dann funktioniert das auch

[Wiesel]

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
      End If
   End If
End Sub

Hab ich auch schon gemacht, funzt nicht. Notes schließt trotzdem das Dokument.

[diali]

dann darfst Du es nicht im QuerySave abfangen sondern im QueryClose.

[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

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

Wie sage ich es Notes, dass wenn ich auf "nein" klicke, dass es in der Maske stehen bleiben soll und diese nicht schließt?

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