Pessoal, preciso de ajuda.
Eu tenho uma tela de abertura onde o usuário digita o Login, digita a Senha e Escolhe o Módulo.
Se o usuário existe, tudo bem, o sistema deixa ele entrar.
Porém, se o usuário ou a senha estão incorretos, o código APAGA esses campos.
O que eu estou fazendo de errado?
Agradeço muito a todos.
O código que eu uso está abaixo:
Private Sub Entrar()
rf = ""
senha = ""
modulo = ""
criterio = "rf='" & cbxLogin & "' And senha='" & txtSenha & "' And modulo= '" & CombMod & "'"
If DCount("rf", "tusuarios", criterio) = 1 Then
StrRFUsuario = cbxLogin
DoCmd.Close
DoCmd.OpenForm "fCad"
Else
MsgBox "Senha incorreta! Por favor, tente novamente.", vbExclamation, "Login"
txtSenha.SetFocus
End If
End Sub
Eu tenho uma tela de abertura onde o usuário digita o Login, digita a Senha e Escolhe o Módulo.
Se o usuário existe, tudo bem, o sistema deixa ele entrar.
Porém, se o usuário ou a senha estão incorretos, o código APAGA esses campos.
O que eu estou fazendo de errado?
Agradeço muito a todos.
O código que eu uso está abaixo:
Private Sub Entrar()
rf = ""
senha = ""
modulo = ""
criterio = "rf='" & cbxLogin & "' And senha='" & txtSenha & "' And modulo= '" & CombMod & "'"
If DCount("rf", "tusuarios", criterio) = 1 Then
StrRFUsuario = cbxLogin
DoCmd.Close
DoCmd.OpenForm "fCad"
Else
MsgBox "Senha incorreta! Por favor, tente novamente.", vbExclamation, "Login"
txtSenha.SetFocus
End If
End Sub