Date Function AfterInsert

[MintChipMadness]

I am having trouble with one text field on my form. It is not inserting the current date into [EntryDate] when a new record is inserted. The two lines above it work perfectly but the text field bound to EntryDate is left blank. I don't get any errors and I tried all combinations of Enabled and locked data properties. Any help would be greatly appreciated.

Private Sub Form_AfterInsert()

Me.[OldBox#] = DMax("Val([OldBox#])", "[DataEntry]") + 1
Me.[EnteredBy] = Environ("UserName")
Me.[EntryDate] = date

End Sub

Extra Info:
The form is bound to a query that uses the table with the field [EntryDate]. The field is data type Date/Time.

[pbaldy]

If that's a copy/paste, it's a concern that date isn't capitalized. Do you have a field by that name by chance? In any event, try


Me.[EntryDate] = VBA.Date

[MintChipMadness]

I did copy/paste the code. When I tried to put just 'Date', I got auto corrected to 'date'. VBA.Date didn't get auto corrected but it still doesn't insert the current date into the field. I didn't get any error with it either.

[pbaldy]

Is there a textbox on the form with that name? Have you set a breakpoint and followed the action? Can you post the db here?

[MintChipMadness]

I checked that right after posting previously and that is correct. There was a control that had the name 'date'. I adjusted it and everything works now. I apologize for taking up your time with something I should have known to check for.

[pbaldy]

No problem, though I'm surprised VBA.Date didn't work. In any case, glad you got it working.