How do i track the changes that are done in access by as user

[Guest]

Please can someone help me with How do i track the changes that are done in
access by as user and I would like to track the history of
every record that is changed by a user. I have a drop down box of all the
users names but am concerned that if a user changes a record multiple times
it is not recorded and can change the record into someone else's name.

 

[Joseph Meehan]

Please can someone help me with How do i track the changes that are
done in access by as user and I would like to track the history of
every record that is changed by a user. I have a drop down box of all
the users names but am concerned that if a user changes a record
multiple times it is not recorded and can change the record into
someone else's name.

You might try Allen Browne's information:

http://members.iinet.net.au/~allenbrowne/AppAudit.html

 

[Guest]

Thank you for your help but when I pasted the code into the module in Visual
Basic it does not like the following Code Which is Set db =. Please can you
advise me of another expression I can use to replace this ?

Set db = DBEngine(0)(0))
db.Execute sSQL, dbFailOnError


Set db = Nothing


Dim db As DAO.Database

 

[Douglas J. Steele]

What version of Access are you using? If it's Access 2000 or 2002, you may
have to set a reference to DAO, as those versions don't have the reference
set by default.

While in the VB Editor (with no code running: check under the Run menu, and
click on End if it's enabled), select Tools | References. Scrcoll through
the list of available references until you find the one for Microsoft DAO
3.6 Object Library, select it (by clicking on the check box to the left of
it) then click on the OK button.

 

[Guest]

Thanks for your help as I added in the DAO version but I now have the error
that
ByRef argument type mismatch for bWasNewRecord) in the Nz(Me.Reference, 0),
bWasNewRecord). Please see the whole code below.

Call AuditEditEnd("tblAsset4", "audTmpAsset4", "audAssets4", "Reference",
Nz(Me!Reference, 0), bWasNewRecord)

 

[Guest]

Thanks for your help as I have added in the DAO Version but now I have the
following error ByRef argument type mismatch for bWasNewRecord at the end of
the statement below. Please could you advise me on how to remedy this problem.

Call AuditEditEnd("tblAsset4", "audTmpAsset4", "audAssets4", "Reference",
Nz(Me!Reference, 0), bWasNewRecord)

 

[Douglas J. Steele]

How have you declared bWasNewRecord in the code that calls AuditEditEnd?

 

[Guest]

Doug,

Thanks for all your Help as it was much appreciated

Arlene