How do I automate generation of a Date Code from =Date() in MS-Access 2007?

We are using a date code to help facilitate FIFO inventory control. When a user performs a transaction, we need the date code automatically generated in the DateCode field of the form. Date code consists of, for the current date, :

Year = A single alpha character
2011 = A, 2012 = B, 2013 = C, etc.
Month = A sigle alpha character
Jan = A, Feb = B, Mar = C, etc.
Day = Two character representation
1 = 01, 2 = 02 – 10=10, etc.

Example: March 8, 2012 = BC08