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]Bloquear Login após inserir dados errados

    JXAVIER
    JXAVIER
    Novato
    Novato

    Respeito às Regras 100%

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

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

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

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

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

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

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

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

    Mensagem  JXAVIER em 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
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

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

    Mensagem  renpv em 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.
    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

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

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

    Mensagem  IvanJr. em 23/6/2019, 01:28

    Exemplo aqui
    http://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.


    .................................................................................
    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 100%

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

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

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

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

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

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

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

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

    Mensagem  ahteixeira em 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:
    http://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:
    http://www.maximoaccess.com/t860-resolucao-de-topicos

    Abraço
    JXAVIER
    JXAVIER
    Novato
    Novato

    Respeito às Regras 100%

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

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

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

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

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

    Mensagem  ahteixeira em 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:
    http://www.maximoaccess.com/t860-resolucao-de-topicos

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

    Abraço a todos

    Conteúdo patrocinado

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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 16/9/2019, 08:03