Çek tarihlerinin tutulduğu tablonuzun adının tbl_Cekler olduğunu var sayarsak.

Formunuzun açıldığında olay yordamına

Private Sub Form_Load()

If Dlookup ("ÇEK_TARİHİ", "tbl_Cekler", "ÇEK_TARİHİ=Date()") Then

MsgBox ("Bu gün ödemeniz var"), vbExclamation, "Ödeme Uyarısı"

Else

MsgBox ("Bu gün ödemeniz yok"), vbExclamation, "Ödeme Uyarısı"

End If

End Sub

yazarsanız istediğiniz olacaktır.
Kolay gelsin.