SetFocus não funciona
Enviado: 28 Mar 2020 às 22:22
por Osecle
Olá, tenho um problema. Elaborei uma planilha de cadastro e fim este código para que, se o valor da textbox1 for vazio então a caixa de mensagem avisa preencher o dado. Em seguida deve voltar o focus para a mesma textbox1. Mas isso não ocorre, quando se fecha a caixa de mensagem, o focus vai para a textbox2. Alguém pode me ajudar, por favor? Segue abaixo o código.
'Codigo não aceita numero de matricula vazio
If Me.TextBox1 = "" Then
MsgBox "Matrícula é Obrigatório!", vbCritical, "Controle Dados"
TextBox1.SetFocus
Exit Sub
End If
SetFocus não funciona
Enviado: 29 Mar 2020 às 21:59
por lucasExcel
Amigo faça o upload da planilha em anexo para que possamos depurar o código e ver o porque desse erro acontecer.
Re: SetFocus não funciona
Enviado: 30 Mar 2020 às 05:44
por JCabral
Osecle escreveu:Olá, tenho um problema. Elaborei uma planilha de cadastro e fim este código para que, se o valor da textbox1 for vazio então a caixa de mensagem avisa preencher o dado. Em seguida deve voltar o focus para a mesma textbox1. Mas isso não ocorre, quando se fecha a caixa de mensagem, o focus vai para a textbox2. Alguém pode me ajudar, por favor? Segue abaixo o código.
'Codigo não aceita numero de matricula vazio
If Me.TextBox1 = "" Then
MsgBox "Matrícula é Obrigatório!", vbCritical, "Controle Dados"
TextBox1.SetFocus
Exit Sub
End If
Estranho, aqui funciona direito
Re: SetFocus não funciona
Enviado: 30 Mar 2020 às 20:54
por fcarlosc2018
Boa noite
Tente assim:
Código: Selecionar todosPrivate Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox1 = "" Then
MsgBox ("Sua Mensagem...!!!"), vbInformation, "Atenção!"
Cancel = True
TextBox1.SetFocus
End If
End Sub
Att,
Francisco