Skip to main content

AccessTr.neT


Ajanda Çalışması Hakkında

Ajanda Çalışması Hakkında

#79
(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, 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
.rar not.rar (Dosya Boyutu: 8,51 KB | İndirme Sayısı: 2)
Son Düzenleme: 28/06/2020, 15:00, Düzenleyen: kanakan52.
Cevapla
#80
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 Img-grin
Cevapla
#81
(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 Img-grin


Hocam toptan silme olayını  Konuya göre ayalrladım.

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

sorun çıkmaz..
Cevapla
#82
say = 0 ile On Error Resume Next arasındaki kodları silip en alttaki kodu ekleyin.

Eklenen kodlar ayrıca do while deki yeri  bitis yerine bitis1 olarak değiştirdim.

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
Cevapla
#83
@feraz hocam vallahi eline sağlık, bir noktayı atlamışsınız onun dışında tamamdır.

Yinelemeyi Bitiş tarihinden alıyor.

Yani Bitiş Tarihi 27.07.2020 ise sadece 1 kayıt yapıyor. Bunu başka bir türlü yapmamız lazım. kaç kez yinelenecek olayını bitiş tarihinden ayırmak lazım. Nasıl yaparız bilmiyorum.
Cevapla
#84
82.mesajdaki <= burdaki = yerleri silip deneyin.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task