Ajanda Çalışması Hakkında

(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.

(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.

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

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



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

(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.