Private Sub Grid1_BeforeAddNew(Cancel As Integer)
' Wird ausgelöst, bevor eine neue Datenzeile gespeichert wird, wird nach 
' Before_Update ausgelöstDim 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
 
    .Col = .GetCol("GueltigAbVerkaufsmenge")
    Exit Sub
  End If
...

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de