+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Ajanda Çalışması Hakkında (/konu-ajanda-calismasi-hakkinda.html)
RE: Ajanda Çalışması Hakkında - kanakan52 - 28/06/2020
(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
RE: Ajanda Çalışması Hakkında - feraz - 28/06/2020
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
RE: Ajanda Çalışması Hakkında - kanakan52 - 28/06/2020
(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..
RE: Ajanda Çalışması Hakkında - feraz - 28/06/2020
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 IfRE: Ajanda Çalışması Hakkında - kanakan52 - 28/06/2020
@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.
RE: Ajanda Çalışması Hakkında - feraz - 28/06/2020
82.mesajdaki <= burdaki = yerleri silip deneyin.