Record Logon User & Changes

[yrstruly]

Please assist. I would like to implement a user tracking acticivity.


Use this Access application(https://drive.google.com/file/d/1-WF...ew?usp=sharing) as a test for my tracker activitiy. It should track any changes/activity a user makes after it logon and load data to a form ect.

[orange]

Please look at this link /thread and see if it covers what you are describing. Best us of macros

[yrstruly]

I have a VBA code that reads the users details and it should populate a field in a table "CapturedBy". Im getting an error.

Private Sub cmdproceed_Click()    If IsEmpty(Me.User) Then
        MsgBox "Kies eers u naam asseblief."
        Me.User.SetFocus
        Exit Sub
    End If


    ' Use single quotes around Me.User because [UserID] is a text field
    If Me.Pass = DLookup("[Passw]", "tblUsers", "[UserID] = '" & Me.User & "'") Then
        ' Retrieve and display username from tblUsers
        Me.UserID = Me.User
        Me.Username = DLookup("[UserName]", "tblUsers", "[UserID] = '" & Me.User & "'")
        
        ' Set the global variables
        gUserName = Me.Username
        gUserID = Me.User


        ' Log the login event
        DoCmd.SetWarnings False
            DoCmd.OpenQuery "qryUserLoggedInAppend", , acViewNormal
        DoCmd.SetWarnings True


        ' Open additional forms
        DoCmd.OpenForm "frmqryIN_or_Out"
        DoCmd.OpenForm "Switchboard"
        DoCmd.OpenForm "frmRemindersForUser" ' Opens for all users.
        
        Me.Visible = False
        If CurrentProject.AllForms("frmRemindersForUser").IsLoaded = False Then
            ' Form is closed
            Forms!Switchboard.SetFocus
        Else
            ' Form is open
            Forms!frmRemindersForUser.SetFocus
        End If
    Else
        MsgBox "Nie korrek nie. Probeer asseblief weer."
    End If
End Sub
---------------
Needed for above code to work:


Option Compare Database
Option Explicit


Public gUserName As String
Public gUserID As Long
modGlobals

Code for Onload for form:

Private Sub Form_Load()
    If Len(gUserName) > 0 Then
        Me.txtCapturedBy.Value = "Logged in as: " & gUserName
    Else
        Me.txtCapturedBy.Value = "User not identified"
    End If
End Sub

https://docs.google.com/document/d/1...f=true&sd=true

[Welshgasman]

And again you cannot state the error?

You need to take up another hobby. logic is not for you.

[yrstruly]

Luckily you dont hand out logic...

[yrstruly]

Luckily you dont hand out logic neither do you control me. Simply dont reply, keep your negative comments to yourself.

And again you cannot state the error?

You need to take up another hobby. logic is not for you.

[Welshgasman]

Hardly negative?
If you supplied the error, people would be able to help you better.
However, say hello to my IL.

[madpiet]

Wouldn't you use a function that grab's the user's network username to do that?

(One of the things I like about SQL Server... all that stuff is pretty much built in.)