[Resolvido]Ajuda com script ao digitar a senha errada três vezes, fechar o Sistema

Boa tarde pessoal.

Venho mais uma vez pedir ajuda com um probleminha no login de Usuário...

Estou usando a função abaixo para acessar o login e preciso que o usuário ao digitar a senha errada três vezes feche o sistema...

Só que usando dessa forma não está estartando...

Pesquisai aqui no forum, vi algumas postagens, mais não consegui adaptar a minha necessidade...

Por favor, vocês podem me dar uma força com esse script? Desde já agradeço a todos!

Segue script:

Private Sub cmdEntrar_Click()
Dim strTentativas As String
Dim Senha As String, bytCont As Byte
If verificaLogin(txtUser, txtSenha) Then
If Me.txtSenha.Value = DLookup("[Senha]", "[tblUsuarios]", "[Login] = '" & Me.txtUser & "'") Then
Identificacao = DLookup("[Nivel]", "[tblUsuarios]", "[Login] = '" & Me.txtUser & "'")
               
       Select Case Identificacao
             
           Case 1
               stDocName = "frmAdministrador"
           Case 2
               stDocName = "frmManutenção"
           Case 3
               stDocName = "frmMenus"
       End Select
       DoCmd.Close
       DoCmd.OpenForm stDocName

       'Obs: nessa opção, gostaria de quando o usuário digitasse a senha três vezes errada, o Sistema fechasse.
       Else
   
       strTentativas = strTentativas + 1
       If strTentativas > 3 Then
       MsgBox "As três(3) tentativas foram esgotadas, O Programa está sendo finalizado.", vbCritical, "Erro!"
       Application.Quit
       End If
       End If
       End If
Exit Sub
End Sub

Private Sub cmdEntrar_Click()
Dim strTentativas As String

...


Essa Vari nao deve ser declarada nesse Lugar, pois dessa Forma ela sempre reassumirá valor 1.

Faça o Seguinte:

Remova a linha destacada;

No Inicio do Formulario de Login (Nas primeiras linhas do VBA, onde tem escrito: "Option Compare Database"), Declare sua Variavel:

Option Compare Database 'Essa parte ja tem ta.
Dim strTentativas As Integer



Agora faça um Teste!








Veja aqui o teste que realizei, em um Formulário Limpo, coloquei a Verificação no Click de um Botão...


Qnd chegar a 3X ele alerta.






Obs: Não analisei suas condiçoes IF

Grande Fábio, fiz assim e ainda não funfou...

Option Compare Database
Dim qnt As Integer

Private Sub cmdEntrar_Click()
If verificaLogin(txtUser, txtSenha) Then
If Me.txtSenha.Value = DLookup("[Senha]", "[tblUsuarios]", "[Login] = '" & Me.txtUser & "'") Then
Identificacao = DLookup("[Nivel]", "[tblUsuarios]", "[Login] = '" & Me.txtUser & "'")

Select Case Identificacao

Case 1
stDocName = "frmAdministrador"
Case 2
stDocName = "frmManutenção"
Case 3
stDocName = "frmMenus"
End Select
DoCmd.Close
DoCmd.OpenForm stDocName
Else
qnt = qnt + 1
If qnt = 3 Then
MsgBox "Vc clicou 3 vezes", vbInformation
Else
MsgBox "Clicou: " & qnt
End If
End If
End If
Exit Sub
End Sub

Será que estou usando no canto errado?

Grande Fábio, deu certo...

Obrigado pela sua ajuda... Deus te abençoe ricamente junto a sua casa...

Abraço,

Segue como ficou, e com certeza servirá para alguém que esteja começando a programar no Access, assim como eu... Mais de vagar e com perseverança e com ajuda dos companheiros chego lá...

Option Compare Database
Dim qnt As Integer

Private Sub cmdEntrar_Click()
If verificaLogin(txtUser, txtSenha) Then
If Me.txtSenha.Value = DLookup("[Senha]", "[tblUsuarios]", "[Login] = '" & Me.txtUser & "'") Then
Identificacao = DLookup("[Nivel]", "[tblUsuarios]", "[Login] = '" & Me.txtUser & "'")

Select Case Identificacao

Case 1
stDocName = "frmAdministrador"
Case 2
stDocName = "frmManutenção"
Case 3
stDocName = "frmMenus"
End Select
DoCmd.Close
DoCmd.OpenForm stDocName
End If
Else
qnt = qnt + 1
If qnt = 3 Then
MsgBox "3 Tentativas esgotadas! Entre em contato com Administrador" & Chr(13) & "O Programa Será Fechado.", _
vbCritical, "Aviso!"
Application.Quit
Else
MsgBox "Tentativas: " & qnt
End If
End If
Exit Sub
End Sub

Bacana Amigo. Que bom que deu certo.

Ate a proxima se Deus quiser...