Public Sub Grid2_RowLoaded(ByVal nRow As Long, Item As Object)
With Grid2
' Prüfen, welche Zahlungsart angezeigt wird
    If .Recordset.Fields("BelegArt").Value = "Eingangsrechnung" Then
      ' Gesamte Schriftart rot einfärben
      .ForeColor = vbRed
    Else
      .ForeColor = vbBlack
    End If
 
 End With

Public Sub Grid2_RowLoaded(ByVal nRow As Long, Item As Object)
  With Item
  ' Prüfen, welche Zahlungsart angezeigt wird
  If .CellText("BelegArt") = "Eingangsrechnung" Then
    ' Gesamte Schriftart rot einfärben
    .ForeColor = vbRed
  End If
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de

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