Domino 9 und frühere Versionen > ND7: Entwicklung

ESC verhindern

<< < (2/2)

vbis:
Vielen Dank für Eure Hilfe,

das hat mir alles sehr gut weitergeholfen und zusammen mit der Designer-Hilfe habe ich jetzt folgendes implementiert:

Dim workspace As New NotesUIWorkspace
   Dim uidoc As NotesUIDocument
   Set uidoc = workspace.CurrentDocument
   
   If uidoc.EditMode = True Then
      If Msgbox("Wollen Sie wirklich abbrechen, ohne Ihre Änderungen zu speichern?", 4,"Abbrechen?") = 7 Then
         continue = False   
      End If
   End If
Das klappt exakt so, wie ich es wollte!

Also nochmal besten Dank und viele Grüße!

ascabg:
Hallo,

Eine kleine Frage zu Deinem Script.

Wo in Deiner Form hast Du dieses implementiert?


Andreas

vbis:
Hallo Andreas,

eine Kleinigkeit fehlte noch.

Ich hatte es im Queryclose. Konnte dann aber nicht mehr speichern....

Habe jetzt eine Kombination aus beiden Tipps verwendet und es hat geklappt:

Im Queryclose:

Dim workspace As New NotesUIWorkspace
   Dim uidoc As NotesUIDocument
   Set uidoc = workspace.CurrentDocument
   
   If uidoc.FieldGetText( "Speichern_ist_OK" ) = "" Then
      If uidoc.EditMode = True Then
         If Msgbox("Wollen Sie wirklich abbrechen, ohne Ihre Änderungen zu speichern?", 4,"Abbrechen?") = 7 Then
            continue = False   
         End If
      End If
   End If


Und im Postmodechange:

Dim session As New NotesSession
   If source.EditMode Then
      Call source.FieldSetText _
      ( "Speichern_ist_OK", "" )
   End If


Im Speicherbutton steht dann einfach u.a.:

@SetField("Speichern_ist_OK" ; "Speicherbutton_wurde_verwendet")


Das neue Feld Speichern_ist_OK hat keinen Vorgabewert.

Ich denke so haben die Anwender einen wesentlich besseren Komfort.

Vielen Dank nochmals!

Navigation

[0] Themen-Index

[*] Vorherige Sete