Private Sub Form_Current()
If Add("y", -1, Date()) >= SomeDateInYourRecord) then
msgbox "Data older than 1 year, cannot be updated.", vbOKOnly
Me.AllowEdits = False
Me.AllowDeletions = False
Else
Me.AllowEdits = True
Me.AllowDeletions = True
End If
End Sub