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