قم بوضع مربع نص(Text Box) بنموذج ادخال اليبانات وليكن اسمةtxttime وقم بوضع السطر التالي لحدث بعد التحديث للسجل ...
txttime = Time
وقم بوضع الكود التالي لحدث الحالي لنموذج ادخال البيانات ...
Dim p As Date
p = Time
If Hour(p) - Hour(txttime) > 24 Then
Me.AllowEdits = False
Else
Me.AllowEdits = True
End If