Private Sub cmdAddNew_Click()
  ' 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
    MsgBox "Sie haben den" & "  " & Grid1.Recordset.Fields(0) & " und nicht" & _
      vbCrLf _
      & "den 1 (Ersten) des Monats Ausgewählt", vbInformation, "Ganzen Monat" & _
      "Anlegen"
  Else
    If Text1(0).Text = "" Then
      MsgBox "Sie müssen zuerst eine KundenNr Eingeben !", vbInformation, _
        "Ganzen Monat Anlegen"
    Else
      vDate = Grid1.Recordset.Fields(0)
      If Day(vDate) = 1 Then
        nMonth = Month(vDate)
        nYear = Year(vDate)
 
        Dim nPos As Long
        With Grid1.Recordset
          nPos = .AbsolutePosition
          .MoveFirst
          .Find "Datum = #" & Format$(DateSerial(nYear, nMonth, 2), "m-d-yy") & _
            "#"
          If Not .EOF Then
            MsgBox "Fehler! Monat existiert bereits!"
            .AbsolutePosition = nPos
          Else
            nMax = Day(DateAdd("d", -1, DateSerial(nYear, nMonth + 1, 1)))
            For i = 2 To nMax
              .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"
              .Fields(9) = "0"
              .Fields(10) = "0"
              .Fields(11) = Text1(0).Text
              .Fields(12) = False
              .Update
            Next i
            Grid1.Refresh
          End If
        End With
      End If
    End If
  End If
 
  cmdAbort.Enabled = True
  Text1(0).Text = ""
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de