Try this one, its from a post on another forum:
Quote
Create two fields in your table:
TheYear - long
TheSequence – long
Then enter this code in your form's BeforeInsert
Me.TheYear = CLng(DatePart("YYYY", Date()))
Me.TheSequence = Nz(DMax("[TheSequence]", "YourTableName", "[TheYear] =...