[Resolvido]criar um formulario com login e senha vba

como eu posso buscar os valores de uma tabela e comparar se eles batem
quando eu digitar no frmLogin, login:........ e senha:......... e clicar em confirmar seja aberto outro formulário se o login e senha forem certo.
qual o codigo vba de login e senha pra esta questão obrigado
ai vai o resumo do meu bd e o condigo que eu testei e deu errado ok!
se alguém poder corrigir, desde já obrigado

Option Compare Database

Private Sub cmdConfirmar_Click()


   If Me.txtSenha.Value = DLookup("[Senha]", "[TblLogin]", "[Login]= '" & Me.txtLogin & "'") Then
   
   Else
       MsgBox "Senha incorreta, coloque novamente.", vbInformation + vbOKOnly, "Erro"
       Me.txtSenha.Value = ""
       Exit Sub
       
End If

End Sub

Bom dia,....

De uma olhada nesse exemplo clicando aqui,

Bons estudos para ti.

perdão eu mandei o arquivo errado ai vai o verdadeiro resumido ok!

Olá Airton, tente usar o mesmo código sugerido para o Tópico do Bernardo, mais uma dica, sempre verifique o fórum antes de abrir um novo tópico, pois outra pessoa as vezes já abriu um tópico com o mesmo assunto, fique atento!

Código Corrigido!

Código:

Private Sub cmdConfirmar_Click()
Dim VerificaUsuario
Dim SenhaDoUsuario

VerificaUsuario = DLookup("Login", "LOGIN_SENHA", "Login = '" & Me.txtLogin.Column(1) & "'") 'Especificar a Coluna do ListBox
SenhaDoUsuario = DLookup("SENHA", "LOGIN_SENHA", "Login = '" & Me.txtLogin.Column(1) & "'") 'Especificar a Coluna do ListBox

    'Verifica se o Usuário Existe
    If IsNull(VerificaUsuario) Then
        MsgBox "O Usuário informado não existe neste Sistema!", vbCritical, "Usuário Inválido"
    Else
    'Verifica se a Senha Confere
        If Me.txtSenha = SenhaDoUsuario Then
            DoCmd.Close acForm, "frmLOGIN"
            DoCmd.OpenForm ("frmMenu"), acNormal
        Else
            MsgBox "A Senha que você digitou está incorreta, por favor, tente novamente!", vbCritical, "Senha Inválida"
        End If
    End If
End Sub

Sucesso!

Cumprimentos!

Este tópico o ajudou? Agradecer não custa nada e ainda nos motiva a continuar lhe ajudando. Então que tal dar um joinha ?

valeu eu adaptei e deu tudo certo

Que bom, Sucesso! O Fórum agradece o Retorno!

Cumprimentos!

Este tópico o ajudou? Agradecer não custa nada e ainda nos motiva a continuar lhe ajudando. Então que tal dar um joinha ?

colegas, gostei desse formulário, agora vocês poderia me ajadar como que eu faço para recuperar senha?