If the number of records isn’t large, you could add a new column to the query using DCount().FindDup: DCount("*", "[your table]", " PKField<>" & PKField & " And Year(SomeField) = " & Year(SomeField))
I typed this on my iPad so there are bound to be errors.