VERIFICACAO DE CAMPOS

RE.NANER 20/11/2004 00:50:28
#51216
[txt-color=#000080]Preciso para o mais rápido possível, se existe algum jeito de Vefiricar se Todos os Campo de um Form (text, combo, list) de uma só vez, se tiver algum campo em Branco ele avisa "Preencha todos os Campo".[/txt-color]

Quero saber se tem outra forma a não ser :
text1=""
combo1.clear

Tudo de uma vez, num importa qual campo ficou em branco, e Sim q nenhum fique em Branco


Valeuwww
Falowss
USUARIO.EXCLUIDOS 20/11/2004 01:09:32
#51220 Resposta escolhida
a rotina abaixo limpa todos os textbox da tela, combobox, e option box.

A partir desse código dá para fazer o que vc quer



Public Sub Limpar(FrmForm As Form)
    On Error Resume Next
    'Rotina que limpa todos os objetos do Form
    Dim ctlControl As Object
    For Each ctlControl In FrmForm.Controls
        ctlControl.text = ""
        ctlControl.ListIndex = -1 'Chama o procedimento Click
        ctlControl.Value = False
        DoEvents
    Next ctlControl
End Sub
Tópico encerrado , respostas não são mais permitidas
Voltar