[Resolvido]Problema com o setFocus

Boa dia Amigos

No código abaixo de um formulário de Login, quando o utilizador digita a senha errada não volta para o campo txt_senha - Linha vermelha.  

Obrigado

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 "Main_Login_NovaSenha"
          Else
          DoCmd.Close
         
         DoCmd.openForm "frmAviso"

          End If

      Else
               
            Call fncMensagem("" & CBox_Usuario & " Senha Inválida.", "Tente Outra Vez !", vbInformation, "Aviso")
           
           Txt_Senha.SetFocus
           
           Txt_Senha = ""
         
           
       End If
   End If

End Sub

Bom dia Assis,

Dá uma olhada neste tópico, caso ainda não o tenha feito, de repente, pode ajudar a resolver.

https://www.maximoaccess.com/t18698-resolvidoapagar-o-registro-errado-e-mover-o-foco-de-volta-ao-campo

Ismael

Obrigado mas não resultou

Boa noite Assis
Terá que ser vista a fncMensagem ou acompanhar a evolução da execução dessa função

Assis

O Alexandre Neves tem razão

É muito provável que o problema está na função VerificaLogin()

Outra coisa, para que complicar com essa função fncMensagem?

Use simplesmente Msgbox().

Balem

Pitaco e já saindo: é certo que a função fncMensagem em questão é deste tópico exemplo onde pode ser exibido um texto em destaque para o usuário.
https://www.maximoaccess.com/t37561-nova-msgbox#256556

Boa tarde Amigos

O problema deve estar na função fncMensagem (Mestre Damasceno), pois mudei para o normal MsgBox, e faz o setFocus.

Terá solução ??

up

Assis

Bem sabes que não podemos adivinhar.

Que tal se disponibilizasse os objetos envolvidos

Talvez consigamos ajudar dessa forma.

Balem

Vai ficar assim
Obrigado a todos