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


3 participantes

    Duvida - Login com case sensitive

    barroso
    barroso
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 55
    Registrado : 17/08/2017

    Duvida - Login com case sensitive Empty Duvida - Login com case sensitive

    Mensagem  barroso 7/2/2018, 03:02

    Olá galera boa noite estou com dúvida aqui tenho um formulario de login muito simples mas ele ta aceitando Usuario e senha tanto maiusculo quanto minusculo, é possivel mudar isso? Alguem pode me dar uma forca?bounce
    Abaixo o código do form de login
    Código:
    Private Sub BT_login_Click()

    If IsNull(Me.TXT_user) Then
            MsgBox "Please, insert you user", vbInformation, "User required"
            Me.TXT_user.SetFocus
        ElseIf IsNull(Me.TXT_password) Then
            MsgBox "Please, insert you password", vbInformation, "Password required"
            Me.TXT_password.SetFocus
        Else
            If (IsNull(DLookup("[user]", "DB_users", "[user] ='" & Me.TXT_user.Value & _
            "' And user_password = '" & Me.TXT_password.Value & "'"))) Then
                MsgBox "User and/or password are incorrect"
            Else

                LogedUser = Me.TXT_user.Value
                    DoCmd.Close
                    DoCmd.OpenForm "F_main_menu"
        End If
    End If
    End Sub

    Desde já agradeco.   afro

    Abracos
    webruxim
    webruxim
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 103
    Registrado : 08/12/2013

    Duvida - Login com case sensitive Empty Re: Duvida - Login com case sensitive

    Mensagem  webruxim 7/2/2018, 09:12

    barroso
    barroso
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 55
    Registrado : 17/08/2017

    Duvida - Login com case sensitive Empty Re: Duvida - Login com case sensitive

    Mensagem  barroso 8/2/2018, 03:08

    Olá webruxim, novamente obrigado por seu tempo e atencao, poderia me dar uma luz de como adptar este codigo ao meu?

    Código:
    Private Sub SeuBotão_Click()
    'By JPaulo ®️ Maximo Access
    Dim strResposta As String
    strResposta = InputBox("Entre com a senha...", "Senha", "", 2000, 1000)
    If StrComp(strResposta, "JPaulo", vbBinaryCompare) = 0 Then
    DoCmd.Close
    DoCmd.OpenForm "SeuSegundoFormulario"
    Else
    MsgBox "Senha incorreta...", vbCritical
    DoCmd.CancelEvent
    End If
    End Sub

    Onde teria que fazer determinadas alteracoes?

    Desde ja agradeco, boa noite.
    webruxim
    webruxim
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 103
    Registrado : 08/12/2013

    Duvida - Login com case sensitive Empty Re: Duvida - Login com case sensitive

    Mensagem  webruxim 8/2/2018, 04:18

    barroso eu não tenho um nível tao avançado assim para solucionar seu problema somente analisando o código. Seria mais facil eu te ajudar se vc postar um exemplo do seu banco de dados, mas o caminho é esse ae.

    Código:

    Private Sub BT_login_Click()

    If IsNull(Me.TXT_user) Then
        MsgBox "Please, insert you user", vbInformation, "User required"
        Me.TXT_user.SetFocus
    End if
       
    If StrComp(DLookup("[user]", "DB_users", "[user] ='" & Me.TXT_user, me.txt_user.value, vbBinaryCompare) = 0 Then

    Elseif StrComp(DLookup("[user_password]", "DB_users", "[user_password] ='" & Me.TXT_user, Me.TXT_password.Value, vbBinaryCompare) = 0 Then
        LogedUser = Me.TXT_user.Value
        DoCmd.Close
        DoCmd.OpenForm "F_main_menu"
    Else
        MsgBox "Usuário ou Senha incorreta...", vbCritical
        DoCmd.CancelEvent
    End If
    End Sub
    barroso
    barroso
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 55
    Registrado : 17/08/2017

    Duvida - Login com case sensitive Empty Re: Duvida - Login com case sensitive

    Mensagem  barroso 10/2/2018, 21:42

    Fala webruxim boa tarde, obrigado por sua resposta. tentei usar o código acima sem sucesso.

    Código:
    If StrComp(DLookup("[user]", "DB_users", "[user] ='" & Me.TXT_user, me.txt_user.value, vbBinaryCompare) = 0 Then

    Elseif StrComp(DLookup("[user_password]", "DB_users", "[user_password] ='" & Me.TXT_user, Me.TXT_password.Value, vbBinaryCompare) = 0 Then

    Estas duas linhas ficam em vermelho...

    Pode tentar me ajudar?

    Obrigado pela moral

    Abracos
    webruxim
    webruxim
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 103
    Registrado : 08/12/2013

    Duvida - Login com case sensitive Empty Re: Duvida - Login com case sensitive

    Mensagem  webruxim 13/2/2018, 08:26

    barroso tem como postar um exemplo do seu formulario de login ?
    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4140
    Registrado : 29/06/2012

    Duvida - Login com case sensitive Empty Re: Duvida - Login com case sensitive

    Mensagem  Noobezinho 13/2/2018, 10:12

    Olá amigos

    A forma mais simples de se fazer isso é:

    - Fazer uma combobox  com a lista de usuários, senhas e grupos se houver.

     Com isso, não vai haver erros de digitação e muito menos nomes que não estejam na tabela,

    - Então, digamos que a segunda coluna da combobox, seja a de senhas.

     com isso o código para verificação da senha é:
    Código:

     If StrComp(Me.Senha, .Column(2) & "", vbBinaryCompare) <> 0 Then ' não são iguais
            msgBox "Senha inválida." + vbcrlf + "Redigite a senha ou entre em contato com o administrador.", vbInformation, "Aviso"
            Me!Senha.SetFocus
            Exit Sub
     End If

    [ ]'s
    StrComp tem 3 retornos:

    string1 for menor que string2 -1
    string1 for igual a string2 0
    string1 for maior que o string2 1

    O que nos interessa é justamente a que tem o valor 0, pois as senha são iguais.


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.

    Conteúdo patrocinado


    Duvida - Login com case sensitive Empty Re: Duvida - Login com case sensitive

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 20:19