Deneme amaçlı sadece alttaki kodları ekledim katdetme koduna.Mantık böyle olacak yani.Bu sadece bir deneme amaçlı yapıldı.

Dim say As Long

    say = 0

    Do While Fix(CDbl(CDate(hatirlatma))) < Fix(CDbl(CDate(bitis)))

        say = say + 1

        If say > 1 Then rs.addnew

        rs("BaslamaZamani") = baslama

        rs("BitisZamani") = bitis

        rs("HatirlatmaZamani") = Format(DateSerial(Year(hatirlatma), Month(hatirlatma), Day(hatirlatma)) & " " & ComboBox12.Value & ":" & ComboBox13.Value, "dd.mm.yyyy hh:mm")

        rs("Eylem") = ComboBox1.Value

        rs("Yineleme") = ComboBox2.Value

        rs("KýsaNot") = TextBox7.Value

        rs("Aciklama") = TextBox6.Value

        rs("Metinsel1") = ComboBox5.Value

        rs("Metinsel2") = ComboBox3.Value

        rs("Metinsel3") = ComboBox4.Value

        rs("Sayisal1") = 0

        rs("Sayisal2") = 0

        rs("Sayisal3") = 0

        rs("KayitYapan") = Application.username

        rs("HatirlatmaTürü") = Me.ComboBox6.Value

        rs("Hatirlatma") = Me.ComboBox7.Value

        rs.Update

        hatirlatma = DateSerial(Year(hatirlatma), Month(hatirlatma) + 1, Day(hatirlatma))

    Loop