Liste Kutusu kaynağında, Evrak Tarihi sutununda ölçüte Date() yazınız.

Me.Liste42.Requery


Buton ekleyin ve olay yordamına;

On Error GoTo Err_hatırla_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "HATIRLATMA_FORMU"
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_hatırla_Click:
Exit Sub

Err_hatırla_Click:
MsgBox Err.Description
Resume Exit_hatırla_Click