Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
  ' Tastatur-Navigation im DataGrid
  If Me.ActiveControl Is frmLeadquellen_sevgridLeadquellen Then
    With frmLeadquellen_sevgridLeadquellen
      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 frmLeadquellen_sevgridLeadquellen.Row, 1
 
          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
            frmLeadquellen_sevgridLeadquellen.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
End Sub
 
 
Private Sub frmLeadquellen_btnHinzufügen_Click()
 
    'Neue Datenzeile hinzufügen: Beginn mit Spalte "IDLeadquelle"
    Me.frmLeadquellen_sevgridLeadquellen.AddNew "IDLeadquelle"
 
End Sub
 
 
Private Sub frmLeadquellen_sevgridLeadquellen_BeforeAddNew(Cancel As Integer)
  Dim nResult As Integer
 
  nResult = MsgBox("Änderung übernehmen?", vbYesNoCancel)
  Select Case nResult
    Case vbYes
      Cancel = 0
    Case vbNo
      Cancel = 1
    Case Else
      Cancel = 2
  End Select
End Sub