Validação de Preenchimento de formulário

Olá galera!!!!! 

Vai aqui mais uma rotina para que vocês possam usar!!!!!!!

Quando fazemos um formulário de cadastro de dados em alguns casos alguns campos são obrigatório, para que o usuário não se esqueça de preencher este campos obrigatórios criei uma rotina que valida o preenchimento..... e sinaliza quando não preenchido com uma mensagem.

Este tipo de rotina pode ser usado com ComboBox, TextBox, OpitonButton, CheckBox.

Coloquei a rotina dentro do Botão de cadastro!!!!

Private Sub CommandButton_Click()

'Verifica se o campo código tem valor

If TxtCodigo = "" Then 'Verifica se o campo está vazio

MsgBox "Preenchimento Obrigatório", vbExclamation, "Preencha do Codigo da Empresa"

TxtCodigo.SetFocus

Exit Sub

End If

verifica se alguma das opções de optionbutton foi selecionada

If OptionButton1.Value = False And OptionButton2.Value = False And OptionButton3.Value = False And OptionButton4.Value = False And OptionButton5.Value = False And OptionButton6.Value = False And OptionButton7.Value = False And OptionButton8.Value = False And OptionButton9.Value = False And OptionButton10.Value = False And OptionButton11.Value = False And OptionButton12.Value = False And OptionButton13.Value = False And OptionButton14.Value = False And OptionButton15.Value = False And OptionButton16.Value = False And OptionButton17.Value = False Then

MsgBox "O Preenchimento Obrigatório!", vbExclamation, "Marque a Ativdade ou Obrigação Acessória Executada"

Exit Sub

End If

end sub

If TxtCodigo = "" Then ' <<Verifica se o campo está vazio

MsgBox "Preenchimento Obrigatório", vbExclamation, "Preencha do Codigo da Empresa"

Acima exibe mensagem de preenchimento obrigatório caso campo vazio !

TxtCodigo.SetFocus << coloca o cursor no campo que está vazio!!!!!

a explicação acima assume também para qualquer  item do formulário!!!!

espero ter ajudado!!!!

até a proxima