(28/06/2020, 14:29)feraz yazdı: Resimden fazla birşey anlaşılmıyor.Access üzerinde sadece başlangıç , bitiş ve hatırlatma zamanlarını anlatabilirmisiniz yada en iyisi boş bir Excel sayfasında gösterin sadece bu üçü yeterli.

Hocam açıklamalı Excel ekledim

---

(28/06/2020, 14:59)kanakan52 yazdı:

(28/06/2020, 14:29)feraz yazdı: Resimden fazla birşey anlaşılmıyor.Access üzerinde sadece başlangıç , bitiş ve hatırlatma zamanlarını anlatabilirmisiniz yada en iyisi boş bir Excel sayfasında gösterin sadece bu üçü yeterli.

Hocam açıklamalı Excel ekledim

Exceli mobilden açıp baktım.Zaten kod var hatırlatma zamanı diye aynısını başlama ve bitiş için yapılır iki yada üç kod ekleyip.
Bu durumda toplan silme olayı yine karışacak

(28/06/2020, 15:14)feraz yazdı: Exceli mobilden açıp baktım.Zaten kod var hatırlatma zamanı diye aynısını başlama ve bitiş için yapılır iki yada üç kod ekleyip.
Bu durumda toplan silme olayı yine karışacak

Hocam toptan silme olayını  Konuya göre ayalrladım.

where KısaNot=' " & textbox7 & "'"

sorun çıkmaz..

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

@feraz hocam vallahi eline sağlık, bir noktayı atlamışsınız onun dışında tamamdır.

Yinelemeyi Bitiş tarihinden alıyor.

Yani Bitiş Tarihi 27.07.2020 ise sadece 1 kayıt yapıyor. Bunu başka bir türlü yapmamız lazım. kaç kez yinelenecek olayını bitiş tarihinden ayırmak lazım. Nasıl yaparız bilmiyorum.

82.mesajdaki <= burdaki = yerleri silip deneyin.