sevgili ilker bunu aşıgirme formuna göre yaptım. aşıtarihi textboxının güncelleme öncesinde eventine yazarsın.



Dim asi As String
asi = DCount("AŞITARİHİ", "AŞIGİRTABLO", "ID=forms.AŞIGİRMEFORMU.ID and AŞITARİHİ=forms.AŞIGİRMEFORMU.AŞITARİHİ")
If asi > 0 Then
If MsgBox("aynı kişiye bugun " & asi & " defa aşı kaydı yaptın. emin misin ilker?", vbYesNo, "iğneci") = vbNo Then Undo
End If