Private Sub sevGrid_Bestellliste_RowLoaded(ByVal nRow As Long, Item As Object)
With sevGrid_Bestellliste
  If .Recordset.Fields("Bestellt").Value = False Then
       .text(nRow, "Bestellmenge") = ""
  End If
End With

Private Sub sevGrid_Bestellliste_AfterUpdate(ByVal nRow As Long, ByVal nCol As _
  Long, ByVal sText As String)
With sevGrid_Bestellliste
  If nCol = .GetCol("Bestellt") Then
    If CBool(sText) = True Then
      .DoEdit .Row, .GetCol("Bestellmenge")
      .EditSelect
    End If
  End If
End With

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If Me.ActiveControl Is sevGrid_Bestellliste Then
    With sevGrid_Bestellliste
      Select Case KeyCode
        Case vbKeyPageUp, vbKeyPageDown, vbKeyHome, vbKeyEnd
          If .IsEditMode = 0 And .IsFilterMode = False Then
            .SendKeys KeyCode, Shift
          End If
          KeyCode = 0
 
        Case vbKeyReturn
          If .IsEditMode = 0 And .IsFilterMode = False Then
            ' EditMode starten
            KeyCode = 0
            .DoEdit .Row, 2
 
          ElseIf .IsFilterMode = True Then
            ' Filter übernehmen
            KeyCode = 0
            .SendKeys vbKeyReturn, 0
 
          Else
            ' Im EditMode per ENTER zur nächsten Spalte wechseln
            KeyCode = 0
            SendKeys "{TAB}"
          End If
 
        Case vbKeyEscape
          If .IsEditMode Then
            ' EditMode beenden
            KeyCode = 0
            .AbortEdit
          ElseIf .IsFilterMode Then
            ' Filtermode beenden
            KeyCode = 0
            .SendKeys vbKeyEscape, 0
          End If
 
        Case vbKeyDelete
          If .IsEditMode = 0 And .IsFilterMode = False Then
            ' Datensatz löschen
            KeyCode = 0
            .SendKeys vbKeyDelete, 0
          End If
      End Select
    End With
  End If