say = 0 ile On Error Resume Next arasındaki kodları silip en alttaki kodu ekleyin.

Eklenen kodlar ayrıca do while deki yeri  bitis yerine bitis1 olarak değiştirdim.

bitis1 = bitis

baslama = Format(DateSerial(Year(baslama), Month(baslama) + 1, Day(baslama)) & " " & ComboBox8.Value & ":" & ComboBox9.Value, "dd.mm.yyyy hh:mm")

bitis = Format(DateSerial(Year(bitis), Month(bitis) + 1, Day(bitis)) & " " & ComboBox10.Value & ":" & ComboBox11.Value, "dd.mm.yyyy hh:mm")

baslama = Format(DateSerial(Year(baslama), Month(baslama), Day(baslama) + 7) & " " & ComboBox8.Value & ":" & ComboBox9.Value, "dd.mm.yyyy hh:mm")

bitis = Format(DateSerial(Year(bitis), Month(bitis), Day(bitis) + 7) & " " & ComboBox10.Value & ":" & ComboBox11.Value, "dd.mm.yyyy hh:mm")

bitis1 = bitis

    If Me.ComboBox3.Value = "Aylýk" Then

        Do While Fix(CDbl(CDate(hatirlatma))) <= Fix(CDbl(CDate(bitis1)))

            say = say + 1

            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))

            baslama = Format(DateSerial(Year(baslama), Month(baslama) + 1, Day(baslama)) & " " & ComboBox8.Value & ":" & ComboBox9.Value, "dd.mm.yyyy hh:mm")

            bitis = Format(DateSerial(Year(bitis), Month(bitis) + 1, Day(bitis)) & " " & ComboBox10.Value & ":" & ComboBox11.Value, "dd.mm.yyyy hh:mm")

        Loop

    End If



    If Me.ComboBox3.Value = "Günlük" Then

        Do While Fix(CDbl(CDate(hatirlatma))) <= Fix(CDbl(CDate(bitis1)))

            say = say + 1

            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), Day(hatirlatma) + 7)

            baslama = Format(DateSerial(Year(baslama), Month(baslama), Day(baslama) + 7) & " " & ComboBox8.Value & ":" & ComboBox9.Value, "dd.mm.yyyy hh:mm")

            bitis = Format(DateSerial(Year(bitis), Month(bitis), Day(bitis) + 7) & " " & ComboBox10.Value & ":" & ComboBox11.Value, "dd.mm.yyyy hh:mm")

        Loop

    End If