ola , boa tarde a todos

 como  eu façco pra  impedir q o usuario tenha acesso ao menu antes de inserir senha e nome dele ....  e no caso fazer  um filtro tendo o  administrador acesso a todas as areas do menu e o vendedor apenas a vendas .. por exemplo .. 

valeu

espero a resposta .. meio desesperado

Você tera que criar um campo de permição na sua tabela exemplo:

Tabela login

Campos

Senha:123

Usuario:Administrador

Permisão:SIM

 

Veja este teste que faço na tela do meu login :

Dim Criterio As String
       
        Criterio = "Nome = '" & txtusuário.Text & "'and Senha = '" & txtsenha.Text & "'and Acesso = '" & Sim.Text & "' "

        TBSenhas.FindMin Criterio
       
        If TBSenhas.NoMatch = False Then
            MDIPrincipal.Toolbar1.Buttons(1).Enabled = True
            MDIPrincipal.Toolbar1.Buttons(2).Enabled = True
            MDIPrincipal.Toolbar1.Buttons(3).Enabled = True
            MDIPrincipal.Toolbar1.Buttons(5).Enabled = True
            MDIPrincipal.Toolbar1.Buttons(6).Enabled = True
            MDIPrincipal.Toolbar1.Buttons(7).Enabled = True
            MDIPrincipal.Toolbar1.Buttons(9).Enabled = True
            MDIPrincipal.Show
            Unload frmlogin
       Else
            MDIPrincipal.Toolbar1.Buttons(1).Enabled = False
            MDIPrincipal.Toolbar1.Buttons(2).Enabled = True
            MDIPrincipal.Toolbar1.Buttons(3).Enabled = True
            MDIPrincipal.Toolbar1.Buttons(5).Enabled = True
            MDIPrincipal.Toolbar1.Buttons(6).Enabled = False
            MDIPrincipal.Toolbar1.Buttons(7).Enabled = False
            MDIPrincipal.Toolbar1.Buttons(9).Enabled = True
            MDIPrincipal.Show
            Unload frmlogin
           
        End If
 

 

Se o usario tiver acesso libero no meu meu acesso a certos forms caso contrario não ...

E por ai depende em muito da forma com que você esta construindo seu programa mas basicamente seria isto