Ajanda Çalışması Hakkında

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

feraz

Hatırlatır.Lakin 28 i gelince hatırlatmaz onun içinde bişeyler düşünülebilir.
27/06/2020, 15:00

berduş

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
27/06/2020, 15:50

kanakan52

@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ı.
27/06/2020, 17:00

feraz

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.
27/06/2020, 19:47

feraz

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.


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