MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    Buscar Admin

    Compartilhe

    marcelo3092
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 45
    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

    rubenscouto
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 554
    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: Sex 09 Dez 2016, 07:43