[Resolvido]Função Dlookup

ola


Tenho Esta formula que funciona perfeito

If DLookup("[2]", "usuario", "[login] = txtUsuarioAtual") Then
DoCmd.Close
DoCmd.OpenForm "producao_princ"

Else
MsgBox "Acesso Negado, Usuário não Permitido.", _
vbOKOnly + vbCritical, "Permissão 2"
End If



no entanto gostaria de fazer a referencia em destaque que esta em uma caixa de texto, para a referencia do módulo que me retorna o usuário logado


tipo gostaria que ficasse assim, mas não funciona:



Dim User As String

User = GetusUarioAtual


If DLookup("[2]", "usuario", "[login] = User") Then
DoCmd.Close
DoCmd.OpenForm "producao_princ"

Else
MsgBox "Acesso Negado, Usuário não Permitido.", _
vbOKOnly + vbCritical, "Permissão 2"
End If

Tente isso...

Dim User As String

User = GetusUarioAtual


If DLookup("[2]", "usuario", "[login] = '"& User &"'") Then
DoCmd.Close
DoCmd.OpenForm "producao_princ"

Else
MsgBox "Acesso Negado, Usuário não Permitido.", _
vbOKOnly + vbCritical, "Permissão 2"
End If

Não esqueça da aspa simples para texto.

abç.

ok, vou testar e retorno, o valor a ser encontrado é numérico

Então tente sem aspa simples.

DLookup("[2]", "usuario", "[login] = "& User &"")

Não esqueça de ver tbm se a variavel tem alguma coisa dentro dela!

Desculpa no retorno,

não funcionou segui o procedimento conforme me orientou.

opa no primeiro exemplo funcionou certinho!!!

Valeu Muito obrigado


não estou conseguindo fechar o tópico

.