[Resolvido]Tela de abertura Apaga Registro no banco de dados

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

Boa tarde baldocchi,

Eu utilizo um Login que peguei com o Mabesi. gostei muito dele pois tem um critério de senha (Senha forte).

Deve lhe ajudar com o seu projeto.

Muito obrigado bigfill, funcionou perfeitamente.

Fique em Paz!

baldocchi, obrigado pelo retorno. O fórum agradece.

Favor colocar como "Resolvido" no tópico.

tópico resolvido