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
(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..
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
@
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.
82.mesajdaki <= burdaki = yerleri silip deneyin.