Private Sub Grid1_BeforeAddNew(Cancel As Integer)
' Wird ausgelöst, bevor eine neue Datenzeile gespeichert wird, wird nach 
' Before_Update ausgelöst
Dim nResult As Integer
   With Grid1
      If Val(.CellNew("GueltigAbVerkaufsmenge")) = 0 Then
         MsgBox "Bitte tragen Sie einen in das Feld 'ab Menge' ein!", vbOKOnly _
           + vbInformation, AppName2
         Cancel = 2
         .DoEdit .Row, .CellNew("GueltigAbVerkaufsmenge")
         Exit Sub
      End If
 
...