Ajanda Çalışması Hakkında

Ajanda Çalışması Hakkında - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Ajanda Çalışması Hakkında (/konu-ajanda-calismasi-hakkinda.html)

Sayfalar: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

RE: Ajanda Çalışması Hakkında - kanakan52 - 28/06/2020

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

RE: Ajanda Çalışması Hakkında - feraz - 28/06/2020

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.

RE: Ajanda Çalışması Hakkında - kanakan52 - 28/06/2020

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

RE: Ajanda Çalışması Hakkında - feraz - 28/06/2020

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

RE: Ajanda Çalışması Hakkında - kanakan52 - 28/06/2020

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

[Resim: do.php?img=10380]

RE: Ajanda Çalışması Hakkında - feraz - 28/06/2020

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.