Private Sub Grid2_AfterCellClick(ByVal Row As Long, ByVal Col As Long, ByVal _
  Button As Integer, ByVal Shift As Integer)
 
' Zahlungen eintragen und ggf. wieder löschen
With Grid2.Recordset
    If .Fields("Betrag_bezahlt") = True Then
        .Fields("ZahlDatum1") = Date
        .Fields("ZahlBetrag1") = .Fields("Zahlung_Summe")
        .Update
    ElseIf .Fields("Betrag_bezahlt") = False Then
        .Fields("ZahlDatum1") = (Null)
        .Fields("ZahlBetrag1") = (Null)
        .Update
    End If
 
Grid2.Refresh