automatic date insertion

[Ravenray]

OK, I have this code here:

If Me.txtEstimatedDate = Now() Then
Me.DateExited = Now()
End If

I used it under afterupdate under the DateExit field, but it's not working. So I'm taking it that I'm doing something wrong here.

I have one field called DateEntered. txtEstimatedDate takes DateEntered and estimates 90 days. What I wanted to do was if Today = txtEstimatedDate, it will automatically stamp DateExited.

 

[ghudson]

=Now() will give you the date and time like 01/05/2004 13:33:04. The odds that you hit the exact date and time down to the seconds is pretty slim.

You should use =Date() instead.

HTH

 

[Lister]

As I understand it, Now() is for time and Date() is for calander dates.

Try using =Date() instead.

What code are you using to estimate 90 days into the future by the way?

 

[Ravenray]

Ok, I changed it to =date(), but when I did that, it changed it to =date.

 

[Ravenray]

I'm using this DateAdd("d",90,[DateEntered])

 

[Rich]

Date in vba is the same as Date() in sql

 

[Ravenray]

hmmm. Still doesn't stamp the field with that date. Should it be under Afterupdate?

 

[Ravenray]

Wait, I got it......I had to tab to the field and then it stamped it. Hmm would this work if I used upon opening the form?

 

[Ravenray]

Ok, got it. Actually, I used Onload and it work perfectly.

 

[Ravenray]

Pat, that's what is needed to kind of self automate. Even if they don't go into that record they can still see it from a query and it will be a reminder to the user to go into that record to double check on the recorder before closing it out.