Audit Trail in Access 2016 64 bit

[vad77]

Does anyone know if there is an updated version of the Audit Trail code from this link, http://allenbrowne.com/AppAudit.html


Have been using this for years and it has work with no issues. I now Office 2016 64 bit and I get a compile error with the code in the module.

Compile Error:

The code in this project must be updated for use on 64 bit systems.
Please review and update Declare statements and then mark them with the PtrSafe attribute.


Private Const conMod As String = "ajbAudit"
Private Declare Function apiGetUserName Lib "advapi32.dll" Alias _
"GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long


If anyone can help in correcting this code it will be greatly appreciated.

Thank you.

[Mickjav]

Private Declare PtrSafe Function apiGetUserName Lib "advapi32.dll" Alias _
"GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

If The Above don't work try

Private Declare PtrSafe Function apiGetUserName Lib "advapi32.dll" Alias _
"GetUserNameA" (ByVal lpBuffer As String, nSize As LongPtr) As Long

Hope it helps
mick

[vad77]

Mick,

Thank you, the first line of code worked.

[Mickjav]

If you want it to work in both use this
#If VBA7 Then
64bit Compiled Versions
#Else
32Bit Compiled Versions
#End If