VERIFICAR CONTROLES

USUARIO.EXCLUIDOS 06/01/2005 08:33:04
#58923
Olá gente.. Eu gostaria de saber o seguinte... Tipo eu tenho vários Text's e vários Combo's, bom dai conforme o que o usuário configura para fazer no formulário alguns desses controles podem ter o visble = true ou não, dai o que eu preciso fazer é verificar se TODOS os controles estão com a propriedade text <> "" entenderam ???? Tipo eu quero saber se todos os campos foram preenchidos.. Só que aqueles q tem o visible = false eu não posso verificar... A idéia é essa.. Alguém sabe como eu posso fazer isso ?????? Qualquer dúvida me digam.. Obrigado desde já..

Oks,
Rafael Portal
RE.NANER 06/01/2005 08:55:55
#58928 Resposta escolhida
Fazer um por um

If Text1 = "" And Text1.Visible = True Then
   MsgBox "Preencha o Text1", vbOKOnly + vbInformation, "Atenção"
   Text1.SetFocus
   Exit Sub
End If
If Combo1 = "" And Combo1.Visible = True Then
   MsgBox "Preencha o Combo1", vbOKOnly + vbInformation, "Atenção"
   Combo1.SetFocus
   Exit Sub
End If


Ou tente assim:
Dim ctl As Control
For Each ctl In Controls
    If TypeOf ctl Is TextBox Then
        'TextBox
        If ctl.Text = "" And ctl.Visible = True Then
            MsgBox "Você não preencheu o campo " & ctl.Name, vbInformation, "Campo em Branco"
            ctl.SetFocus
            Exit Sub
        End If
        'ComboBox
        If ctl.ComboBox = "" Then
           MsgBox "Você não preencheu o campo " & ctl.Name, vbInformation, "Campo em Branco"
           ctl.SetFocus
           Exit Sub
        End If
    End If
Next ctl


Ele verifica todos os Text do Form!!

*Para verificar os Combos de uma só vez, está dando um errinho!!! Mas já te dá uma luz!

Falows
Renan Luiz de Souza
USUARIO.EXCLUIDOS 06/01/2005 09:18:42
#58936
Olá RE_NANER, seguinte... Eu preciso da sua ajuda pois eu nunca trabalhei com controles, enfim não sei como resolver os problemas dos combos.. O erro que aparece é o seguinte:

If ctl.ComboBox = "" And ctl.Visible = True Then ' Nesta linha gera o erro


Citação:

Run-time error '438':
Object doesn't support this property or method



Alguém sabe como resolver????
Obrigado pela atenção de todos..


Obs.: A primeira opção q RE_NANER me deu, não me serve..

Oks,
Rafeal Portal
RE.NANER 06/01/2005 10:34:55
#58955
Agora vai!!!
Eu adicionei uma linha, verificando qual objeto é, TextBox ou ComboBox

Private Sub Command1_Click()
Dim ctl As Control
For Each ctl In Controls
'Verifica o Tipo de Objeto
If TypeOf ctl Is TextBox Then
'TextBox
If ctl.Text = "" And ctl.Visible = True Then
MsgBox "Você não preencheu o campo " & ctl.Name, vbInformation, "Campo em Branco"
ctl.SetFocus
Exit Sub
End If
End If
'Verifica o Tipo de Objeto
If TypeOf ctl Is ComboBox Then
'ComboBox
If ctl.Text = "" Then
MsgBox "Você não preencheu o campo " & ctl.Name, vbInformation, "Campo em Branco"
ctl.SetFocus
Exit Sub
End If
End If
Next ctl
End Sub
Tópico encerrado , respostas não são mais permitidas
Voltar