Bom, sou usuário bem novato no access e em vba mais ainda.
Estou com um problema e ficaria muito grato se alguém pudesse me ajudar.
Criei uma Tabela (tbl_Login), que tem dois campor: Login (nome de login das pessoas) e Senha (senha pessoal de cada login).
Depois criei um Formulário (frm_Login), que tem duas Caixas de Textos (não acopladas) uma com nome de LoginTXT e outra com nome de SenhaTXT, e ainda um botão OK que tem atribuído a ele um Código que é o que segue abaixo:
Eu gostaria que esse código fizesse com que ao clicar no botão, a função DLookup procurasse o login digitado na caixa LoginTXT, na tabela e ao encontrar esse login comparesse sua senha com a senha que foi digitada na caixa de texto SenhaTXT. Acontecendo essa validação de informações o código executa um comando de abrir uma tabela que contém outros registros...
Código:
Private Sub OK_Click()
'Checa se foi inserido informações na caixa de Login
If IsNull(Me.Logintxt) Or Me.Logintxt = " " Then
MsgBox "Entre com seu Usuário de Login.", vbOKOnly, "Login Requerido"
Me.Logintxt.SetFocus
Exit Sub
End If
'Checa se foi inserido informações na caixa de Senha
If IsNull(Me.Senhatxt) Or Me.Senhatxt = " " Then
MsgBox "Entre com sua Senha de Usuário.", vbOKOnly, "Senha Requerida"
Me.Senhatxt.SetFocus
Exit Sub
End If
'Checa se o valor inserido na caixa de senha
'Confere com o valor de senha registrado na tabela Login
Dim intSearch As Integer
intSearch = 1
If Me.Logintxt.Value = DLookup("[Login]", "Tbl_Login", intSearch) Then
If Me.Senhatxt.Value = DLookup("[senha]", "Tbl_login", intSearch) Then
Pergunta
Dgb
Olá Pessoal,
Tudo bem com vocês?
Bom, sou usuário bem novato no access e em vba mais ainda.
Estou com um problema e ficaria muito grato se alguém pudesse me ajudar.
Criei uma Tabela (tbl_Login), que tem dois campor: Login (nome de login das pessoas) e Senha (senha pessoal de cada login).
Depois criei um Formulário (frm_Login), que tem duas Caixas de Textos (não acopladas) uma com nome de LoginTXT e outra com nome de SenhaTXT, e ainda um botão OK que tem atribuído a ele um Código que é o que segue abaixo:
Eu gostaria que esse código fizesse com que ao clicar no botão, a função DLookup procurasse o login digitado na caixa LoginTXT, na tabela e ao encontrar esse login comparesse sua senha com a senha que foi digitada na caixa de texto SenhaTXT. Acontecendo essa validação de informações o código executa um comando de abrir uma tabela que contém outros registros...
Código:
Private Sub OK_Click()
'Checa se foi inserido informações na caixa de Login
If IsNull(Me.Logintxt) Or Me.Logintxt = " " Then
MsgBox "Entre com seu Usuário de Login.", vbOKOnly, "Login Requerido"
Me.Logintxt.SetFocus
Exit Sub
End If
'Checa se foi inserido informações na caixa de Senha
If IsNull(Me.Senhatxt) Or Me.Senhatxt = " " Then
MsgBox "Entre com sua Senha de Usuário.", vbOKOnly, "Senha Requerida"
Me.Senhatxt.SetFocus
Exit Sub
End If
'Checa se o valor inserido na caixa de senha
'Confere com o valor de senha registrado na tabela Login
Dim intSearch As Integer
intSearch = 1
If Me.Logintxt.Value = DLookup("[Login]", "Tbl_Login", intSearch) Then
If Me.Senhatxt.Value = DLookup("[senha]", "Tbl_login", intSearch) Then
DoCmd.Close acForm, "frm_login", acSaveNo
DoCmd.OpenTable "tbl_login"
Else
MsgBox "Senha Inválida. Favor tentar novamente.", vbOKOnly, "Dado Inválido!"
Me.Senhatxt.SetFocus
End If
End If
End Sub
O Erro esta na parte de checar se os valores conferem... alguém me ajuda!!!POR FAVOR!!!
Obrigado desde já!
Link para o comentário
Compartilhar em outros sites
1 resposta a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.