(27/06/2020, 11:13)feraz yazdı: Ayın 27 sinde Excel açık olmazsa ve o tarihi geçerse yine kaydedilecek mi?

(27/06/2020, 11:33)feraz yazdı: Kaydetme olayı sorun değil benim anlamadığım şu 27 sinde kaydet deyince ve o ayın tarihinde Excel açık değilse nasıl kaydedilecek.Normalde mantıken şöyle düşününüyorum mesela 1 sene boyunca hatırlatma olayı yapacaksınız bir kere kaydet deyince 1 aylık periyot halinde accesse kaydetse olmuyor mu?

Function TxtEval(HtrTur As Byte, Secilen As Variant, Optional HtrTrh As Long) As Byte

'TxtEval = Eval(Mtn)

If Not IsDate(HtrTrh) Then HtrTrh = Date

Select Case HtrTur

  Case 0

      TxtEval = 1

  Case 1

      TxtEval = "iif(weekday(date()) in (1,2,3,4,5),1,0)" 'hafta içi her gün

  Case 2

      TxtEval = "iif(weekday(date()) in (6,7),1,0)" 'hafta sonu her gün

  Case 3

      TxtEval = "iif(weekday(date()) in (" & Secilen & "),1,0)" ' diyelim ki alan değeri:1,4 ise her pazartesi ve perşembe

  Case 4

      TxtEval = "iif(day(date()) in (" & Secilen & "),1,0)" 'diyelim ki alan değeri 18,19,3,5 ise her ayın 18,19,3,5 de

  Case 5

      TxtEval = "iif((date() -" & HtrTrh & ") mod " & Secilen & " =0,1,0)" 'diyelim ki 3 günde bir hatırlatsın alan değeri:3

  Case 6

      TxtEval = "iif(format(date(),""ddmm"") =format (" & HtrTrh & ",""ddmm""),1,0)" 'doğum günleri, yıl dönümleri gibi yılda bir defa

  Case 7

      TxtEval = "IIf(Date = " & HtrTrh & ", 1, 0)" 'sadece 1 defa

End Select

TxtEval=eval(TxtEval)

Debug.Print TxtEval

End Function

(27/06/2020, 12:32)berduş yazdı: sayın @kanakan52 önce belirteyim aşağıdaki fonksiyon hatalı ve tamamlanmamış ama temel mantığı göstermek için tasarlandı
sorguda kullanıldığı zaman sonuç olarak 1 yada 0 döner 1 ise o gün uyarı verir

Function TxtEval(HtrTur As Byte, Secilen As Variant, Optional HtrTrh As Long) As Byte

'TxtEval = Eval(Mtn)

If Not IsDate(HtrTrh) Then HtrTrh = Date

Select Case HtrTur

   Case 0

      TxtEval = 1

   Case 1

      TxtEval = "iif(weekday(date()) in (1,2,3,4,5),1,0)" 'hafta içi her gün

   Case 2

      TxtEval = "iif(weekday(date()) in (6,7),1,0)" 'hafta sonu her gün

   Case 3

      TxtEval = "iif(weekday(date()) in (" & Secilen & "),1,0)" ' diyelim ki alan değeri:1,4 ise her pazartesi ve perşembe

   Case 4

      TxtEval = "iif(day(date()) in (" & Secilen & "),1,0)" 'diyelim ki alan değeri 18,19,3,5 ise her ayın 18,19,3,5 de

   Case 5

      TxtEval = "iif((date() -" & HtrTrh & ") mod " & Secilen & " =0,1,0)" 'diyelim ki 3 günde bir hatırlatsın alan değeri:3

   Case 6

      TxtEval = "iif(format(date(),""ddmm"") =format (" & HtrTrh & ",""ddmm""),1,0)" 'doğum günleri, yıl dönümleri gibi yılda bir defa

   Case 7

      TxtEval = IIf(Date = " & HtrTrh & ", 1, 0) 'sadece 1 defa

End Select



Debug.Print TxtEval

End Function

yani tabloya kaydı 1 defa ekleyeceksiniz, periyodunu seçeceksiniz , tekrar günleri ayarlayacaksınız. O tek kayıt sorguda siz silene kadar yada eğer alarm aralığı girdiyseniz o aralık boyunca sorguda görünür
Bu hafta olmaz ama gelecek hafta yapabilirsem accesste örneği hazırlamaya çalışırım
iyi çalışmalar