[Resolvido]Bloquear Login após inserir dados errados

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.

Bom día

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

Saludos

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.

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.

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.

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.

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

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

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.

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