how to implement application of user account

[codesearcher]

hello. I would like to ask for an idea how to use the username and password in order to know which menus and submenus he or she is allowed to use and also if I have two applications inventory and cashier and I only allow him to use the inventory program.

[gibra]

You can create a Permissions table, related to Users table, which contains the authoritation flags by user.

When the user connect to program, hide/show menus and submenus in accord to related flag.

[codesearcher]

gibra, can you show me the fields of those permission and users table and how the authorization flags work.

[stum]

gibra, can you show me the fields of those permission and users table and how the authorization flags work.

what he means is something like this (only with menus and not Forms):



Now if you're talking about Menus, you can set all menus to Not Visible by default when you create them.
and place a sub on Form_Load for example, that will .Visible = True all menus depending on the user access





P.S
could it be that you did not explain the situation clear enough, as it seems quite a trivial solution to a trivial issue ... ?

[codesearcher]

stum. thanks for making it clear for me with regards to flags.

[masoudk1990]

Stum architecture is not good and have redundancy.

Try this architecture:

user name|menu name
----------|-----------
administrator|menu1
administrator|menu2
sarah|menu2

First you can disable all menus:

    For Each i In Me.Controls
        If TypeName(i) = "Menu" Then
            If (i.Caption <> "-") Then
                i.Enabled = False
            End If
        End If
    Next

Then enable menus that user should have access:

Dim rs As New ADODB.Recordset
rs.Open "SELECT * FROM TableAccess WHERE UserName = 'Administrator'", connection, adOpenStatic, adLockReadOnly

    rs.MoveFirst
    Do While Not (rs.EOF Or rs.BOF)
    
        For Each i In Me.Controls
            If TypeName(i) = "Menu" Then
                If Trim(rs!MenuName) = i.Name Then
                    i.Enabled = True
                End If
            End If
        Next

        rs.MoveNext
        
    Loop
    rs.Close

    Set rs = Nothing