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

TxtEval=eval(TxtEval)

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