I don't know if this will work but I would modify Jack's code so it could be used far in the future without needing updating
If DatePart("yyyy", Me![DateFieldName])<> Year(Now()) Then
MsgBox "You entered the wrong year! Please try again."
Cancel = True
End If
However, if you anticipate enter...