How are you entering or getting the date in the first place?
If you are entering through a form, you can use the after update event.
me.txtmyDate = Year(me.txtmyDate)
If you are appending via query, you can format the column to append.
FieldtoAppend:Year([myDate])
Sup