If you open your form in design view, you'll see the control name is "ID" (same as the table field name). In your VBA, change Me.Date2Day to Me.ID and it will work.
How do you cater for multiple entries created on the same day? Do you allow duplicate keys? If you need to make keys unique, you...