MaximoAccess

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

Obrigado

Administração do MaximoAccess

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


    [Resolvido]Nã consigo verificar login

    crysostomo
    crysostomo
    Super Avançado
    Super Avançado

    Respeito às Regras 75%

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

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

    Mensagem  crysostomo em 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 100%

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

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

    Mensagem  Cláudio Machado em 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
    Super Avançado
    Super Avançado

    Respeito às Regras 75%

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

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

    Mensagem  crysostomo em 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 100%

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

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

    Mensagem  Alexandre Fim em 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
    Super Avançado
    Super Avançado

    Respeito às Regras 75%

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

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

    Mensagem  crysostomo em 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 100%

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

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

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

    Seja mais específico.
    Em que momento está dando o erro?
    crysostomo
    crysostomo
    Super Avançado
    Super Avançado

    Respeito às Regras 75%

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

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

    Mensagem  crysostomo em 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 100%

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

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

    Mensagem  Alexandre Fim em 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 6 vez(es)
    crysostomo
    crysostomo
    Super Avançado
    Super Avançado

    Respeito às Regras 75%

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

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

    Mensagem  crysostomo em 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 100%

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

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

    Mensagem  Alexandre Fim em 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 100%

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

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

    Mensagem  Silvio em 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 100%

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

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

    Mensagem  Cláudio Machado em 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
    Super Avançado
    Super Avançado

    Respeito às Regras 75%

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

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

    Mensagem  crysostomo em 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 100%

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

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

    Mensagem  Silvio em 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
    Super Avançado
    Super Avançado

    Respeito às Regras 75%

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

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

    Mensagem  crysostomo em 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.

    Conteúdo patrocinado

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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 16/9/2019, 01:47