[Resolvido]Nã consigo verificar login

Amigos, boa noite.  não estou conseguindo fazer verificação, aonde estou errando em verificar meu login, nenhuma das 2 estão dando certo, as apas estão certa em filtrar normal.

Código:


    Dim senha As String
     senha = DLookup("txtSenha", "tblLogin", "txtSenha = " & Me.txtSenha & ")
      If senha = Me.txtSenha Then
        DoCmd.OpenForm " principal"
        Else
        msgbox" Não Conferem"
      End If
      
    End Sub
 

   

Código:


if Me.txtSenha = DLookup("tbSenha", "tblLogin", "txtSenha='" & Me!txtSenha & "'") And Me.txtUsuario = DLookup("tbUsuario", "tblLogin", "txtUsuario='" &
         Me!txtUsuario & "'") Then
         DoCmd.OpenForm " principal"
         Me.txtUsuario = ""
         Me.txtSenha = ""
    Else
        MsgBox " invalidos", vbInformation, "Login"
        Me.txtSenha = ""
        Me.txtUsuario = ""
    End If
end sub
 

Quando o segundo codigo dar certo , somente o primeiro usuário abre os outros não , porque isso?
Porque só o primeiro cadastro consegue os outros não?

Boa noite.

Teste:

Código:


Senha = DLookup("txtSenha", "tblLogin", "txtSenha = '" & Me.txtsenha & "'")


No aguardo...

Não vai  , essas aspa so pega números , se a senha for numero com texto (senha74897) ele vai vai dar como inválidos.

Crysostomo,

Geralmente, os campos login e senha são do tipo "Texto".

Segue sugestão de rotina de validação de login.

Código:



Function VerificaLogin() As Boolean
Dim db          As DAO.Database
Dim rs          As DAO.Recordset
Dim sSQL        As String


    'Define a função como FALSE
    VerificaLogin = False
   
    'Instancia o bd
    Set db = CurrentDb
   
    'String de SELECT
    sSQL = "SELECT tblLogin.txtlogin, tblLogin.txtsenha"
    sSQL = sSQL & " FROM tblLogin"
    sSQL = sSQL & " WHERE tblLogin.txtsenha='" & Trim(Me.txtSenha) & "';"
   
    'Instacia o recordset
    Set rs = db.OpenRecordset(sSQL, dbOpenSnapshot)
   
    'se não for o final do arquivo (EOF), então usuario e senha estão corretos
    If Not rs.EOF Then
        VerificaLogin = True
    End If
   
    rs.Close
    Set rs = Nothing


End Function

Private Sub cmdOK_Click()

    If VerificaLogin = False Then
        MsgBox "Usuário e/ou Senha incorretos.", vbExclamation, "Aviso"
        Exit Sub
    End If
   
    DoCmd.OpenForm "Principal"
    DoCmd.Close acForm, Me.Name, acSaveYes

End Sub



Boa sorte

o "=" da tipos compatíveis

Seja mais específico.
Em que momento está dando o erro?

ao clicar em ok, a função verificaLogin = false then
o sinal de igual não é compativel

Crysostomo,

Segue exemplo.

Está funcionando normalmente.

no meu da fora de procedimento.

Deve estar dando erro em outra coisa, mas no sinal de "=" não pode ser.
Verifica se está faltando selecionar alguma referência.

Boa tarde...

Com Win 10 Pro, Ms Access 2010 32 Bits, funfando normalmente.

Creio que o seu Ms Access seja 64 Bits.

Pra ajudar a gente a te ajudar amigo.
O melhor é postar esta parte do sistema que está com problema.
Acho que fica mais fácil.

fiz ele de outra logica , obrigado a todos.

Então se fez e achou a solução, poste para os outros membros possam ver e aprender.

Não guarde conhecimento somente para si.

Abraços.

Fiz um cbo, que joga a senha e o usuário a 2 caixa que fica invisível,então o código vai verificar se as 2 caixa invisíveis são iguais aos campos txtUsuario e txtSenha

Na verdade não queria assim, nossos amigos ai me ajudaram, mas aqui no meu access deu muito erro, para não ficar no impasse  pois tenho que entregar o sistema coloquei assim , mais para frente vou estudar o porque dos erro, pois não gosto de mostrar quem é usuário em uma cbo.

Código:


Private Sub txtUsuario_AfterUpdate()
    Me.usuarioTab = txtUsuario.Column(0)
    Me.senhaTab = txtUsuario.Column(1)
  
End Sub

Private Sub abrirLogin_Click()
    If txtUsuario = Me.usuarioTab.Value And txtSenha = Me.senhaTab Then
       DoCmd.OpenForm "frm_principal", , acNormal
       DoCmd.Close acForm, "frm_login"

    Else
       MsgBox "Campos Inválidos", vbInformation, "Arquivamento-Login"
       End If
End Sub