MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


2 participantes

    [Resolvido]Nivel de Acesso com DLookup

    Roger-Castanharo
    Roger-Castanharo
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 28
    Registrado : 07/09/2012

    [Resolvido]Nivel de Acesso com DLookup Empty Nivel de Acesso com DLookup

    Mensagem  Roger-Castanharo 28/9/2012, 14:28

    Olá colegas de forum, mais uma vez venho pedir um auxilio.

    Bom, criei um sisteminha de login com mult usuarios.
    Na tabela há a coluna Admin (Sim/Não) e estou tentando recuperar essa informação com Dlookup que está em modulo chamado ao tentar entrar em area restrita.

    Dim Acesso As Variant
    Dim UsuarioLogado As String

    UsuarioLogado = Me.Funcionario.Value

    Acesso = DLookup ("[Admin]", "Tbl_Usuarios", "'[Usuario =' & UsuarioLogado")

    if (Acesso = True) Then
    ...Abre Formulario...
    Else
    ...
    End if


    Só acabo recebendo o erro 2001 e não passa da linha do Dlookup

    Grato, deis de já.
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3948
    Registrado : 21/04/2011

    [Resolvido]Nivel de Acesso com DLookup Empty Re: [Resolvido]Nivel de Acesso com DLookup

    Mensagem  Marcelo David 28/9/2012, 14:44

    O que é usuário logado, é número ou texto?



    .................................................................................
    [Resolvido]Nivel de Acesso com DLookup Favicon-16x16   Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo]
    [Resolvido]Nivel de Acesso com DLookup Favicon-16x16   Access e VBA - Formulário Desacoplado - [Passo a passo]
    [Resolvido]Nivel de Acesso com DLookup Yt_16x10 Conheça meu canal no Youtube e se inscreva.
    [Resolvido]Nivel de Acesso com DLookup Marcel11
    Roger-Castanharo
    Roger-Castanharo
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 28
    Registrado : 07/09/2012

    [Resolvido]Nivel de Acesso com DLookup Empty Re: [Resolvido]Nivel de Acesso com DLookup

    Mensagem  Roger-Castanharo 28/9/2012, 14:50

    Obrigado pelo retorno Marcelo.

    Pois bem, é uma Variavel Texto, a declaração dela postei ao no codigo, ela recebe o conteúdo de uma Caixa de Texto dentro formulario.
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3948
    Registrado : 21/04/2011

    [Resolvido]Nivel de Acesso com DLookup Empty Re: [Resolvido]Nivel de Acesso com DLookup

    Mensagem  Marcelo David 28/9/2012, 14:56

    Teste:
    Acesso = DLookup ("Admin", "Tbl_Usuarios", "'Usuario=' & UsuarioLogado")

    Seria mais funcional, comparar "Admin" com a chave primária...


    .................................................................................
    [Resolvido]Nivel de Acesso com DLookup Favicon-16x16   Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo]
    [Resolvido]Nivel de Acesso com DLookup Favicon-16x16   Access e VBA - Formulário Desacoplado - [Passo a passo]
    [Resolvido]Nivel de Acesso com DLookup Yt_16x10 Conheça meu canal no Youtube e se inscreva.
    [Resolvido]Nivel de Acesso com DLookup Marcel11
    Roger-Castanharo
    Roger-Castanharo
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 28
    Registrado : 07/09/2012

    [Resolvido]Nivel de Acesso com DLookup Empty Re: [Resolvido]Nivel de Acesso com DLookup

    Mensagem  Roger-Castanharo 28/9/2012, 15:07

    Negativo, deu a mesma coisa com a chave primaria.
    Ainda recebo o erro 2001: Você cancelou a operação anterior.
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3948
    Registrado : 21/04/2011

    [Resolvido]Nivel de Acesso com DLookup Empty Re: [Resolvido]Nivel de Acesso com DLookup

    Mensagem  Marcelo David 28/9/2012, 15:31

    Amigo, poste seu banco para vermos a estrutura, pois
    o comando está correto, agora não sabemos exatamente com
    o que o Dloockup de fato está comparando dados.


    No aguardo


    .................................................................................
    [Resolvido]Nivel de Acesso com DLookup Favicon-16x16   Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo]
    [Resolvido]Nivel de Acesso com DLookup Favicon-16x16   Access e VBA - Formulário Desacoplado - [Passo a passo]
    [Resolvido]Nivel de Acesso com DLookup Yt_16x10 Conheça meu canal no Youtube e se inscreva.
    [Resolvido]Nivel de Acesso com DLookup Marcel11
    avatar
    Convidado
    Convidado


    [Resolvido]Nivel de Acesso com DLookup Empty Re: [Resolvido]Nivel de Acesso com DLookup

    Mensagem  Convidado 28/9/2012, 16:19

    Olá roger,

    Dá uma olhada na ajuda do vba sobre campos SIM/NAO. Pois acho que que a referencia a eles seria 1 ou -1 (não tenho access no momento). então a linha ficaria assim:

    if (Acesso = 1) Then
    ...Abre Formulario...
    Else
    ...
    End if




    Nivaldo.
    Roger-Castanharo
    Roger-Castanharo
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 28
    Registrado : 07/09/2012

    [Resolvido]Nivel de Acesso com DLookup Empty Re: [Resolvido]Nivel de Acesso com DLookup

    Mensagem  Roger-Castanharo 28/9/2012, 17:50

    Então Marcelo, desculpe não conseguir postar meu projeto, enfrentei alguns problemas com o proxy daqui.

    Nivaldo, se for esse o caso o campo Sim/Não esta devolvendo 0 e 1, ou seja Boolean, então já mudei a variavel que armazena o retorno dele. Mas mesmo assim a execução do codigo para no Dlookup, não chega ao if.
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3948
    Registrado : 21/04/2011

    [Resolvido]Nivel de Acesso com DLookup Empty Re: [Resolvido]Nivel de Acesso com DLookup

    Mensagem  Marcelo David 28/9/2012, 18:34

    Consegue mandar por e-mail?
    Caso sim, mande para:
    ou tente compactar em um arquivo .zip e anexe no fórum...


    Última edição por Marcelo David em 29/9/2012, 16:34, editado 1 vez(es)


    .................................................................................
    [Resolvido]Nivel de Acesso com DLookup Favicon-16x16   Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo]
    [Resolvido]Nivel de Acesso com DLookup Favicon-16x16   Access e VBA - Formulário Desacoplado - [Passo a passo]
    [Resolvido]Nivel de Acesso com DLookup Yt_16x10 Conheça meu canal no Youtube e se inscreva.
    [Resolvido]Nivel de Acesso com DLookup Marcel11
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3948
    Registrado : 21/04/2011

    [Resolvido]Nivel de Acesso com DLookup Empty Re: [Resolvido]Nivel de Acesso com DLookup

    Mensagem  Marcelo David 29/9/2012, 06:00

    Bom dia amigo!

    Recebi seu aplicativo no meu e-mail, e pude perceber onde
    estava o erro.
    Veja como ficou a pesquisa feita pelo Dlookup no código.
    O erro surgia porque você estava fazendo uma comparação
    com um controle que não existia "UsuarioLogado" e no entanto,
    deveria ser com o campo que o nome do usuário logado aparece, que no
    caso é "Responsavel"

    Baixe o anexo e confira:
    O usuário Roger pode acessar o painel de moradores, já o usuário
    Paulo não pode.
    A senha do usuário Paulo é 1234
    Anexos
    [Resolvido]Nivel de Acesso com DLookup AttachmentProjeto RT56-2012.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (320 Kb) Baixado 64 vez(es)


    .................................................................................
    [Resolvido]Nivel de Acesso com DLookup Favicon-16x16   Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo]
    [Resolvido]Nivel de Acesso com DLookup Favicon-16x16   Access e VBA - Formulário Desacoplado - [Passo a passo]
    [Resolvido]Nivel de Acesso com DLookup Yt_16x10 Conheça meu canal no Youtube e se inscreva.
    [Resolvido]Nivel de Acesso com DLookup Marcel11
    Roger-Castanharo
    Roger-Castanharo
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 28
    Registrado : 07/09/2012

    [Resolvido]Nivel de Acesso com DLookup Empty Re: [Resolvido]Nivel de Acesso com DLookup

    Mensagem  Roger-Castanharo 1/10/2012, 13:21

    Ótimo, muito obrigado Marcelo, já estava desistindo e tentando contornar o problema, mas a sua solução veio na hora certa.

    Fico grato, já podemos dar como Resolvido.
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3948
    Registrado : 21/04/2011

    [Resolvido]Nivel de Acesso com DLookup Empty Re: [Resolvido]Nivel de Acesso com DLookup

    Mensagem  Marcelo David 1/10/2012, 13:27

    Grato amigão pelo retorno, o fórum agradece! Very Happy


    .................................................................................
    [Resolvido]Nivel de Acesso com DLookup Favicon-16x16   Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo]
    [Resolvido]Nivel de Acesso com DLookup Favicon-16x16   Access e VBA - Formulário Desacoplado - [Passo a passo]
    [Resolvido]Nivel de Acesso com DLookup Yt_16x10 Conheça meu canal no Youtube e se inscreva.
    [Resolvido]Nivel de Acesso com DLookup Marcel11

    Conteúdo patrocinado


    [Resolvido]Nivel de Acesso com DLookup Empty Re: [Resolvido]Nivel de Acesso com DLookup

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/11/2024, 17:56