[Resolvido]Ajuda com Senha do Login

Boa noite a todos,

Venho pedir ajuda mais uma vez aos companheiros do fórum, agora não estou conseguindo fazer com que a MSgBox dispare quando a Senha for digitada errada. Ao clicar no botão com o script abaixo, não acontece nada... Já quebrei a cabeça e não queria depois de já está praticamente finalizada a Aplicação criar processo dos usuários de novo.

Preciso também que se digitar 3 vezes errada feche o Login

Por favor me ajude a verificar se tem algum erro nesse script para que possa quando digitar a senha, se for correta passa tranquilo. Mais se for errada não aparece a mensagem "Senha incorreta, digite novamente!

Abaixo o Código e o Módulo que estou usando...

Private Sub cmdEntrar_Click()
PlaySound fLocalBd & "\ConfCX\Sons\click.wav", 1, 1
If verificaLogin(txtUser, txtSenha) Then
If Me.txtSenha.Value = DLookup("[Senha]", "[tblUsuarios]", "[User] = '" & Me.txtUser & "'") Then
Identificacao = DLookup("[NivelSeguranca]", "[tblUsuarios]", "[User] = '" & Me.txtUser & "'")

Select Case Identificacao

Case 1
stDocName = "frmMenus"
Case 2
stDocName = "frmProgresso"
Case 3
stDocName = "frmMenus"
End Select
DoCmd.Close
DoCmd.OpenForm stDocName
Else
MsgBox "Senha Incorreta, coloque novamente.", vbOKOnly + vbCritical 'Essa função que não aparece se digitar a Senha errada!
Me.txtSenha.Value = ""
Exit Sub
End If
End If
End Sub


Módulo Login e Senha

Option Explicit
Private strUsuarioAtual As String

Function verificaLogin(argLogin As String, argSenha As String) As Boolean
Dim criterio As String
criterio = "User='" & argLogin & "' And Senha='" & argSenha & "'"
If Nz(DCount("User", "tblUsuarios", criterio), 0) > 0 Then
verificaLogin = True
setUsuarioAtual argLogin
Else
verificaLogin = False
End If

End Function
Sub setUsuarioAtual(argUsuario As String)
strUsuarioAtual = argUsuario
End Sub
Function getUsuarioAtual() As String
getUsuarioAtual = strUsuarioAtual
End Function

Jeferson

Tai o teu exemplo com
as modificações no login.
Não tente rodar, pois vai dar erros.
Só coloquei o frmLogin e o mód_LoginSenha
onde eu fiz as modificações.
Se precisar, compare com o teu aplicativo.

Procure aprender a fazer depuração
do código vba, utilizar ponto de interrupção, testar valores
na janela imediata.
Dessa maneira, irá  pode acompanhar o código linha a linha
e ver onde está o erro.
É só pesquisar na net que encontrará tutorial sobre isso.

Downloand do arquivo

[ ]'s

Bom dia Nobezinho,

Você é uma benção na minha vida...

Obrigado pelo apoio.

Aceito o ensinamento. Pras desenvolver um programa requer bastante conhecimento, muita atenção e profissionalismo. Isso você tem de sobra companheiro.

Aceito sua dica e vou procurar me aprofundar mais. Pois ainda tenho muito a aprender. Só o curso não da pano pra manga!

Tem que se virar paralelamente...

Vou testar e te dou retorno...

Abraço,

Jefferson D'Assis

Boa tarde amigos,

Quero aproveitar para agradecer a Rubens, Nobezinho, Cleverson e todos que compõem esse fórum maravilhoso.

Rogo a Deus que os abençoe e lhes conceda bênçãos sem medida, sobre cada um e suas famílias.

Deixo a abaixo o que consegui desenvolver com a ajuda do Nobezinho e estudando depuração como ele me indicou.

Sei que alguns tem que com dificuldade até já desistiram de fazer uma menu redondo. De forma simples mais que da pra usar. Afinal de contas, o Sistema estando bem travado, o Usuário só terá em mãos as senhas que receberem para utilizar no, Login do Sistema.

Veja aí como ficou meu Login e Senha...

Abraço a todos....

SEGUE

:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

Criar Tabel com nome = tblUsuarios
Campo "User" com chave
Campo "Senha" com Mascara Senha
Campo "NiveldeSeguranca" com Número

No Usuário Administrador por exemplo, coloque senha e Nível 1 e assim por diante nos demais usuários, coloque o Nível e no Código do cmdEntrar Mencione o form que o usuário irá acessar.

No cmdEntrar

Private Sub cmdEntrar_Click()
PlaySound fLocalBd & "\ConfCX\Sons\click.wav", 1, 1
If verificaLogin(txtUser, txtSenha) Then
If Me.txtSenha.Value = DLookup("[Senha]", "[tblUsuarios]", "[User] = '" & Me.txtUser & "'") Then
Identificacao = DLookup("[NivelSeguranca]", "[tblUsuarios]", "[User] = '" & Me.txtUser & "'")

Select Case Identificacao

Case 1
stDocName = "frmMenus"
Case 2
stDocName = "frmProgresso"
Case 3
stDocName = "frmMenus"
End Select
DoCmd.Close
DoCmd.OpenForm stDocName
Exit Sub
End If
End If
End Sub

No Ao Apertar o Mouse

Private Sub cmdEntrar_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Me.txtSenha = "" Or IsNull(Me.txtSenha) Then
MsgBox "Por favor, digite a Senha!", vbInformation, "Atenção"
Me.txtSenha = ""
Me.txtSenha.SetFocus
End If
End Sub


Módulo: modLoginSenha

Option Explicit
Private strUsuarioAtual As String

Function verificaLogin(argLogin As String, argSenha As String) As Boolean
Dim criterio As String
criterio = "User='" & argLogin & "' And Senha='" & argSenha & "'"
If Nz(DCount("User", "tblUsuarios", criterio), 0) > 0 Then
verificaLogin = True
setUsuarioAtual argLogin
Else
verificaLogin = False
MsgBox "Por gentileza, digite a Senha correta, Caso não saiba entre em contato com o administrador do Sistema.", vbInformation + vbOKOnly, "JefSoftSC® ConfCX"
Screen.ActiveForm!txtSenha = ""
Screen.ActiveForm!txtSenha.SetFocus
End If
End Function
Sub setUsuarioAtual(argUsuario As String)
strUsuarioAtual = argUsuario
End Sub
Function getUsuarioAtual() As String
getUsuarioAtual = strUsuarioAtual
End Function


Para exibir Usuário atual no form principal

Crie uma caixa de texto chamada: txtUser no form principal e no Controle digite =getUsuarioAtual() "Exibirá o usuário atual"

No final. deu tudo certo, né?

Valeu o retorno!

Boa sorte !