[Solved] Active Profile User Restrictions

Note: The same thing happens on the Skill Header database.

Interesting!  Will check it out.

I was able to duplicate the issue using V17 source file.  However, I do not see the issue in my Db.  I found the problem....the Main dashboard is opening before the profile is being set by the login form.  Change your VBA code for your login command button as follows: (note I moved the DoCmd.OpenForm "MainDashboard" to come after aprofile is set.  This works on V17 source file now.  Let us know if you have any other problems.

Private Sub cmdLogin_Click()
'First check the null textboxes and return a msg
If IsNull(Me.txtUsername) = True Or IsNull(Me.txtPassword) = True Then
    MsgBox "Please enter Username and Password...", vbExclamation, "|Username or Password Blank|"
    Exit Sub
        Else
            'Find the record in user table based on both username and password
            ufound = DCount("uUsername", "tbl_user", "uUsername = '" & Me.txtUsername & "' and uPassword = '" & Me.txtPassword & "' and uStatus = 'Active'")

            'Record not found
            If ufound = 0 Then
                Me.LblNotFound.Visible = True
                Exit Sub
                    'Record found
                    Else
                        'user ID (It must be defined as Public Variable)
                        uI = DLookup("uID", "tbl_user", "uUsername= '" & Me.txtUsername & "'")
                        uN = Me.txtUsername
                        '///logs
                        Set ulog = CurrentDb.OpenRecordset("tbl_logs", dbOpenDynaset, dbSeeChanges)
                        With ulog
                            .AddNew
                            .Fields("logDate") = Date
                            .Fields("logTime") = Now()
                            .Fields("logActivity") = "Logged in"
                            .Fields("logDetail") = Me.txtUsername & " logged in"
                            .Fields("uID") = uI
                            .Update
                        End With
                        Set ulog = Nothing
                            
                      
                        'Active profile ID (Which declared as public variable)
                        aprofile = DLookup("prfID", "tbl_user", "uUsername = '" & Me.txtUsername & "'")
                        
                        'Open Main Dashboard form
                        DoCmd.OpenForm "MainDashboard"
                        
                        'Update the Username textbox in the Main form
                        Forms!MainDashboard.txtActiveUser.Value = Me.txtUsername
                        

                        'Update the profile ID in the main form
                        Forms!MainDashboard.txtActiveProfile.Value = aprofile
                        
                        'Close the login form
                        DoCmd.Close acForm, "LoginForm"
            End If
End If
End Sub

BTW, that is a good catch!  I am sure others will benefit as well.