Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Verificar se o text...
 
Notifications
Clear all

Verificar se o textbox está vazio.

 
2024 - VBA & Macros
Post Recente por selmo 10 anos atrás
6 Posts
3 Usuários
0 Reactions
2,374 Visualizações
RSS
 Lorenzon
(@lorenzon)
Posts: 355
Honorable Member
Topic starter
 

Pessoal,

No evento de cadastro das programações, antes de finalizá-las, o meu projeto verifica se todos os combobox's/textbox's estão devidamente preenchidos.

Para isso, no botão Cadastrar, eu faço essa verificação através dos códigos abaixo:

if textbox1.text = "" then 

msgbox "Por favor, informe-nos a matrícula do empregado e tente novamente!", vbinformation, "Atenção!"

textbox1.setfocus

exit sub 

enf if

O que acontece é que eu tenho inúmeros textbox's e combobox's a serem verificados. Isso causa certa demora no processo de cadastro.

Para evitar isso, eu quero que, quando o empregado estiver cadastrando algum dado em algum textbox/combobox, o mesmo seja impedido de sair de tal textbox/combobox sem preenchê-lo.

Eu já tentei inserir esse código no comando chance, mas funciona parcialmente. Alguém sugeri algo melhor?

 
Postado : 24/02/2015 2:13 pm
 selmo
(@selmo)
Posts: 236
Reputable Member
 

Já tentou If TextBox1.Text = Empty Then ? Qualquer coisa posta o modelo

 
Postado : 24/02/2015 2:18 pm
 Lorenzon
(@lorenzon)
Posts: 355
Honorable Member
Topic starter
 

Selmo,

Usando:

if textbox1.text = "" then 

textbox1.setfocus 

exit sub 

end if 

ou 


if textbox1.text = Empty then 

textbox1.setfocus 

exit sub 

end if

da no mesmo.. digo isso, pois, colocando-os no comando Chance, o usuário fica impedido de sair do textbox através do enter, mas se o mesmo clicar em outro lugar do userform, o textbox1 ficará vazio sem problema!

 
Postado : 24/02/2015 2:28 pm
 selmo
(@selmo)
Posts: 236
Reputable Member
 

já tentou colocar um evento ao sair ou perder o foco do controle?
Algo tipo assim

If TextBox2.Text = "" Then
MsgBox "O campo deve ser preenchido antes de continuar"
TextBox2.SetFocus
End If

 
Postado : 24/02/2015 2:34 pm
 gtsalikis
(@gtsalikis)
Posts: 2373
Noble Member
 

Experimente controlar pelo evento exit do textbox:

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Len(TextBox1) = 0 Then 
    Cancel = True
End If
End Sub
 
Postado : 24/02/2015 2:37 pm
 selmo
(@selmo)
Posts: 236
Reputable Member
 

Mandei o código errado, mas era isso mesmo, evento Exit do textbox

 
Postado : 24/02/2015 2:55 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico