[Resolvido]Tela de Login em que o usuário e senha estão em uma tabela

Tenho uma tabela em que tem um campo pra Usuário e o outro pra Senhas.

Eu criei um formulário com as textbox de Usuário e Senha e quero criar um botão que, caso o valor inserido nessas textboxes tiverem na tabela, ele abrir um formulário determinado.

Tem como fazer isso sem VBA? Como eu faço pra ele consultar se os valores que eu botar na textbox estão corretos?

Boa noite colega, seja bem vindo ao forum....
Na penúltima linha do seu código do botão escreva:

DoCmd.OpenForm "NomedoFormulário", acNormal

Obrigado, mas o problema não é abrir o formulário, o problema é só abrir se os valores das textboxes(login e senha) estiverem "registradas" na tabela que tem o usuário e senha.

Como eu faço isso?


Ex :

Campo usuário da tabela tbl_usuarios - registros : admin, jose, claudio, roberto.
Campo senha da tabela tbl_usuarios - registros ::: admin8087, 123jose, claudio2087, roberto890923.

Então, caso eu bote no textbox do usuario "admin" e no textbox de senha "admin8087", irá funcionar e entrar no formulário.

Há vários exemplos e topicos sobre o assunto....
Veja este. Bom estudo....

http://speedy.sh/pqBmc/LoginSenha.rar

Obrigado, abri o arquivo e peguei o código, só que no meu, se eu botar qualquer usuário e senha e clicar no botão, ele nem abre. Olha o código que usei:


Private Sub Comando4_Click()

If IsNull(Me.txtUser) Or Me.txtUser.Value = "" Then
MsgBox "Você não digitou um usuário. Esse campo é obrigatório", , "Usuário"
Me.txtUser = Null
Me.txtUser.SetFocus

ElseIf Me.txtSenha <> DLookup("[usSenha]", "tbl_Usuários", "usNome='" & Me!txtUser & "'") Then
MsgBox ("A senha não confere. Por favor, digite-a novamente.")

ElseIf Me.txtSenha = DLookup("usSenha", "tbl_usuários", "usnome='" & Me!txtUser & "'") Then
DoCmd.OpenForm ("Configurações")

End If

End Sub

O que tem de errado aí? Alguém poderia verificar?

Vou deixar o arquivo aqui:

http://www.sendspace.com/file/8cf0oq

As tabelas são tbl_Usuários e o formulário Login. Obrigado.

Olá amigo
Você usou o winrar para compactar o arquivo?

Não baixo arquivo com extensão .exe.

Se quer compartilhar o teu aplicativo, compacte-o em formato.zip
e anexe junto ao teu post aqui no fórum, é muito fácil de se fazer isso.
É só olhar os botões escolher arquivo e enviar existente abaixo da caixa onde você digita os posts.

Abraços

Colega boa noite....os proximos exemplos que postar neste ou qualquer forum compacte o arquivo com rar ou zip....
A principio testei e esta funcionando....
Trabalha com access 2007?

Boa noite amigão, quanto tempo....desculpe enquanto postava eu estava digitando....
ai esta o arquivo do colega
http://speedy.sh/X2Vrs/Votacao.rar

Nossa, eu tinha compactado, mas na hora de selecionar o arquivo, selecionei o arquivo que não estava. :/

Obrigado por postar o link compactado, @cafpr.

Bom, quanto a dúvida, veja que se eu botar valores "errados" nas textboxes (Ex: usuario: asdasdas senha: asdsaf), o botão não executa nada.

Por favor, se puder testar e dar uma olhada no código.


EDIT:

JÁ RESOLVI!

É que eu estava usando o código no lugar errado.

O certo é :

Private Sub Comando4_Click()

If IsNull(Me.txtUser) Or Me.txtUser.Value = "" Then
MsgBox "Você não digitou um usuário. Esse campo é obrigatório", , "Usuário"
Me.txtUser = Null
Me.txtUser.SetFocus



ElseIf Me.txtSenha = DLookup("usSenha", "tbl_usuários", "usnome='" & Me!txtUser & "'") Then
DoCmd.OpenForm ("Configurações")

Else
MsgBox ("A senha não confere. Por favor, digite-a novamente.")
End If

End Sub

Obrigado por retornar!

Boa sorte !!