Hallo Leute, folgendes Problem. Im folgenden Listing für ein Haushaltsbuch soll beim klicken von Datensatz hinzufügen geprüft werden ob der aktuelle Monat schon vorhanden ist und falls ja soll er den nächsten Monat erstellen. Ist dieser auch vorhanden soll er den darauffolgenden nehmen usw.

Mit meinem Listing bin ich ein Schritt weiter, aber nicht weit genug.

Private Sub cmdDatensatzHinzufuegen_Click()
    'Deklaration
        Dim strDatum As String
        Dim strDatumDateAdd As String
        Dim rs As Recordset
        Dim db As Database
        Dim strSQL As String
    'Füge der Variable strDatum ein formattiertes Systemdatum hinzu, zur Erstellung des Primärkeys
        strDatum = Format(Date, "mmyyyy")
    'Verweise
        Set db = CurrentDb()
        strSQL = " SELECT Datum_ID FROM tblHaushaltsbuch WHERE Datum_ID = '" & strDatum & "'"
        Set rs = db.OpenRecordset(strSQL)
    'Fehlerprüfung
        If rs.RecordCount = 0 Then
            'Erstelle neuen Datensatz
                DoCmd.GoToRecord , , acNewRec
            'Füge dem Steuerelement "Datum" das Systemdatum formattiert hinzu
                [Datum] = Format(Date, "mmmm yyyy")
            'Autogeneriere Primärschlüssel
                [Datum_ID] = strDatum
        Else
            'Erstelle neuen Datensatz
                DoCmd.GoToRecord , , acNewRec
            'Autogeneriere Primärschlüssel
                strDatumDateAdd = DateAdd("m", 1, Date)
                [Datum_ID] = Format(strDatumDateAdd, "mmyyyy")
            'Füge dem Steuerelement "Datum das Systemdatum formattiert hinzu
                [Datum] = Format(strDatumDateAdd, "mmmm yyyy")
        End If
End Sub