MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    Buscar Admin

    Compartilhe

    marcelo3092
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 87
    Registrado : 19/08/2010

    Buscar Admin

    Mensagem  marcelo3092 em Seg 20 Jun 2016, 02:25

    Ola pessoal vim aq para pedir uma ajudinha a vcs.
    seguinte tenho um código q uso para poder executar funções como admin porem estou criando outro sistema e nesse tem admin e supervisor eu uso o código abaixo
    Dim Y As String
    Dim strForm As String
    Dim strRet As String
    Y = InputBoxDK("Entre com a Senha Para Editar Cadastro!!!.", "Autorização")
    If Y = DLookup("Senha", "Funcionários", "Administrador=True Or Supervisor=True") Then esse código aq foi alterado era so admi
    Dados.Enabled = True
    Cód_Cliente.SetFocus
    Else
    MsgBox "Você não tem Permissão Para Executar Esta Ação", vbCritical, "Autorização"
    'aqui a mensagem de senha incorreta. Pode alterar
    End If

    Porem esse código so busca por um admin ou um supervisor no caso o primeiro registro porem pode ser que tenho mais de um supervisor ou administrador do sistema como posso fazer pra que ele busque em Toda a tabela lembrando q os campo para defini admin e supervisor são Campos Sim/Não
    avatar
    rubenscouto
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 618
    Registrado : 02/10/2011

    Re: Buscar Admin

    Mensagem  rubenscouto em Seg 20 Jun 2016, 11:30

    If Y = DLookup("Senha", "Funcionários", "Administrador=True Or Supervisor=True") Then
    Como funciona:
    a função Dlookup busca a "Senha" na tabela "Funcionarios" onde o Usuario seja o administrador.
    Exemplo: = DLookup("Senha", "Funcionários", "Usuario = 'Administrador'"" ) Then
    neste caso, é necessário comparar a senha digitada na inputbox com a senha armazenada na tabela "Usuarios" e que seja igual a senha do usuario "Administrador". Caso isto seja verdade, habilite os campos necessários.

      Data/hora atual: Seg 20 Nov 2017, 17:04