Private Sub Grid1_AfterAddNew()
  ' Falls Benutzer im Datumsfeld den ersten des
  ' Monats angegeben hat, jetzt autom. den
  ' kompletten Monat anlegen
  Dim i As Integer
  Dim nMax As Integer
  Dim nMonth As Integer
  Dim nYear As Integer
  Dim vDate As Variant
 
  vDate = Grid1.Recordset.Fields(0)
  If Day(vDate) = 1 Then
    nMonth = Month(vDate)
    nYear = Year(vDate)
    nMax = Day(DateAdd("d", -1, DateSerial(nYear, nMonth + 1, 1)))
 
    For i = 2 To nMax
      With Grid1.Recordset
        .AddNew
        .Fields(0) = DateSerial(nYear, nMonth, i)
        .Fields(1) = "00:00"
        .Fields(2) = "00:00"
        .Fields(3) = "00:00"
        .Fields(6) = "0"
        .Fields(7) = "0"
        .Fields(8) = "0"
        .Update
      End With
    Next i
 
    Grid1.Refresh
  End If
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de