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.