Private Sub cmdVorgabeMonat_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
  Dim bExists As Boolean
 
  If Text3.Text = "" Then
    MsgBox "Sie müssen zuerst den 01(Ersten) eines Monats wählen !", _
      vbInformation, "Ganzen Monat Anlegen"
  Else
    vDate = Text3.Text  ' Grid1.Recordset.Fields(0)
    If Day(vDate) > 1 Then
      MsgBox "Sie haben den" & "  " & Text3.Text & " 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
        nMonth = Month(vDate)
        nYear = Year(vDate)
        nMax = Day(DateAdd("d", -1, DateSerial(nYear, nMonth + 1, 1)))
 
        bExists = True
        For i = 1 To nMax
          With Grid1.Recordset
            vDate = DateSerial(nYear, nMonth, i)
            If .RecordCount > 0 Then .MoveFirst
            .Find "Datum = #" & vDate & "#"
            If .EOF Then
              .AddNew
              .Fields(0) = vDate
              .Fields(1) = Text2(0).Text
              .Fields(2) = Text2(1).Text
              .Fields(3) = Text2(2).Text
              .Fields(4) = Text2(3).Text
              .Fields(6) = "0"
              .Fields(7) = Text2(4).Text
              .Fields(8) = Text2(5).Text
              .Fields(9) = "0"
              .Fields(10) = "0"
              .Fields(11) = Text1(0).Text
              .Fields(12) = Text2(6).Text
              .Update
              bExists = False
            End If
          End With
        Next i
 
        If bExists Then
          MsgBox "Der Monat wurde bereits mit allen Tagen erstellt!", _
            vbInformation + vbOKOnly
        Else
          Grid1.Refresh
        End If
      End If
    End If
  End If
 
  cmdAbort.Enabled = True
  Text1(0).Text = ""
  Text3.Text = ""
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de