Tem como verificar se existe um campo textbox em branco no meu formulário sem ter que validar desta forma.
Function ValidaCampos()
If Novo = True Then
If TxtRazaoSocial.Text = vbNullString Or _
TxtNFantasia.Text = vbNullString Or _
TxtCnpj.Text = vbNullString Or _
TxtEndereco.Text = vbNullString Or _
TxtCep.Text = vbNullString Or _
CmbEstado.Text = vbNullString Or _
TxtCidade.Text = vbNullString Or _
TxtTelefone.Text = vbNullString Or _
TxtCelular.Text = vbNullString Or _
TxtFax.Text = vbNullString Or _
TxtEmail.Text = vbNullString Or _
TxtObs.Text = vbNullString Then
Cancela = 2
HabilitaBotoes
Else
Cancela = 4
HabilitaBotoes
End If
Else
If TxtRazaoSocial.Text = vbNullString Or _
TxtNFantasia.Text = vbNullString Or _
TxtCnpj.Text = vbNullString Or _
TxtEndereco.Text = vbNullString Or _
TxtCep.Text = vbNullString Or _
CmbEstado.Text = vbNullString Or _
TxtCidade.Text = vbNullString Or _
TxtTelefone.Text = vbNullString Or _
TxtCelular.Text = vbNullString Or _
TxtFax.Text = vbNullString Or _
TxtEmail.Text = vbNullString Or _
TxtObs.Text = vbNullString Then
Cancela = 2
HabilitaBotoes
Else
Cancela = 4
HabilitaBotoes
End If
End If
End Function
Queria algo mais simples, tem como eu fazer um (for next) sem ter que digitar campo por campo e colorir o campo que não estiver preenchido.
