Bir modül içine şu kodları yapıştırın:

Public Sub accesstr_denetle()

Dim acctr_varmi As Integer

Dim acctr_tar_bas, acctr_tar_bit As String

    

    acctr_tar_bas = "#" & Format(Date, "yyyy") & "/" & Format(Date, "mm") & "/" & Format(Date, "dd") & "#"

    acctr_tar_bit = "#" & Format(Date, "yyyy") & "/" & Format(Date, "mm") & "/" & Format(Date - 2, "dd") & "#"

    

    acctr_varmi = DCount("tId", "tbl_Hatirlatma", "tTarih Between " & acctr_tar_bas & " AND " & acctr_tar_bit)

    

    If acctr_varmi > 0 Then

    

        MsgBox "2 gün içinde toplam " & acctr_varmi & " hatırlatmanız var", vbInformation + vbOKOnly, "AccessTr.Net Hatırlatıcı"

    

    End If





End Sub

Daha sonra hatırlatma olup olmadığı noktasında uyarı almak istediğiniz her yerde şu kodu kullanın:

accesstr_denetle

bu kodu ister bir butona isterseniz bir formun yüklendiğinde olayına yapıştırabilirsiniz.