VERIFICAR SE A TEXTBOX EST? VAZIA

MARIOANDRADE 19/09/2014 23:04:13
#441371
Meus amigos estou tentando criar um programinha simples de cadastro onde preciso verificar se todas as textbox foram preenchidas.
O problema é que são muitas e eu teria que usar um código ainda maior que este:
if txtnomeLocador.text = [Ô][Ô] or txtcpfLocador.text = [Ô][Ô] or txtendLocador.text = [Ô][Ô] or txtnumLocador.text = [Ô][Ô] or txtbairroLocador.text = [Ô][Ô] then


Eu queria um código que verificasse se alguma das textbox dentro de um determinado Frame está vazia e parasse o código.
Eu adaptei o código abaixo para ficar vermelho quando estiver vazio, o problema é que ele pega todas as textbox do formulario, eu preciso
separar por frames.

Public Function Verifica(formulario As Form)
    Dim controle As Control
    Dim i As Integer  

    For i = 0 To formulario.Controls.Count - 1
    Set controle = formulario.Controls(i)   

    If TypeOf controle Is txt Then
   
   [ô]O código original era apenas:    controle.Text = [Ô][Ô]
    If controle.Text = [Ô][Ô] Then controle.BackColor = vbRed

    End If
    Next i    
End Function


Se tiver como fazer essa verificação apenas para um determinado Frame e que ele não prossiga com o código seria muito bom,
não precisa ser um função pois usarei o código apenas no botão cadastrar.

Desde já agradeço a todos que possam ajudar.
NICKOLASCARLOS 19/09/2014 23:10:22
#441372
Pode usar isso:

If TextBox1.Text.Replace([Ô] [Ô], [Ô][Ô]) = Nothing Then
            MsgBox([Ô]Textbox1 está vazio![Ô])
        End If
JABA 19/09/2014 23:17:48
#441373 Resposta escolhida
[ô]eu estou fazendo com um painel. Utilize outro componente de container à seu gosto.
[ô]esse codigo varrerá somente os controles contidos dentro do painel. Quando ele encontrar alguma textbox vazia, ele sai do loop.
Public Function Verifica(painel As Panel)
Dim controle As Control
Dim i As Integer
For i = 0 To painel.Controls.Count - 1
If TypeOf controle Is TextBox Then
If controle.Text = [Ô][Ô] Then exit for
End If
Next
End Function
MARIOANDRADE 19/09/2014 23:26:39
#441374
Citação:

:
[ô]eu estou fazendo com um painel. Utilize outro componente de container à seu gosto.
[ô]esse codigo varrerá somente os controles contidos dentro do painel. Quando ele encontrar alguma textbox vazia, ele sai do loop.
Public Function Verifica(painel As Panel)
Dim controle As Control
Dim i As Integer
For i = 0 To painel.Controls.Count - 1
If TypeOf controle Is TextBox Then
If controle.Text = [Ô][Ô] Then exit for
End If
Next
End Function



Não consegui adaptar para usar com frame

tentei:
Verifica Frame1

Mas deu erro,

Quanto ao código do Nickolas, eu teria que colocar para cada textbox então daria no mesmo, estou tentando simplificar.
JABA 19/09/2014 23:46:20
#441375
Você pelo visto está usando vb6, correto?
Tópico encerrado , respostas não são mais permitidas
Voltar