Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations TouchToneTommy on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Keeping a history in Access Database 1

Status
Not open for further replies.

PlsHlpKat

IS-IT--Management
Feb 20, 2003
49
US
I created a database in MS Access to replace our old! HR System. I need a way to keep a history of changes in employee status, rate change, etc. What is the best way of doing this? I do not want to replace the existing information when updating the record.

Thanks so much!

Kat
 
Kat, you are going to have to add some history tables and the code to handle the update process. Don't know the amount of data for each record, so it may be easier to copy the whole record to the history table with a DateChanged field added or you may want to just have the field that changed get moved there. Terry
**************************
* General Disclaimor - Please read *
**************************
Please make sure your post is in the CORRECT forum, has a descriptive title, gives as much detail to the problem as possible, and has examples of expected results. This will enable me and others to help you faster...
 
I create a button "update record" and use this code
there is a field in the form to let me know which version I am looking at
(some of my fields are used)
Also the record is locked

Dim reply As String
reply = MsgBox(" Are you Creating a New Version? Click No if it is an amendment ", 36, "Revision / Admendment")
If reply = 6 Then


DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdCopy
DoCmd.GoToRecord , , acNewRec
DoCmd.RunCommand acCmdPaste

DateD = "" 'Field that needs changing
DateM = "" 'Field that needs changing
DateY = "" 'Field that needs changing
Version = "" 'Field that needs changing
Determiner = "" 'Field that needs changing
Recorder = ""
MsgBox ("Change the VERSION,RECORDER,DATE and DETERMINER")


Else
AllowEdits = True

End If
Hope this helps
Hymn
 
Hmmmmmmmmmmm,

See faq 191-291


MichaelRed
m.red@att.net

Searching for employment in all the wrong places
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top