Can't get today's date...

[RSW]

I inherited an Access database that keeps track of problem reports. Each report has the date assigned to it when entered in the appropriate form.

There are some buttons on the form that are supposed to add TODAY's date automatically. So, if a problem was generated last week and dated as such, and I do some research today and want to add a note, I should be able to click the button and drop in the date along with my note. But, it doesn't work that way...it drops in the date of the report's original generation.

The VB code (for clicking the button) looks like this:

Dim strDate As String
strDate = Date
Issue_Details = Issue_Details & vbCrLf & strDate & ": "

Everything I have found indicates that Date() should provide today's date at all times. BUT, I found that the table/queries that the forms are based off of had "Date" as the name of the field. So, I changed that to EntryDate everywhere it shows up.

But clicking the buttons STILL drops in the date of generation, even though it is no longer called Date!

Does anyone know what may be the problem? How is it pulling the EntryDate field now?

Thanks in advance.

 

[pbaldy]

Try this:

strDate = VBA.Date

 

[GaryPanic]

or Now() perhaps ???
gp

 

[boblarson]

Also, check to make sure you don't have any MISSING references. And, even if you don't try unchecking the Microsoft DAO 3.x reference and close the database and reopen. Sometimes that will jog things back into shape with dates (and also Left, Mid, Right, and Instr functions).

 

[RSW]

Got it working! Thanks for the help, everyone.