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á!