Private Sub ShowSumme()
  ' Summenzeile aktualisieren
  Dim oRs, oRs1 As DAO.Recordset
  Dim nSumme As Currency
 
  nSumme = 0
  With sevGrid1.Columns(5)
  Set oRs = CurrentDb.OpenRecordset("SELECT MATyp_ID, StundenAnzahl FROM" & _
    "tblHonorarZeitHonorar" _
    & " WHERE IdHonorar =" & Me.Parent!IdHonorar & ";")
    'If oRs.RecordCount > 0 Then
    Do Until oRs.EOF
        Set oRs1 = CurrentDb.OpenRecordset("SELECT Std_Satz_Extern FROM" & _
          "tblMATyp" _
        & " WHERE MATyp_ID = " & oRs!MATyp_ID & ";")
        nSumme = nSumme + (oRs!StundenAnzahl * oRs1!Std_Satz_Extern)
    oRs.MoveNext
    Loop
 
 
    .FooterText = FormatCurrency(nSumme)
    .FooterForeColor = IIf(nSumme = 0, vbRed, vbBlue)
    .FooterAlign = ALIGNMENT_RIGHT
  End With
  With sevGrid1.Columns(4)
  .FooterText = "Summe"
  .FooterForeColor = vbBlue
  End With
 
End Sub