(27/06/2020, 19:47)feraz yazdı: 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

Hocam selamlar,

Bu çalışmanızda listviewe veri gelirken  order by desc kullanmıştım.

---

(28/06/2020, 01:48)feraz yazdı: Aylıkve günlük olarakta yaptım ayrıca önceden yazdığım listviewdeki sıralamayıda hallettim.Gifi izleyin.

Hocam bu bende doğru çalışmadı. Daha doğrusu tek kayıt yaptı. Neden olabilir.

Desc olayını extra sildim yanlış sıralıyordu ,sonradan tekrar eklenir.Başkangıçı 2020 bitişide 2021 girip deneyin tekmi aktaracak gifteki gibi normal çalışıyordu.
Kod lu şekilde çalışıyor.
Aylık seçilirse bitiş tarihine kadar 1 ay ekleyip aktarıyor,günlükte ise bitiş tarihine kadar gün e 7 gün ekliyor.Bu durumda pazar ise sonraki pazar gününün tarihi kaydediliyor.

---

Kaydet kodunu incelerswniz orda Do While kodu var bununla başlangıçtan bitişe kadar işlem yapıyor.

(28/06/2020, 11:23)feraz yazdı: Desc olayını extra sildim yanlış sıralıyordu ,sonradan tekrar eklenir.Başkangıçı 2020 bitişide 2021 girip deneyin tekmi aktaracak gifteki gibi normal çalışıyordu.
Kod lu şekilde çalışıyor.
Aylık seçilirse bitiş tarihine kadar 1 ay ekleyip aktarıyor,günlükte ise bitiş tarihine kadar gün e 7 gün ekliyor.Bu durumda pazar ise sonraki pazar gününün tarihi kaydediliyor.

---

Kaydet kodunu incelerswniz orda Do While kodu var bununla başlangıçtan bitişe kadar işlem yapıyor.

Hocam bitiş tarihi seçmeyi atlamışım.. Kodlar güzel çalışıyor..

Ancak revize yapsak,

Önce Yinelemenin  bitiş zamanını farklı bir şekilde alsak, çünki burdaki bitiş zamanı benim kafamda o olayın son işlem zamanını ifade ediyor. (Örnek veriyorum Her ayın 24' ü KDV zamanı gibi)

Sonra olayın başlama ve bitiş zamanlarınıda aynı hatırlatma zamanındaki gibi periyotlu olarak artırmak.

Son olarak silme butonunda silme işlemini tek tek yapıyor. biğr konuyu seçtiğimde o konuya ait yinelemelerin tamamınınasıl silmeveya update etme konusunda da yardım rica ediyorum hocam.

Çoklu silme için

Set rs = baglan.Execute("DELETE FROM Ajandam WHERE Kimlik=" & id)

yerine alttaki kodu deneyin.Listviewden seçim yapmalısınız.

Set rs = baglan.Execute("DELETE FROM Ajandam WHERE CStr(BaslamaZamani)= '" & CStr(ListView1.SelectedItem.ListSubItems(1)) & "' and  " & _



                                                  "CStr(BitisZamani)= '" & CStr(ListView1.SelectedItem.ListSubItems(2)) & "'")

---

Burda anlatmak istediğinizi anlayamadım.Örnek üzerinde anlatırsanız anlayabilirim yada listviewde sonuç olarak yada accesste sonuç olarak anlatabilirsiniz.

(28/06/2020, 13:35)feraz yazdı: Çoklu silme için

Set rs = baglan.Execute("DELETE FROM Ajandam WHERE Kimlik=" & id)

yerine alttaki kodu deneyin.Listviewden seçim yapmalısınız.

Set rs = baglan.Execute("DELETE FROM Ajandam WHERE CStr(BaslamaZamani)= '" & CStr(ListView1.SelectedItem.ListSubItems(1)) & "' and  " & _



                                                  "CStr(BitisZamani)= '" & CStr(ListView1.SelectedItem.ListSubItems(2)) & "'")

---

Burda anlatmak istediğinizi anlayamadım.Örnek üzerinde anlatırsanız anlayabilirim yada listviewde sonuç olarak yada accesste sonuç olarak anlatabilirsiniz.

Hocam silme kayıtlarını optişonbutton ie şarta bağlayarak tek kayıt silme veya konuyla ilgili kayıtların tamamını silme olrak ayarladım, çalışıyor. Aynı şekilde update kodlarınıda güncellemeye çalışacağım.

Ben sizdem başlama ve bitiş tarihlerininde aynı hatırlatma tarihi gibi periyotlar halinde değişmesini rica ediyorum..

Resimle anlatmaya çalıştım..

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.