Das Notes Forum

Domino 9 und frühere Versionen => ND6: Entwicklung => Thema gestartet von: Wiesel am 03.03.08 - 15:46:48

Titel: Maske nicht schließen
Beitrag von: Wiesel am 03.03.08 - 15:46:48

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

Titel: Re: Maske nicht schließen
Beitrag von: diali am 03.03.08 - 15:48:19

Continue = False

Titel: Re: Maske nicht schließen
Beitrag von: Thomas Schulte am 03.03.08 - 15:49:15

Continue = False setzen Dann funktioniert das auch

Titel: Re: Maske nicht schließen
Beitrag von: Wiesel am 03.03.08 - 15:51:03

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.

Titel: Re: Maske nicht schließen
Beitrag von: diali am 03.03.08 - 15:52:26

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

Titel: Re: Maske nicht schließen
Beitrag von: koehlerbv am 03.03.08 - 16:10:00

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

Titel: Re: Maske nicht schließen
Beitrag von: Wiesel am 03.03.08 - 16:14:21

QueryClose!

Das war´s!

Titel: Re: Maske nicht schließen
Beitrag von: koehlerbv am 03.03.08 - 16:16:27

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

Bernhard

Titel: Re: Maske nicht schließen
Beitrag von: diali am 04.03.08 - 06:21:19

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?

stutzig geworden.

Titel: Re: Maske nicht schließen
Beitrag von: koehlerbv am 04.03.08 - 10:20:19

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