To numa dúvida tremenda para que possa deixar o meu projeto de VBA/Excel bem funcional, me dizem aí: "Como tornar um ou dois textbox obrigatório o seu preenchimento. Ou seja, não será possível fechar o formulário até os textbox sejam preenchidos por um certo número de caracteres."
Private Sub CommandButton1_Click() If TextBox1.Text = "" Then MsgBox "PREENCHIMENTO OBRIGATÓRIO", vbExclamation, "AVISO" TextBox1.SetFocus Exit Sub End If If TextBox2.Text = "" Then MsgBox "PREENCHIMENTO OBRIGATÓRIO", vbExclamation, "AVISO" TextBox2.SetFocus Exit Sub End If 'restante do seu código End Sub
O setfocus serve para dar foco ao controle... Até....
Marcado como RespostaIranilcesegunda-feira, 8 de fevereiro de 2010 18:25
To numa dúvida tremenda para que possa deixar o meu projeto de VBA/Excel bem funcional, me dizem aí: "Como tornar um ou dois textbox obrigatório o seu preenchimento. Ou seja, não será possível fechar o formulário até os textbox sejam preenchidos por um certo número de caracteres."
Private Sub CommandButton1_Click() If TextBox1.Text = "" Then MsgBox "PREENCHIMENTO OBRIGATÓRIO", vbExclamation, "AVISO" TextBox1.SetFocus Exit Sub End If If TextBox2.Text = "" Then MsgBox "PREENCHIMENTO OBRIGATÓRIO", vbExclamation, "AVISO" TextBox2.SetFocus Exit Sub End If 'restante do seu código End Sub
O setfocus serve para dar foco ao controle... Até....
Marcado como RespostaIranilcesegunda-feira, 8 de fevereiro de 2010 18:25