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.
AccessTr.Net teknik konular içeren bir sitedir. Bu tip sitelerde en iyi şekilde yardım alabilmeniz için
Site Kurallarını mutlaka okumanız ve buna göre hareket etmeniz lazım.