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

5 participantes

    [Resolvido]Bloquear Login após inserir dados errados

    JXAVIER
    JXAVIER
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Bloquear Login após inserir dados errados Empty [Resolvido]Bloquear Login após inserir dados errados

    Mensagem  JXAVIER 20/6/2019, 14:30

    Bom dia

    Estou precisando de código ACCESS-VBA no acesso LOGIN, onde o usuário ao realizar 3(três) tentativas de acesso e errar os seus dados, este usuário seja bloqueado. Observei este código no EXCEL  porém no ACCESS não dá certo, vocês podem me ajudar. Grato.
    Anexos
    [Resolvido]Bloquear Login após inserir dados errados AttachmentLOGIN_ACESSO PERSONALIZADO.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (106 Kb) Baixado 17 vez(es)


    Última edição por JXAVIER em 9/7/2019, 18:44, editado 2 vez(es)
    FranklinJSP
    FranklinJSP
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 440
    Registrado : 25/02/2016

    [Resolvido]Bloquear Login após inserir dados errados Empty Re: [Resolvido]Bloquear Login após inserir dados errados

    Mensagem  FranklinJSP 20/6/2019, 16:24

    Bom día

    Envie o que você fez no Access e nós podemos ajudá-lo.

    Saludos


    .................................................................................
    Meu Português não é muito bom,
    mas eu gosto de colaborar... em qualquer idioma
    Smile "Access... minha paixão"
    JXAVIER
    JXAVIER
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Bloquear Login após inserir dados errados Empty Boa tarde.

    Mensagem  JXAVIER 20/6/2019, 19:25

    Já estarei enviando.


    Private Sub Box_Usuário_AfterUpdate()
    txt_Usuário = Box_Usuário.Column(0)
    Aux_txt_Senha = Box_Usuário.Column(1)
    End Sub

    Private Sub Btn_Cancela_Click()
    Box_Usuário = ""
    Box_Usuário.SetFocus
    End Sub

    Private Sub Btn_Login_Click()
    If (Box_Usuário.Value = txt_Usuário.Value) And (Txt_Senha.Value = Aux_txt_Senha.Value) Then
    DoCmd.Close
    DoCmd.OpenForm "barra sistema"
    Else
    MsgBox "Senha ou Usuário Incorreto..."
    Box_Usuário = ""
    Txt_Senha = ""
    Box_Usuário.SetFocus
    End If
    End Sub



    Tentei inseri um Count, não deu c erto. Como fazer para que o Usuário ao acessar o sistema e inserir os dados errados, possa ter apenas mais uma ou duas tentativas, sendo que ao finalizar estas tentativas, o sistema se fecha e bloqueia o usuário. Grato pela Ajuda e Cooperação.
    avatar
    renpv
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 323
    Registrado : 12/01/2015

    [Resolvido]Bloquear Login após inserir dados errados Empty Re: [Resolvido]Bloquear Login após inserir dados errados

    Mensagem  renpv 21/6/2019, 00:30

    Você vai ter que gravar as tentativas erradas em uma tabela. Se gravar apenas na memória, o usuário pode fechar o aplicativo e quando abrir pode tentar quantas vezes quiser.
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2909
    Registrado : 22/11/2016

    [Resolvido]Bloquear Login após inserir dados errados Empty Re: [Resolvido]Bloquear Login após inserir dados errados

    Mensagem  DamascenoJr. 23/6/2019, 01:28

    Exemplo aqui
    https://www.maximoaccess.com/t36171-login-usando-macros-nomeadas#247196

    Nos casos de bloqueio de usuário, não aconselho usar listboxes ou comboboxes listando os usuários existentes pois assim qualquer um poderia ficar escolhendo usuários aleatórios e inserindo senhas quaisquer causando o bloqueio de todos eles.


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    JXAVIER
    JXAVIER
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Bloquear Login após inserir dados errados Empty Re: [Resolvido]Bloquear Login após inserir dados errados

    Mensagem  JXAVIER 24/6/2019, 17:54

    funcionando
    quero agradecer pela ajuda, agora realmente está funcionando, aproveitei e inseri o item  senha incorreta: "você tem duas tentativas": "você tem uma tentativa..." e "usuário bloqueado".
    grato pela contribuição. Cool Cool
    JXAVIER
    JXAVIER
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Bloquear Login após inserir dados errados Empty login acesso restrito e bloqueio de usuário resolvido

    Mensagem  JXAVIER 8/7/2019, 12:26

    gostaria de agradecer pela prestatividade e cordialidade na contribuição de minha duvida com referencia a login com bloqueio de autoria Ivanjr, fico satisfeito e acrescentei mais um detalhe no código e gostaria de compartilhar com o fórum, grato. não consigo enviar o arquivo zipado como exemplo, podem me ajudar.


    Código:
    Private Sub btEntrar_Click()
       If Nz(Me!txtUsuario.Value) = "" Or Nz(Me!txtSenha.Value) = "" Then Exit Sub
       Call DoCmd.SetParameter("_usuario", """" & Me!txtUsuario.Value & """")
       Call DoCmd.SetParameter("_senha", """" & Me!txtSenha.Value & """")
       Call DoCmd.SetParameter("_computador", """" & Environ("ComputerName") & """")
       Call DoCmd.RunDataMacro("tblUsuarios.mcrLogar")
           Select Case ReturnVars!vrResultado
           Case 10000
               booLogou = True
               Me!txtUsuario.SetFocus
               Me!txtSenha.Value = Null
               Me.Visible = False
               Call DoCmd.OpenForm("frmPrincipal")
                       Case 10001
               Call MsgBox("Usuário bloqueado.", vbCritical, "Atenção !!!")
               Me!txtUsuario.Value = Null
               Me!txtSenha.Value = Null
               Me!txtUsuario.SetFocus
                       Case 10002
               Call MsgBox("Senha incorreta!Atenção Usuário será Bloqueado, Deseja Continuar?.", vbYesNo, " !!!")
               Me!txtSenha.Value = Null
               Me!txtSenha.SetFocus
           Case 10003
               Call MsgBox("Usuário não existe!Atenção Usuário será Bloqueado, Deseja Continuar?.", vbCritical, " !!!Bloqueio Sistema")
               Me!txtUsuario.Value = Null
               Me!txtSenha.Value = Null
               Me!txtUsuario.SetFocus
           Case 10004
               Call MsgBox("Senha incorreta! Usuário Bloqueado.", vbExclamation, "!!!Atenção Sistema Bloqueado")
               Call MsgBox("Usuário bloqueado.", vbCritical, "Atenção !!!")
               Me!txtUsuario.Value = Null
               Me!txtSenha.Value = Null
               Me!txtUsuario.SetFocus
    End Select
    End Sub

    +++++++++++++++++++++++++++++++++
    Código:

    Private Sub Form_Close()
       If booLogou Then
           Call DoCmd.SetParameter("_usuario", """" & Me!txtUsuario.Value & """")
           Call DoCmd.SetParameter("_acao", 2)
           Call DoCmd.SetParameter("_computador", """" & Environ("ComputerName") & """")
           Call DoCmd.RunDataMacro("tblAcessos.mcrRegistraAcao")
       End If
       Call DoCmd.Quit(acQuitSaveNone)
    End Sub
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7285
    Registrado : 15/03/2013

    [Resolvido]Bloquear Login após inserir dados errados Empty Re: [Resolvido]Bloquear Login após inserir dados errados

    Mensagem  ahteixeira 8/7/2019, 22:35

    Olá a todos

    Jose Xavier, o tópico foi fundido e o exemplo que partilhou movido para a sala adequada, tenha mais atenção às Regras do Fórum, se quiser conferir:
    https://www.maximoaccess.com/t48-regras-do-forum

    Parece que a questão ficou esclarecida, deve dar o retorno no tópico que abriu de dar como Resolvido, veja como fazer:
    https://www.maximoaccess.com/t860-resolucao-de-topicos

    Abraço
    JXAVIER
    JXAVIER
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Bloquear Login após inserir dados errados Empty Re: [Resolvido]Bloquear Login após inserir dados errados

    Mensagem  JXAVIER 9/7/2019, 10:24

    desculpas
    peço que me perdoe, ainda estou acostumando com o fórum e as vezes cometo estes desconforto. agradeço as orientações e paciência, grato.
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7285
    Registrado : 15/03/2013

    [Resolvido]Bloquear Login após inserir dados errados Empty Re: [Resolvido]Bloquear Login após inserir dados errados

    Mensagem  ahteixeira 9/7/2019, 13:27

    Olá Jose Xavier,

    Tranquilo, aproveito para informar que não deve colocar nada no Titulo do Tópico ao responder, o fórum automaticamente repete o primeiro titulo.

    Ainda falta dar o tópico como Resolvido, veja como fazer:
    https://www.maximoaccess.com/t860-resolucao-de-topicos

    Qualquer dúvida, está cá uma grande "família" MaximoAccess para ajudar.

    Abraço a todos

      Data/hora atual: 1/8/2021, 11:25