VERIFICAR VARIAS TEXTBOX

USUARIO.EXCLUIDOS 20/07/2005 09:41:04
#95127
Como posso fazer varias verificações em caixas de texto com pouco código, eh o seguinte:
tem 60 caixas de texto no form, e eu queria fazer uma verificação mais ou menos assim nelas:
If text?? = "1" then
resposta = "1"
elseif text?? = "17" then
resposta = "1"
resposta5 = "16"
elseif text?? = "31" then
resposta = "1"
resposta2 ="2"
resposta3 = "4"
resposta4 = "8"
resposta5 = "16"
End IF
Como eu poderia fazer com que ele fizesse essa verificação em todas as 60 caixas de texto?
Agradeço a ajuda...
JEAN.JEDSON 20/07/2005 09:49:15
#95130
a regra é a mesma para todos os text?
USUARIO.EXCLUIDOS 20/07/2005 10:09:35
#95134
Sao todos text do mesmo tipo ?
WHELLNET 20/07/2005 10:14:41
#95136 Resposta escolhida
Se a regra for a mesma para todos os forms vc pode fazer de duas formas

Uma, cliar um index para os texts, dessa format ficaria text(0).text, text(1).text.. e depois criar um for

Outra, seria fazer uma busca no form e aplicar a sua rotina sempre que for um textbox.
Sub Verifica()
  
 For i = 0 To Me.Controls.Count - 1
       If TypeOf Me.Controls(i) Is TextBox Then
          Me.Controls(i).Text = ""
          If Me.Controls(i).Text  = "1" then
                resposta = "1"
          Elseif Me.Controls(i).Text = "17" then
                resposta = "1"
                resposta5 = "16"
          Elseif Me.Controls(i).Text = "31" then
                resposta = "1"
                resposta2 ="2"
                resposta3 = "4"
                resposta4 = "8"
                resposta5 = "16"
          End IF 
        End If

Next

End Sub
WHELLNET 20/07/2005 10:16:53
#95137 
Me.Controls(i).Text = ""

Não tem nada haver essa linha!!!
USUARIO.EXCLUIDOS 20/07/2005 10:25:04
#95143
Pera lá sem complicação.... 

    For Each Ctrl In Me.Controls
        If TypeOf Ctrl Is TextBox Then
            If Ctrl.Name = "TXT_ALGO" And Ctrl.Text = "VALOR" Then
                EXECUTA_ALGO
            ElseIf Ctrl.Name = "TXT_ALGO" And Ctrl.Text = "VALOR" Then
                EXECUTA_ALGO
            End If
        End If
    Next


Onde TXT_ALGO seria o nome da TextBox

espero que ajude...
USUARIO.EXCLUIDOS 20/07/2005 11:36:23
#95157
Citação:

JEAN JEDSON escreveu:
a regra é a mesma para todos os text?


Sim JEAN, a regra eh para todas as textbox
JEAN.JEDSON 20/07/2005 13:45:50
#95181
bem...
vc trabalha com um objeto array - text1(1) ou apenas com text1???
USUARIO.EXCLUIDOS 22/07/2005 20:20:57
#95672
Na verdade, tem text1,text2,text3,text4.... até a text 64, como faço o mesmo calculo em todas?
USUARIO.EXCLUIDOS 22/07/2005 21:34:01
#95676
faz um array que vai ficar mais fácil ! ai tem como vc fazer um for pra verificar todos os texts !
MARCOSAV 23/07/2005 00:45:53
#95701
BETOCIENTISTA, blz ??? é o seguinte - vc disse que seria a mesma coisa para toda as textbox, correto ??? Bem, se é assim, faça isto que funciona...

Private Sub Command1_Click() ' Apenas um exemplo de execução por um botão
Dim i As Integer
For i = 0 To Me.Controls.Count - 1
If TypeOf Me.Controls(i) Is TextBox Then
Me.Controls(i).Text = 2 * 10 ' Aqui, o conteúdo de cada TextBox encontrada no form
' O que vc quer que aconteça em todas as TextBox. Seja uma operação matemática ou simplesmente .text = ""
End If
Next
End Sub
Espero que isso resolva, vlw

Abraço.
Tópico encerrado , respostas não são mais permitidas
Voltar