Sub Querysave(Source As Notesuidocument, Continue As Variant) If ( source.FieldGetText( "Feldname" ) = "0" ) Then Dim twoLiner As String twoLiner = |Sie haben die Erfassung mit ESC verlassen und versuchen nun zu speichern! Das dürfen Sie nicht tun! Ein Beenden der Bearbeitung ist nur über die Buttons möglich!| Messagebox twoLiner,16,"Unerlaubte Aktion!" continue = False End If End Sub