Login e Senha através de VBA

Boa tarde Srs.

Estou postando o meu BD a minha dificuldade é a seguinte, no formulário acesso, quando o login e senha forem iguais a tbl_usuario, ao clicar no botão acessar ele irá abrir o formulário menu, caso esteja errado, irá dar uma msnbox "Acesso Negado", veja os meus código e me oriente aonde foi que eu errei.

Obrigado...

Opa Bessa,

Deixe o seu IF conforme abaixo

   

Código:

If Txt_Senha = DLookup("[Senha]", "[TBL_usuario]", "[Usuario]='" & txt_usuario.Column(txt_usuario.ListIndex, 1) & "'") Then
      
        DoCmd.Close acForm, "Forms_login"
        DoCmd.OpenForm "forms_menu"
      Else
        MsgBox "Senha Incorreta, coloque novamente.", vbInformation + vbOKOnly, "Erro"
        Me.Txt_Senha.Value = ""
        
    End If

Prezado Live Brain

O código que o amigo postou deu certo, porém somente se eu acessar com um único usuário caso tenha outros ele não reconhece a senha daquele usuário e da msgbox que a senha está errada, segue novamente o BD.

Agradeço pela sua ajuda...

Vi que você fez algumas alterações no Formulário e até na Tabela, por isso não está funcionando mais.

Vamos lá novamente:

Altere a origem da linha da sua Caixa de combinação para

Código:

SELECT Tbl_Login.Usuario FROM Tbl_Login;

podei deixar as propriedades Número de Colunas e Coluna acoplada em 1

Depois deixe sei código igual abaixo

Código:

If Txt_Senha = DLookup("[Senha]", "[TBL_login]", "[Usuario]='" & Txt_Usuario.Column(0, Txt_Usuario.ListIndex) & "'") Then
    DoCmd.Close acForm, "Forms_acesso"
    DoCmd.OpenForm "forms_menu"
Else
    MsgBox "Senha Incorreta, coloque novamente.", vbInformation + vbOKOnly, "Erro"
    Me.Txt_Senha.Value = ""
End If


Professor Live Brain

Não estou conseguindo alterar o seguinte:
SELECT Tbl_Login.Usuario FROM Tbl_Login; na caixa de combinação quando coloco esse código na origem da linha da caixa e mando executar no modo formulário a caixa fica vazia sem aparecer os usuários da tbl_login.

Obrigado pela ajuda...

Deixe a propriedade LarguraS das Colunas em branco

Professor Live Brain

Deu certo fiz conforme Sr. colocou e está funcionando, antes de colocar como resolvido tenho uma pergunta, há possibilidade de por exemplo eu entro com o login admin, e vou e altero o preço de um produto e fica registrado quem foi que fez essa alteração de acordo com o nome do usuário logado.

De qualquer forma muito obrigado aprendi bastante com relação aos códigos...

Grato