Dim SQL as String
Dim Rs as DAO.Recordset
Dim li_idx as Integer
 
With Grid
   SQL = "SELECT....."
   Set Rs = CurrentDB.OpenRecordset(SQL)
   li_idx = 3
   While Not Rs.EOF
      Rs.MoveFirst
      If IsNull(Rs!Summe) Then
         .Columns(li_idx).FooterText = 0
      Else
         .Columns(li_idx).FooterText = Rs!Summe
      End If
      Rs. MoveNext
      li_idx = li_idx + 1
   Wend
   Rs.Close
   Set Rs = Nothing
End With

Gru?
globe_trotter
____________________________________
Betriebssystem: WinNT 4.0, Win2k, WinXP Pro
Office: 97, 2000, XP und 2003