[Resolvido]Sistema de Login?

Boas pessoal eu estou a ter bastante dificuldade. Agradecia alguns comentários e ajuda. O que eu quero fazer e o seguinte eu estou a fazer um sistema de login mas queria fazer uma espécie de brouse aos valores de uma tabela para me comprar com os da combo box se estiverem certos tudo bem se não diz que não tem acesso! Eu sei fazer isso através da macro se mas como o titulo diz só não consigo fazer o "brause" a tabela para ele me comprar os valores! Agradeço toda a ajuda desde já pois já estou com dores de cabeça de tanto procurar e não encontrar! Cumprimentos

Entre as maneiras de se obter tal resultado, uma seria usando o DLookup e a outra seria usando as colunas da combo. Isso por vba no evento "Ao clicar" do botão de login. Por DLookup você faz uma pesquisa na tabela. Vamos supor que sua tabela se chame tblUsers e tenha os campos Usuário e Senha. No seu form, você tem o campo txtSenha a a combo cboUser. No evento "Ao clicar" do botão:

If Me.txtSenha <> DLookup("Senha", "tblUsers", "Usuário='" & Me!cboUser & "'") Then
MsgBox "Senha incorreta, tente novamente", vbOkOnly + vbCritical, "ATENÇÃO"
me.txtSenha = Null
Me.txtSenha.SetFocus
Else
Evento para dados corretos aqui
End If

Desde já agradeço a sua ajuda e por ter comentado o meu tópico já tentei o vb o que você postou mas esta a dar-me um erro nao percebo diz-me erro de compilação Bloco if sem end if e no fim coloquei tal end if e en sub também. Não estou a perceber qual o problema espero que me possa ajudar! Comprimentos Joao Costa

Poste o código completo do botão aonde colocou esse evento por gentileza.

Private Sub Comando5_Click()

If Me.txtSenha <> DLookup("Senha", "tblUsers", "Usuário='" & Me!cboUser & "'") Then
MsgBox "Senha incorreta, tente novamente", vbOKOnly + vbCritical, "ATENÇÃO"
Me.txtSenha = Null
Me.txtSenha.SetFocus

Else
MsgBox "Assesso Garantido"
MsgBox "Bem Vindo"
DoCmd.Close
DoCmd.OpenForm "Painel de Navegação"


End If

End Sub


Ps: Agora está me dando outro erro diferente não percebo, agora a parte me.txtsenha aparece em amarelo e diz que nao e encontrada e ja tenho o campo senha preenchido na tabela! :/

Você precisa mudar os nomes dos campos para os seus.

Já percebiiii! agora esta a fucnionar quer dizer mais ou menos porque eu nao preencho os campos das caixas e clico no botao e da-me acesso ou seja tenho algo mal na parte de cima pois nao me deveria dar acesso.
O codigo e o mesmo o que eu mudei foi o nome das caixas e da certo. Uma caixa e a cboUser e a outra e a txtSenha. Nas tabelas tambem fiz tudo certinho como me deu de exemplo tenho uma tabela que se chama tblUsers onde tem os campos Usuário e Senha.

Private Sub Comando5_Click()

If Me.txtSenha <> DLookup("Senha", "tblUsers", "Usuário='" & Me!cboUser & "'") Then
MsgBox "Senha incorreta, tente novamente", vbOKOnly + vbCritical, "ATENÇÃO"
Me.txtSenha = Null
Me.txtSenha.SetFocus

Else
MsgBox "Assesso Garantido"
MsgBox "Bem Vindo"
DoCmd.Close
DoCmd.OpenForm "Painel de Navegação"


End If

End Sub

Tente acrescentar a linha em vermelho:

Private Sub Comando5_Click()

If Me.txtSenha <> DLookup("Senha", "tblUsers", "Usuário='" & Me!cboUser & "'") Then
MsgBox "Senha incorreta, tente novamente", vbOKOnly + vbCritical, "ATENÇÃO"
Me.txtSenha = Null
Me.txtSenha.SetFocus
Exit Sub
Else
MsgBox "Assesso Garantido"
MsgBox "Bem Vindo"
DoCmd.Close
DoCmd.OpenForm "Painel de Navegação"


End If

End Sub

Dá a mesma coisa com as caixas vazias deicha-me entrar na mesma diz-me acesso garantido e bem vindo ou seja a primeira parte nao esta a funcionar!

Teste assim por favor

Dim xBusca As Variant
Static Tentativas As Integer


Tentativas = Tentativas + 1

xBusca = DLookup("[Senha]", "NomeTabela", "[Senha] = '" & txtsenha & "' and [cboUsuario] ='" & txtUsuario & "'")

If Nz(xBusca, "") <> txtsenha Then
Cancel = True
Call Erro("Erro", "A Senha não é valida, tente de novo." & Tentativas, _
"Contacte o Administrador ""Recuperar Password."" ")
Else
Tentativas = 0

End If

If Tentativas = 3 Then DoCmd.Quit

Muito obrigado, deu
Adoro este forum as pessoas ajudam-se bastante! Muito obrigado colega, muito obrigado mesmo

Estamos aqui para isso

Obrigado pelo retorno e volte sempre

Abs

Sempre que puder ajudar também ajudarei! Obrigado eu pela sua ajuda e o seu retorno! Um abraço enorme

Alterei o nome do tópico pois estava desfazado da questão.

ok não tem mal colega