Recent content by kzutter

In your append query, select all of the (desired) fields, except the Autonumber field. The receiving table will add values to its Autonumber field.

Public Function Quarter(TheDate As Date) As Variant 'Enter with a date 'Returns the Quarter that date is in 'where July 1 is start of fiscal year 'Change the Choice items for different fiscal year start quarters Quarter = Choose(DatePart("q", TheDate), 3, 4, 1, 2) End Function