[Resolvido]Sistema de Login com 2 Campos (User e Password)

Boas a todos!
Desde já peço desculpa estar aqui a chatear o pessoal em relação a algo que já foi falado em muitos tópicos, mas como ainda nao entendo muito bem VBA e os formulários de exemplo que dão na maioria são apenas de uma campo nao consigo compreender muito bem como funciona a validação de dois campos.

Eu estou a construir uma BD que tem vários utilizadores e cada um com a sua password, como faço para que ele valide a pass consoante o utilizador?

Encontrei este codigo VBA num site que o Vieirasoft me indicou, pois foi feito por alguns membros aqui do forum.
A resposta está aqui ou precisa de mais alguma coisa? (é que so tem o campo Administração e a pass para o mesmo)

Private Sub BotaoLogin_Click()
If Not IsNull(CaixaLogin) And Not IsNull(CaixaSenha) Then
If verificaLogin(CaixaLogin, CaixaSenha) Then
DoCmd.Close
DoCmd.OpenForm "FPrincipal"
Else
MsgBox "Senha inválida!", vbExclamation, "Login"
End If
End If
End Sub


Obrigado pela vossa atenção.

Penso que já achei a informção que queria neste ficheiro

http://dl.dropbox.com/u/8157744/bdados.rar

Se obtiver alguma duvida irei questionar neste tópico.

Boa Noite Sardão

Veja este exemplo

http://maximoaccess.forumeiros.com/t74-login-com-niveis-de-acesso

Bom dia Vieirasoft, é exactamente isso que pertendo, mas eu com esse ficheiro não consigo fazer nada, ou seja, eu so consigo ver o formulário, não consigo ver o VBA nem nada disso :S

Ha possibilidades de ver? Como?

Obrigado

Bom dia Amigo

É simples, basta apertar a tecla Shift ao mesmo tempo que abre o exemplo. Só isso. Bom trabalho.

Bom dia!!
Obrigado! (O que vale é que estamos sempre a aprender!)
Para já é tudo, vou ver então como funciona!

Voces são 5*

Ok, então depois retorne para nos dizer se serviu.

Estou com um problemazinho,
Quando carrego no OK, ele diz que a senha não está correcta :S
Já estive a ver, nao consigo entender... Vou por o codigo VBA do exemplo que me deste e de seguida o meu:

Dim Identificacao As Integer

If Me.txtSenha.Value = DLookup("[Senha]", "[TBLUsers]", "[User] = '" & Me.txtUser & "'") Then
Identificacao = DLookup("[NivelSeguranca]", "[TBLUsers]", "[User] = '" & Me.txtUser & "'")
Select Case Identificacao
Case 1
stDocName = "frmAdministrador"
Case 2
stDocName = "frmUsuario"
End Select
DoCmd.Close
DoCmd.OpenForm stDocName
Else
MsgBox "Senha Incorreta, coloque novamente.", vbInformation + vbOKOnly, "Erro"
Me.txtSenha.Value = ""
Exit Sub
End If

_______________________________________________________________________________________________________

If Me.Password.Value = DLookup("[Password]", "[Assistente]", "[User] = '" & Me.User & "'") Then
Identificacao = DLookup("[ID]", "[Grupo]", "[User] = '" & Me.User & "'")
Select Case Identificacao
Case 1
stDocName = "frmAdministrador"
Case 2
stDocName = "frmUsuario"
Case 3
stDocName = "frmAssistente"
End Select
DoCmd.Close
DoCmd.OpenForm stDocName
Else
MsgBox "Senha Incorreta, coloque novamente.", vbInformation + vbOKOnly, "Erro"
Me.Password.Value = ""
Exit Sub
End If


Podes ver o que está mal?
Eu tenho uma Tabela "Assistente" com os campos "Password e User"
Tenho uma outra Tabela "Grupo" com os campos "Id e Grupo"

Utilize uma só tabela, não entendi para que necessita de 2 tabelas? Você só precisa de User e Password.

Eu estou a fazer uma base de dados para uma empresa de telemarketing, dai ter mais do que uma tabela.
Assim sendo tenho a
Tabela Assistente(IDassistente; SFID; Nome; User; Extensao; Password; Grupo)
Tabela Grupo (Id; Grupo)

Queres que junte essas duas tabelas?

Ja juntei as duas tabelas, mas continua a dar o mesmo erro de Password.

TEnte adaptar ao seu caso. Substitua os nomes dos campos pelos seus


Private Sub txtsenha_Exit(Cancel As Integer)
Dim xBusca As Variant
Static Tentativas As Integer

Tentativas = Tentativas + 1

xBusca = DLookup("[Pass]", "Usuarios", "[Pass] = '" & txtsenha & "' and [Usuario] ='" & txtUsuario & "'")

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


If Tentativas = 3 Then DoCmd.Quit

End Sub

Agora da-me um erro bem diferente, mas nem valida.

Amigão

Vamos voltar ao código do Mestre JPaulo

Dim Identificacao As Integer

If Me.txtSenha.Value = DLookup("[Senha]", "[TBLUsers]", "[User] = '" & Me.txtUser & "'") Then
Identificacao = DLookup("[NivelSeguranca]", "[TBLUsers]", "[User] = '" & Me.txtUser & "'")
Select Case Identificacao
Case 1
stDocName = "frmAdministrador"
Case 2
stDocName = "frmUsuario"
End Select
DoCmd.Close
DoCmd.OpenForm stDocName
Else
MsgBox "Senha Incorreta, coloque novamente.", vbInformation + vbOKOnly, "Erro"
Me.txtSenha.Value = ""
Exit Sub
End If

Repare que a tabela tem 3 campos; User>>Senha>>NívelSegurança. Um conselho que lhe dou e que pode resolver esse problema. Modifique os campos na sua tabela para estes. Mesmo que tenha 2 tabelas, só necessita de 3 campos. Então nada de complioar.

Ja fiz melhor amigo,
Eu crie um nova base de dados e exportei para la todas as tabelas e formularios que o JPaulo fez para aquele ficheiro.
Ele deu-me um erro na escolha do Utilizador que já conseguir reparar.
Entretanto como nao consegui fazer mais nada e nao quis estar a chatear aqui no forum sem ter primeiro uma resposta do que tinha perguntado anteriormente, comecei a utilizar a BD's do JPaulo e a criar novas tabelas de user's mudando posteriormente os campos e tabelas no VBA. Acontece que ele identifica-me algo que tenho erro em algo que nao sei mesmo o que é "DoCmd.OpenForm stDocName".

Que erro poderá ser?

DoCmd.OpenForm stDocName, abre os forms que você designar na instrução select case. Verifique se o nome dos forms estão correctos.

Já esta a dar!
Espero que o JPaulo não se importe de ter começado a base que ele fez como raiz...
Obrigado aos dois!

Abração e bom trabalho. Precisando, estamos aí.

Bom dia!
Vou pedir desculpa, mas derrepente comecei a ter um erro no login e nao sei o que se passou.

neste momento ele esta a dar-me o seguinte erro (ao clicar "ok"):

"Can't find project or library" e assinal o seguinte campo "stDocName ="

o que será isto?

Obrigado

Verifique se existe alguma referência em falta. Abra um módulo VBA>>>Tools >>>references.

Aquilo tem uma lista enorme, como sei qual poderá estar em falta? :S

Se houver uma referência em falta ele diz Missing,,,,. Confirme do exemplo original se tudo foi marcado correctamente, verifique se não falta nenhum Módulo no separador módulos.

É estranho porque o programa do JPaulo mantem-se a funcionar :S
Se dá erro no meu, deveria dar erro no dele, não é?

Não propriamente, isso significa que o programa dele está sem problemas,como você copiou a BD pode ter esquecido importar algum módulo ou marcar alguma referência. Verifique tudo com paciência. Se necessário torne a importar tudo de novo.

Foi o que já pensei em fazer...
acho que seja o que vou fazer

É o melhor, faça isso.