User login and only see his records

[bigguy]

I have a challenge to setup a user login form with password so that when a user logs in successfully only his records will be available for edit and save. Any help with the code will be much appreciated.

[Bob Fitz]

How are records identified as belonging to a particular user.

[bigguy]

User is identified by full name (firstname, lastname)

[ranman256]

I have a tUsers table to know who is allowed in, and their 'rights'.
Use the persons login ID : txtBox = Environ("Username")
and their network password to let them in

Then once in, the rights are collected, an enables that person into certain forms/reports, etc.

 Function WindowsLogin(ByVal strUserName As String, ByVal strpassword As String, ByVal strDomain As String) As Boolean
        'Authenticates user and password entered with Active Directory.

        On Error GoTo IncorrectPassword
        
        Dim oADsObject, oADsNamespace As Object
        Dim strADsPath As String
        
        strADsPath = "WinNT://" & strDomain
        Set oADsObject = GetObject(strADsPath)
        Set oADsNamespace = GetObject("WinNT:")
        Set oADsObject = oADsNamespace.OpenDSObject(strADsPath, strDomain & "\" & strUserName, strpassword, 0)
        
        WindowsLogin = True    'ACCESS GRANTED
        
ExitSub:
        Exit Function
        
IncorrectPassword:
        WindowsLogin = False   'ACCESS DENIED
        Resume ExitSub
End Function