MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Ajuda com DLookup

    avatar
    Misson Lira
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 334
    Registrado : 01/12/2016

    [Resolvido]Ajuda com DLookup Empty [Resolvido]Ajuda com DLookup

    Mensagem  Misson Lira em 11/10/2019, 03:03

    Boa noite, pessoal!

    Pessoal, to precisando da ajuda de vocês mais uma vez.... Vamos la!

    Tenho uma função que recebe os sequiantes parâmetros.

    Function VerificarAutorizacaoUsuario(strNomeFrm As String, strNomeCheckBox As String)

    e faço uma pesquisa usando o DLookup para verificar se o usuário que esta sendo pesquisa ele esta na tabela marcado ou desmarcado na checkbox

    UserLevel = (IsNull(DLookup(strNomeCheckBox, "Tbl_Cds_Usuarios", strNomeCheckBox = 0 _
    & " AND [login] = '" & Form_ & strNomeFrm & ".TXT_Usuario()" & "'")))

    observe que em negrito tem as variáveis que recuperei da função.
    Nesse caso ele não da erro mais só retorna Verdadeiro, mesmo alterando o campo da checkbox para falso(-1) ou seja desmarcando.

    Minha necessidade é colocar para verificar se esta ou não selecionado a checkbox do usuário. Alguém para me ajuda?
    avatar
    Misson Lira
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 334
    Registrado : 01/12/2016

    [Resolvido]Ajuda com DLookup Empty Re: [Resolvido]Ajuda com DLookup

    Mensagem  Misson Lira em 12/10/2019, 01:58

    Boa noite!

    Depois de quebra muito a cabeça, conseguir resolver o problema... Vou coloca aqui para futuras dúvidas espero que ajude alguem no futuro.

    COMANDO ERRADO

    UserLevel = (IsNull(DLookup(strNomeCheckBox, "Tbl_Cds_Usuarios", strNomeCheckBox = 0 _
    & " AND [login] = '" & Form_ & strNomeFrm & ".TXT_Usuario()" & "'")))

    COMANDO CERTO

    UserLevel = (IsNull(DLookup(strNomeCheckBox, "Tbl_Cds_Usuarios", strNomeCheckBox & " = 0 " _
                       & " AND [login] ='" & getUsuarioAtual() & "'")))

    Lembrando que qual duvida pode chama. Um forte abraço!

      Data/hora atual: 4/12/2020, 11:35