Ajanda Çalışması Hakkında

(28/06/2020, 14:29)feraz yazdı: 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.

(28/06/2020, 14:59)kanakan52 yazdı:

(28/06/2020, 14:29)feraz yazdı: 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.

Hocam açıklamalı Excel ekledim

(28/06/2020, 15:14)feraz yazdı: Exceli mobilden açıp baktım.Zaten kod var hatırlatma zamanı diye aynısını başlama ve bitiş için yapılır iki yada üç kod ekleyip.
Bu durumda toplan silme olayı yine karışacak
Hocam toptan silme olayını  Konuya göre ayalrladım.

where KısaNot=' " & textbox7 & "'"

sorun çıkmaz..

bitis1 = bitis

baslama = Format(DateSerial(Year(baslama), Month(baslama) + 1, Day(baslama)) & " " & ComboBox8.Value & ":" & ComboBox9.Value, "dd.mm.yyyy hh:mm")

bitis = Format(DateSerial(Year(bitis), Month(bitis) + 1, Day(bitis)) & " " & ComboBox10.Value & ":" & ComboBox11.Value, "dd.mm.yyyy hh:mm")

baslama = Format(DateSerial(Year(baslama), Month(baslama), Day(baslama) + 7) & " " & ComboBox8.Value & ":" & ComboBox9.Value, "dd.mm.yyyy hh:mm")

bitis = Format(DateSerial(Year(bitis), Month(bitis), Day(bitis) + 7) & " " & ComboBox10.Value & ":" & ComboBox11.Value, "dd.mm.yyyy hh:mm")

bitis1 = bitis

    If Me.ComboBox3.Value = "Aylýk" Then

        Do While Fix(CDbl(CDate(hatirlatma))) <= Fix(CDbl(CDate(bitis1)))

            say = say + 1

            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))

            baslama = Format(DateSerial(Year(baslama), Month(baslama) + 1, Day(baslama)) & " " & ComboBox8.Value & ":" & ComboBox9.Value, "dd.mm.yyyy hh:mm")

            bitis = Format(DateSerial(Year(bitis), Month(bitis) + 1, Day(bitis)) & " " & ComboBox10.Value & ":" & ComboBox11.Value, "dd.mm.yyyy hh:mm")

        Loop

    End If



    If Me.ComboBox3.Value = "Günlük" Then

        Do While Fix(CDbl(CDate(hatirlatma))) <= Fix(CDbl(CDate(bitis1)))

            say = say + 1

            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), Day(hatirlatma) + 7)

            baslama = Format(DateSerial(Year(baslama), Month(baslama), Day(baslama) + 7) & " " & ComboBox8.Value & ":" & ComboBox9.Value, "dd.mm.yyyy hh:mm")

            bitis = Format(DateSerial(Year(bitis), Month(bitis), Day(bitis) + 7) & " " & ComboBox10.Value & ":" & ComboBox11.Value, "dd.mm.yyyy hh:mm")

        Loop

    End If