Day (#22/11/2003#)==day=22

Try changing it to:

Day(Date())
Day(Now())

-Raymond

Also watch this video.

-Raymond

Looks like you missed a parenthesis

Day(Date())

There are no missing parentheses. They are removed from the Date function in VBA.

I would run through the Troubleshooter but in my opinion giving the error messages received it looks like a fresh install of Office may be needed.

Here's the New Error Message...

Kevin, I have just updated Office 360 when I have to replace the HDD in my PC. After that, that is when I started getting messages like these at times.

James After I had to reformat my system after my laptop was on a public network, when I reinstalled Office, my VBA was messing up too. I had to manually re-enable some of the core references in the VB Editor so you may want to verify that the main 4 are checked and I even had to uncheck them, restart Access, then check them again:

Visual Basic for Applications
Microsoft Access 16.0 Object Library
OLE Automation
Microsoft Access 16.0 Access database engine Object Library

Donald, I think you for your help. You were right, it fixed the Problem. Thank You again...