[Resolvido]Tela de Login

Boa tarde Pessoal,

Por favor estou tentando criar uma tela de login, como sou iniciante utilizei informações deste site.

Criei a tabela usuario: para cadastro de novos usuários;
e o formuláriologin com campos senha e usuário;
criei uma consulta entre eles e na hora de criar o evento no campo usuário está dando erro: de depuração na linha em destaque.

Alguma ajuda?

Private Sub btnCancelar_Click()
DoCmd.Quit
End Sub
Private Sub txtUsuario_AfterUpdate()
txtusuarioTab = txtusuario.Column(0)
txtusuariosenha = txtusuario.Column(1)

End Sub


Private Sub btnLogin_Click()
If txtusuario.Value = txtusuarioTab.Value And txtsenha.Value = txtusuariosenha.Value Then

DoCdm.OpenForm "teste de formulario para consultorio"
Else
MsgBox ("Usuario ou senha Invalido")

End If

End Sub

tente

If me.txtusuario.Value = txtusuarioTab.Value And me.txtsenha.Value = txtusuariosenha.Value Then

Boa noite, segue em anexo um exemplo ja funcional

Bom dia,
Este tópico foi solucionado?

Sim obrigado

Se foi solucionado, marque como resolvido por favor.
Dessa vez eu marco.