[Resolvido]Bloquear Login

Bom dia.

Primeiramente queria parabenizá-los pelo fórum, muito bom!

Vamos lá, a aplicação que utilizamos na minha empresa possui um acesso simples com login e senha, (é um sistema de gerenciamento de veículos/frota). Necessito que haja um bloqueio de usuários (na tela de gerenciamento de usuários - Formulario_Usuários) e em caso de bloqueio, aparecesse uma mensagem para o usuário quando ele estiver bloqueado, tipo "Usuário XX bloqueado favor contactar o administrador.".

Preciso disso pois existem usuários que não são permitidos e estão logando no sistema quando o usuário real sai de férias ou o mesmo fica afastado, causando assim alguns transtornos e inconsistências (42 usuários).

Criei esse tópico, pois não encontrei no fórum sobre esse assunto, e pra falar a verdade em lugar algum. O único exemplo que consegui ver foi do Telemax do mestre Avelino, mas não consegui implementar ao meu projeto.

** O exemplo que implementei ao meu banco peguei aqui no fórum mesmo, e já está funcionando perfeitamente.

Anexo o banco, e muito obrigada.

Tópico movido para a sala adequada.

Bom dia,

Acrescente o campo "Bloqueado" na origem da linha da combobox do "Frm_Login".
Adapte as propriedades:
Número de Colunas: 2
Larguras das colunas: 3,49cm;0cm
Largura da lista:3,49cm

E no evento "Após atualizar":

Código:

If Me!CBox_Usuario.Column(1) = -1 Then
    MsgBox "Usuário bloqueado"
    Me!CBox_Usuario = Null
End If

Maravilha Claudio! Demais!!!

Não queria importuná-lo, mas só uma pergunta, teria como colocar essa validação após a checagem da senha?

Código:

Private Sub BtnLogin_Click()

 If Not IsNull(CBox_Usuario) And Not IsNull(Txt_Senha) Then
        If verificaLogin(CBox_Usuario, Txt_Senha) Then
         
          If (Txt_Senha) = "123" Then
           
          DoCmd.Close
          DoCmd.OpenForm "Frm_Login_NovaSenha"
          Else
          DoCmd.Close
          DoCmd.OpenForm "Frm_Master"
         
          End If
        Else
            MsgBox "Senha inválida!", vbExclamation, "Login"
            Txt_Senha = ""
            Txt_Senha.SetFocus
        End If
    End If

End Sub

Como pode perceber estou aprendendo VBA agora, ainda tenho dificuldade, mas estou evoluindo.

Caso não dê, já fez muito por mim.

Obrigada!

De nada, Marta.

Vê se está de acordo:

Código:

Private Sub BtnLogin_Click()

 If Not IsNull(CBox_Usuario) And Not IsNull(Txt_Senha) Then
        If verificaLogin(CBox_Usuario, Txt_Senha) Then
           
            If Me!CBox_Usuario.Column(1) = -1 Then
                MsgBox "Usuário bloqueado"
                Exit Sub
            End If
           
          If (Txt_Senha) = "123" Then
           
          DoCmd.Close
          DoCmd.OpenForm "Frm_Login_NovaSenha"
          Else
          DoCmd.Close
          DoCmd.OpenForm "Frm_Master"
         
          End If
        Else
            MsgBox "Senha inválida!", vbExclamation, "Login"
            Txt_Senha = ""
            Txt_Senha.SetFocus
        End If
    End If

End Sub

Obrigada Cláudio.

Foi melhor do que a encomenda.
Que Deus te abençoe!

Resolvido!

Obrigado, Deus te abençoe.