[Resolvido]Nivel de Acesso com DLookup

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

Roger-Castanharo: Novato; Respeito às regras :

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

Mensagem nº1

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** 28/9/2012, 14:44

Marcelo David

Marcelo David: Moderador; Respeito às regras :

Sexo :
Localização :
Mensagens : 3947
Registrado : 21/04/2011

Mensagem nº2

Re: [Resolvido]Nivel de Acesso com DLookup

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

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

.................................................................................

Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo]

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 28/9/2012, 14:50

Roger-Castanharo

Roger-Castanharo: Novato; Respeito às regras :

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

Mensagem nº3

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** 28/9/2012, 14:56

Marcelo David

Marcelo David: Moderador; Respeito às regras :

Sexo :
Localização :
Mensagens : 3947
Registrado : 21/04/2011

Mensagem nº4

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...

.................................................................................

Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo]

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 28/9/2012, 15:07

Roger-Castanharo

Roger-Castanharo: Novato; Respeito às regras :

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

Mensagem nº5

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** 28/9/2012, 15:31

Marcelo David

Marcelo David: Moderador; Respeito às regras :

Sexo :
Localização :
Mensagens : 3947
Registrado : 21/04/2011

Mensagem nº6

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

.................................................................................

Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo]

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

Convidado 28/9/2012, 16:19

Convidado

Convidado: Convidado

Mensagem nº7

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 28/9/2012, 17:50

Roger-Castanharo

Roger-Castanharo: Novato; Respeito às regras :

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

Mensagem nº8

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** 28/9/2012, 18:34

Marcelo David

Marcelo David: Moderador; Respeito às regras :

Sexo :
Localização :
Mensagens : 3947
Registrado : 21/04/2011

Mensagem nº9

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)

.................................................................................

Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo]

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** 29/9/2012, 06:00

Marcelo David

Marcelo David: Moderador; Respeito às regras :

Sexo :
Localização :
Mensagens : 3947
Registrado : 21/04/2011

Mensagem nº10

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

Projeto RT56-2012.zip: Você não tem permissão para fazer download dos arquivos anexados.; (320 Kb) Baixado 64 vez(es)

.................................................................................

Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo]

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 1/10/2012, 13:21

Roger-Castanharo

Roger-Castanharo: Novato; Respeito às regras :

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

Mensagem nº11

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** 1/10/2012, 13:27

Marcelo David

Marcelo David: Moderador; Respeito às regras :

Sexo :
Localização :
Mensagens : 3947
Registrado : 21/04/2011

Mensagem nº12

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

.................................................................................

Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo]

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

Conteúdo patrocinado

Conteúdo patrocinado

Mensagem nº13

Re: [Resolvido]Nivel de Acesso com DLookup

Mensagem Conteúdo patrocinado

MaximoAccess

MaximoAccess

MaximoAccess

[Resolvido]Nivel de Acesso com DLookup

Nivel de Acesso com DLookup

Re: [Resolvido]Nivel de Acesso com DLookup

Re: [Resolvido]Nivel de Acesso com DLookup

Re: [Resolvido]Nivel de Acesso com DLookup

Re: [Resolvido]Nivel de Acesso com DLookup

Re: [Resolvido]Nivel de Acesso com DLookup

Re: [Resolvido]Nivel de Acesso com DLookup

Re: [Resolvido]Nivel de Acesso com DLookup

Re: [Resolvido]Nivel de Acesso com DLookup

Re: [Resolvido]Nivel de Acesso com DLookup

Re: [Resolvido]Nivel de Acesso com DLookup

Re: [Resolvido]Nivel de Acesso com DLookup

Re: [Resolvido]Nivel de Acesso com DLookup

Tópicos semelhantes

Tópicos semelhantes

Pesquisar

Resultados por: Mensagens Tópicos
Pesquisa avançada