Ajanda Çalışması Hakkında

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
28/06/2020, 11:14

kanakan52

(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, 12:12

kanakan52

(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.
28/06/2020, 13:35

feraz

Ç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, 14:13

kanakan52

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


28/06/2020, 14:29

feraz

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.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18