Private Sub Grid1_AfterCellEdit(nRow As Long, nCol As Long, ByVal sText As _
  String)
  ' Abbruch?
  If StrPtr(sText) = 0 Then Exit Sub
 
  ' Datum prüfen
  If nCol = 1 Then
    If Len(sText) = 0 Then
      MsgBox "Bitte unbedingt das GebDatum eingeben!"
      Grid1.SendKeys vbKeyTab, 1
    End If
  End If
End Sub

Private Sub Grid1_EditKeyDown(KeyCode As Integer, Shift As Integer)
  If KeyCode = vbKeyTab Then
    ' Geb.Datum prüfen
    If Grid1.Col = 1 And Grid1.IsEditMode = MODE_EDIT Then
      If Len(Trim$(Replace(Grid1.EditText, ".", ""))) = 0 Then
        KeyCode = 0
        MsgBox "Bitte unbedingt das GebDatum eingeben!"
      End If
    End If
  End If
End Sub

Private Sub Grid1_EditKeyPress(KeyAscii As Integer)
  If KeyAscii = 13 Then
    If Grid1.Col = 1 Then
      If Grid1.IsEditMode = MODE_ADDNEW Then
        KeyAscii = 0
        Grid1.SendKeys vbKeyTab, 0
      Else
        ' Geb.Datum prüfen
        If Len(Trim$(Replace(Grid1.EditText, ".", ""))) = 0 Then
          KeyAscii = 0
          MsgBox "Bitte unbedingt das GebDatum eingeben!"
        End If
      End If
    End If
  End If
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de