Auto update Date field

[Guest]

I have a database that is appended every day with data pulled from another
source (AS-400). Each record that is appended to the table must be examined
by a QA person for errors made in the feeding system. What I want to do is
when the QA person pulls up a record, the date that the record is reviewed is
auto populated. The Default date is only good for adding new records. Any
ideas?

 

[Van T. Dinh]

If you meant a QA person uses a Form to inspect the record, then you can
used the Fuem_Current Event to set the date with code like:

If (IsNull(Me.ReviewDate)) then
Me.ReviewDate = Date() ' or Now() if you want the time also
End If

I use the If in case that the Record has already been marked as "reviewed"
and the QA person simply flick through the records.


However, I tend not to use thia automatic "update" since (as above), users
may simply flick through the records without actually review the record. My
recommendation is to use a CommandButton and the QA person click this
CommandButton once the record is reviewed. At this time, you can set the
review date/time for the record using the CommandButton_Click Event.

 

[Guest]

;Van,

I was trying to implement your code and ran into a small problem. Keep in
mind that I am still learning the VB coding language, please.

When the fields in the table were named, one was called 'Date'. Now when I
try to tell it to use your code, it changes the 'review date' to the field
that is named 'Date'. Obviously, this field should be renamed but it is used
heavily throughout the system. Any Ideas?

Kent

 

[Van T. Dinh]

Please post your code.

 

[Guest]

Found the error - Thanks for the point in the right direction.

 

[Van T. Dinh]

You're welcome ... Glad you found the error and got the code working ...