AccessTr.neT

Bul · 27/06/2020, 14:56

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

Bul · 27/06/2020, 15:00

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

Bul · 27/06/2020, 15:50

@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ı.

Bul · 27/06/2020, 17:00

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.

Bul · 27/06/2020, 19:47

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

🔍

Bul · 28/06/2020, 01:48

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

🔍

AccessTr.neT

Ajanda Çalışması Hakkında

Ajanda Çalışması Hakkında

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Giriş yap

Hesap oluştur

Konu Linkleri