MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

4 participantes

    [Resolvido]Nã consigo verificar login

    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1757
    Registrado : 23/01/2018

    [Resolvido]Nã consigo verificar login Empty [Resolvido]Nã consigo verificar login

    Mensagem  crysostomo 30/4/2019, 22:01

    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?


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    Cláudio Machado
    Cláudio Machado
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1621
    Registrado : 17/03/2011

    [Resolvido]Nã consigo verificar login Empty Re: [Resolvido]Nã consigo verificar login

    Mensagem  Cláudio Machado 30/4/2019, 22:23

    Boa noite.

    Teste:

    Código:

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

    No aguardo...


    .................................................................................
    " Nunca cruze os braços diante de qualquer problema ou dificuldade, pois o maior homem do mundo Jesus,  morreu de braços abertos."

    Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja  AQUI.
    Não esqueça de clicar no Joinha [Resolvido]Nã consigo verificar login 90dssg para agradecer a dica que solucionou seu problema.
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1757
    Registrado : 23/01/2018

    [Resolvido]Nã consigo verificar login Empty Re: [Resolvido]Nã consigo verificar login

    Mensagem  crysostomo 2/5/2019, 12:22

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


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1577
    Registrado : 13/12/2016

    [Resolvido]Nã consigo verificar login Empty Re: [Resolvido]Nã consigo verificar login

    Mensagem  Alexandre Fim 2/5/2019, 14:15

    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


    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1757
    Registrado : 23/01/2018

    [Resolvido]Nã consigo verificar login Empty Re: [Resolvido]Nã consigo verificar login

    Mensagem  crysostomo 2/5/2019, 14:24

    o "=" da tipos compatíveis


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1577
    Registrado : 13/12/2016

    [Resolvido]Nã consigo verificar login Empty Re: [Resolvido]Nã consigo verificar login

    Mensagem  Alexandre Fim 2/5/2019, 14:31

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

    Respeito às regras : Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1757
    Registrado : 23/01/2018

    [Resolvido]Nã consigo verificar login Empty Re: [Resolvido]Nã consigo verificar login

    Mensagem  crysostomo 2/5/2019, 14:37

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


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1577
    Registrado : 13/12/2016

    [Resolvido]Nã consigo verificar login Empty Re: [Resolvido]Nã consigo verificar login

    Mensagem  Alexandre Fim 2/5/2019, 14:45

    Crysostomo,

    Segue exemplo.

    Está funcionando normalmente.
    Anexos
    [Resolvido]Nã consigo verificar login AttachmentPesquisa.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (26 Kb) Baixado 12 vez(es)
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1757
    Registrado : 23/01/2018

    [Resolvido]Nã consigo verificar login Empty Re: [Resolvido]Nã consigo verificar login

    Mensagem  crysostomo 2/5/2019, 17:12

    no meu da fora de procedimento.


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1577
    Registrado : 13/12/2016

    [Resolvido]Nã consigo verificar login Empty Re: [Resolvido]Nã consigo verificar login

    Mensagem  Alexandre Fim 2/5/2019, 17:22

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

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4754
    Registrado : 20/04/2011

    [Resolvido]Nã consigo verificar login Empty Re: [Resolvido]Nã consigo verificar login

    Mensagem  Silvio 2/5/2019, 17:25

    Boa tarde...

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

    Creio que o seu Ms Access seja 64 Bits.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    Cláudio Machado
    Cláudio Machado
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1621
    Registrado : 17/03/2011

    [Resolvido]Nã consigo verificar login Empty Re: [Resolvido]Nã consigo verificar login

    Mensagem  Cláudio Machado 2/5/2019, 20:11

    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.


    .................................................................................
    " Nunca cruze os braços diante de qualquer problema ou dificuldade, pois o maior homem do mundo Jesus,  morreu de braços abertos."

    Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja  AQUI.
    Não esqueça de clicar no Joinha [Resolvido]Nã consigo verificar login 90dssg para agradecer a dica que solucionou seu problema.
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1757
    Registrado : 23/01/2018

    [Resolvido]Nã consigo verificar login Empty Re: [Resolvido]Nã consigo verificar login

    Mensagem  crysostomo 2/5/2019, 20:17

    fiz ele de outra logica , obrigado a todos.


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    Silvio
    Silvio
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4754
    Registrado : 20/04/2011

    [Resolvido]Nã consigo verificar login Empty Re: [Resolvido]Nã consigo verificar login

    Mensagem  Silvio 3/5/2019, 12:11

    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.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1757
    Registrado : 23/01/2018

    [Resolvido]Nã consigo verificar login Empty Re: [Resolvido]Nã consigo verificar login

    Mensagem  crysostomo 3/5/2019, 13:38

    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.
    [Resolvido]Nã consigo verificar login Sem_tz31

    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


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.

      Data/hora atual: 1/8/2021, 12:21