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.

Arlene wrote:
> 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
--
Joseph Meehan

Dia 's Muire duit

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



"Joseph Meehan" wrote:

> Arlene wrote:
> > 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
> --
> Joseph Meehan
>
> Dia 's Muire duit
>
>
>
>

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.

--
Doug Steele, Microsoft Access MVP
http://I.Am/DougSteele
(no e-mails, please!)


"Arlene" <(E-Mail Removed)> wrote in message
news:A8DDF53D-8617-4F35-BC59-(E-Mail Removed)...
> 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
>
>
>
> "Joseph Meehan" wrote:
>
>> Arlene wrote:
>> > 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
>> --
>> Joseph Meehan
>>
>> Dia 's Muire duit
>>
>>
>>
>>

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)



"Douglas J. Steele" wrote:

> 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.
>
> --
> Doug Steele, Microsoft Access MVP
> http://I.Am/DougSteele
> (no e-mails, please!)
>
>
> "Arlene" <(E-Mail Removed)> wrote in message
> news:A8DDF53D-8617-4F35-BC59-(E-Mail Removed)...
> > 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
> >
> >
> >
> > "Joseph Meehan" wrote:
> >
> >> Arlene wrote:
> >> > 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
> >> --
> >> Joseph Meehan
> >>
> >> Dia 's Muire duit
> >>
> >>
> >>
> >>
>
>
>

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)

"Arlene" wrote:

> 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
>
>
>
> "Joseph Meehan" wrote:
>
> > Arlene wrote:
> > > 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
> > --
> > Joseph Meehan
> >
> > Dia 's Muire duit
> >
> >
> >
> >

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

--
Doug Steele, Microsoft Access MVP
http://I.Am/DougSteele
(no e-mails, please!)


"Arlene" <(E-Mail Removed)> wrote in message
news:BDC01443-C0F6-42AB-9B74-(E-Mail Removed)...
> 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)
>
>
>
> "Douglas J. Steele" wrote:
>
>> 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.
>>
>> --
>> Doug Steele, Microsoft Access MVP
>> http://I.Am/DougSteele
>> (no e-mails, please!)
>>
>>
>> "Arlene" <(E-Mail Removed)> wrote in message
>> news:A8DDF53D-8617-4F35-BC59-(E-Mail Removed)...
>> > 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
>> >
>> >
>> >
>> > "Joseph Meehan" wrote:
>> >
>> >> Arlene wrote:
>> >> > 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
>> >> --
>> >> Joseph Meehan
>> >>
>> >> Dia 's Muire duit
>> >>
>> >>
>> >>
>> >>
>>
>>
>>

Doug,

Thanks for all your Help as it was much appreciated

Arlene

"Douglas J. Steele" wrote:

> How have you declared bWasNewRecord in the code that calls AuditEditEnd?
>
> --
> Doug Steele, Microsoft Access MVP
> http://I.Am/DougSteele
> (no e-mails, please!)
>
>
> "Arlene" <(E-Mail Removed)> wrote in message
> news:BDC01443-C0F6-42AB-9B74-(E-Mail Removed)...
> > 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)
> >
> >
> >
> > "Douglas J. Steele" wrote:
> >
> >> 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.
> >>
> >> --
> >> Doug Steele, Microsoft Access MVP
> >> http://I.Am/DougSteele
> >> (no e-mails, please!)
> >>
> >>
> >> "Arlene" <(E-Mail Removed)> wrote in message
> >> news:A8DDF53D-8617-4F35-BC59-(E-Mail Removed)...
> >> > 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
> >> >
> >> >
> >> >
> >> > "Joseph Meehan" wrote:
> >> >
> >> >> Arlene wrote:
> >> >> > 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
> >> >> --
> >> >> Joseph Meehan
> >> >>
> >> >> Dia 's Muire duit
> >> >>
> >> >>
> >> >>
> >> >>
> >>
> >>
> >>
>
>
>