Galera, to com mais uma etapa a vencer, quero aprender a colocar um sistema de senhas no meu BD. quero algo assim: somente pessoas cadastradas no sistema poderão ter acesso, e para ter acesso deverão inserir um logn e uma senha pessoal. cada usuário deve ter um perfil exclusivo. isso é dificil? Quero aprender. Se tiverem tutorial, apostilas, ou ate mesmoe exemplos por favor me indiquem. minha dificuldade ta sendo no editar o códico dos comando logn, mas sou iniciante vamos de leve. rsrsr.
4 participantes
Como incluir senhas, usuários e perfil?
saguio- Intermediário
- Respeito às regras :
Sexo :
Localização :
Mensagens : 52
Registrado : 19/03/2012
- Mensagem nº1
Como incluir senhas, usuários e perfil?
Avelino João- Avançado
- Respeito às regras :
Sexo :
Localização :
Mensagens : 316
Registrado : 10/03/2012
- Mensagem nº2
Re: Como incluir senhas, usuários e perfil?
Bom Dia Saguio ola veja no site do Avelino Sampaio tem o sistema Maestro que faz isso que voce querhttp://www.usandoaccess.com.br
.................................................................................
Proaccess - Angola
saguio- Intermediário
- Respeito às regras :
Sexo :
Localização :
Mensagens : 52
Registrado : 19/03/2012
- Mensagem nº3
Quase dando certo
Pessoal to fazendo meu sistema de usuario e logn, mas ta dando erro de copilação, veja documento anexo com a mensagem de erro veja se podem me ajudar.
saguio
saguio
- Anexos
- erra copilacao access.zip
- Você não tem permissão para fazer download dos arquivos anexados.
- (26 Kb) Baixado 55 vez(es)
JPaulo- Moderador
- Respeito às regras :
Sexo :
Localização :
Mensagens : 11026
Registrado : 04/11/2009
- Mensagem nº4
Re: Como incluir senhas, usuários e perfil?
Bom dia e feliz ano novo.
Falta uma virgula ae;
MsgBox "Senha incorreta ! Por favor tente novamente,", vbExclamation, "Login"
Falta uma virgula ae;
MsgBox "Senha incorreta ! Por favor tente novamente,", vbExclamation, "Login"
.................................................................................
Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.
Pay-Pal R$ Aqui
Pay-Pal € Aqui
Ou ainda: Aqui (Novo)
Sucesso e Bons Estudos
Success and Good Studies
Utilize o Sistema de Busca do Fórum...
102 Códigos VBA Gratuitos...
Instruções SQL como utilizar...
saguio- Intermediário
- Respeito às regras :
Sexo :
Localização :
Mensagens : 52
Registrado : 19/03/2012
- Mensagem nº5
continua erro
amigão, conloquei como voce disse e continua dando erro, ainda ta faltando algo.
vem essa mensagem de erro:
Erro em tempo de execução '2471':
A expressão que voce inseriu como parâmetro da consulto gerou este erro 'logn'
veja como da editado o código:
Private Sub btnLogn_click()
Dim criterio As String
criterio = "logn='" & CbxLogn & "' And senha='" & txtSenha & "'"
If DCount("logn", "Usuario", criterio) = 1 Then
DoCmd.OpenForm "Menu"
Else
MsgBox "Senha incorreta ! Por favor tente novamente,", vbExclamation, "Login"
txtSenha.SetFocus
End If
End Sub
QUando vem a mensagem de erro que peço para Depurar fica assim a seguinte linha fica amarela:
If DCount("logn", "Usuario", criterio) = 1 Then
Saguio
vem essa mensagem de erro:
Erro em tempo de execução '2471':
A expressão que voce inseriu como parâmetro da consulto gerou este erro 'logn'
veja como da editado o código:
Private Sub btnLogn_click()
Dim criterio As String
criterio = "logn='" & CbxLogn & "' And senha='" & txtSenha & "'"
If DCount("logn", "Usuario", criterio) = 1 Then
DoCmd.OpenForm "Menu"
Else
MsgBox "Senha incorreta ! Por favor tente novamente,", vbExclamation, "Login"
txtSenha.SetFocus
End If
End Sub
QUando vem a mensagem de erro que peço para Depurar fica assim a seguinte linha fica amarela:
If DCount("logn", "Usuario", criterio) = 1 Then
Saguio
Avelino Sampaio- Developer
- Respeito às regras :
Sexo :
Localização :
Mensagens : 3900
Registrado : 04/04/2010
- Mensagem nº6
Re: Como incluir senhas, usuários e perfil?
Olá
Altere para:
criterio = "logn='" & me!CbxLogn & "' And senha='" & me!txtSenha & "'"
If DCount("*", "Usuario", criterio) = 1 Then
"Usuario" é nome da tabela ?
Em vez de pesquisar a tabela, acho que poderia trazer na combobox a senha(coluna escondida). Com isso bastaria comparar a senha presente na combobox. Algo assim:
if me!txtsenha = me!cbxLogn.column(1) then
...
...
end if
Sucesso!
Avelino Sampaio
Altere para:
criterio = "logn='" & me!CbxLogn & "' And senha='" & me!txtSenha & "'"
If DCount("*", "Usuario", criterio) = 1 Then
"Usuario" é nome da tabela ?
Em vez de pesquisar a tabela, acho que poderia trazer na combobox a senha(coluna escondida). Com isso bastaria comparar a senha presente na combobox. Algo assim:
if me!txtsenha = me!cbxLogn.column(1) then
...
...
end if
Sucesso!
Avelino Sampaio
.................................................................................
Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces
Clique AQUI e analise o custo beneficio do material oferecido.
saguio- Intermediário
- Respeito às regras :
Sexo :
Localização :
Mensagens : 52
Registrado : 19/03/2012
- Mensagem nº7
Continua o erro
Ola,
Fiz umas mudanças e deu certo, mas ainda nao consegui fazer o formulario de logn fechar automatico. quando faço logn, abre o formulario principal e o formulario de logn continua aberto.
Saguio
Fiz umas mudanças e deu certo, mas ainda nao consegui fazer o formulario de logn fechar automatico. quando faço logn, abre o formulario principal e o formulario de logn continua aberto.
Saguio
» Back End e Front End tem como colocar senha nos dois bancos? como tratar as senhas?
» Como impedir que vários usuários acessem o BD simultaneamente?
» Como Não Ver Registros Deletados por Outros Usuários no Access VBA
» [Resolvido]Como expulsar usuarios conectados ao banco
» [Resolvido]Como fazer para criar um histórico das ações dos usuários
» Como impedir que vários usuários acessem o BD simultaneamente?
» Como Não Ver Registros Deletados por Outros Usuários no Access VBA
» [Resolvido]Como expulsar usuarios conectados ao banco
» [Resolvido]Como fazer para criar um histórico das ações dos usuários