Ajanda Çalışması Hakkında

Hatırlatır.Lakin 28 i gelince hatırlatmaz onun içinde bişeyler düşünülebilir.

Isterseniz ayrı bir yerde haftalık yada onceki günün hatırlatması da gösterilebilir ama ajanda işi oldukça karmaşık bir hale gelebilir. O nedenle iyice tasarlanması gerekiyor zaten.
Şöyle birşey yapılabilir program her açıldığında açılma tarihi kaydedilir ve sorgu son açılma tarihinden itibaren tüm hatırlatmaları getirebilir

@berduş hocam @feraz hocam. Hissediyorum bu iş olacak.

Benim mantığımda şu. Bilgisayarın bana bir hatırlatma vermesini istiyorsam bilgisayarın açık olması lazım. Değilse bilgisayar ne yapsın.

Ama şu yapılabilir mi ??   3 adet tarih var.
1-Başlama zamanı
2-Bitiş Zamanı
3-Hatırlatma Zamanı

hatırlatma zamanı başlama zamanından önce olmalı. Hatırlatma zamanında bilgisayar açık değilse başlama -  bitiş zamanları arasında Excel açıksa uyarı verebilirmi?

Birde hocam,

If ComboBox15.Value = "Eşittir" Then

rs.Open "select*from Ajandam WHERE fix(BaslamaZamani) =  " & Fix(CDbl(CDate(TextBox10.Value))) & "", baglan, 1, 1

sorgusunda BaslamaZamani alanı nasıl değişken yaparız.

If ComboBox14.Value = "Başlama Zamanı" Then
alan = "BaslamaZamani"
ElseIf ComboBox14.Value = "Bitiş Zamanı" Then
alan = "BitisZamani"
ElseIf ComboBox14.Value = "Hatırlatma Zamanı" Then
alan = "HatirlatmaZamani"
End If


rs.Open "select*from Ajandam WHERE fix(alan) =  " & Fix(CDbl(CDate(TextBox10.Value))) & "", baglan, 1, 1

şeklinde denedim olmadı.

Başlama zamanı ve Bitiş zamanı olaylarını ben atlamışım.Aslında yapılabilir bişeyler bu tarihler arasında her ay hatırlatılır bir defa ilgili günde.O gün Excel kapalıysa açık gün uyarı verir.Zaman bulunca bir bakayım.

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

Aylıkve günlük olarakta yaptım ayrıca önceden yazdığım listviewdeki sıralamayıda hallettim.Gifi izleyin.