REFORMULAR CAMPO [ô]TEXT[ô]

PLUGSOFTSM 17/03/2016 07:47:16
#459340
Vc usa o VB6? Essa função que te passei é para o vb.net
MESTRE 17/03/2016 07:52:20
#459341
Citação:

:
Certo PLUGSOFTSM, OMAR, e KERPLUNK... Obrigado

PLUGSOFTSM o que faz a variável [ô]As[ô]? Pois olha o erro que ocorre,


http://www.jack.eti.br/limpando-todos-os-objetos-textbox-do-formulario-em-vb-funcoes-publicas/
MILTONSILVA94 17/03/2016 08:02:33
#459343
Sim PLUGSOFTSM, é VB 6
MESTRE 17/03/2016 08:14:17
#459344
Citação:

:
Sim PLUGSOFTSM, é VB 6


look the link!
MILTONSILVA94 17/03/2016 08:24:29
#459345
Mas MESTRE o link mostra a rotina que limpa todos os campos e não volta o SETFOCUS para somente o campo que está em branco...
ACCIOLLY 17/03/2016 08:27:25
#459346
Citação:

:
Cara faz um bom tempo! mas se não me engano a função para isso era mais ou menos assim:

Dim controle As Control
Dim i As Integer

For i = 0 To Form1.Controls.Count – 1
       Set controle = Form1.Controls(i)
       If TypeOf controle Is TextBox Then
             If Trim(controle) = [Ô][Ô] Then
                 MensagemDoSistema [Ô]Campo não informado, verifique antes de salvar![Ô]
                 controle.SetFocus
                 Exit Sub
             End If
       End If
Next i


Bem acho que era assim! se não era tá quase lá! rsrsrsrs
Té Mais



Bom dia MILTONSILVA, você testou essa codificação? não funcionou?
MILTONSILVA94 17/03/2016 08:43:43
#459348
Bom dia ACCIOLLY, olha o erro que ocorre.
ACCIOLLY 17/03/2016 08:50:16
#459351
Tem algum campo visible = false? ao meu ver ele não está conseguindo contar os controles no form
ACCIOLLY 17/03/2016 08:55:07
#459353
Coloca essa linha antes do For

On Error Resume Next


pra ver o que acontece.
MILTONSILVA94 17/03/2016 09:01:54
#459354
Não tem nenhum campo visible = false... Coloquei a linha antes do For e continua o erro.
Página 2 de 5 [48 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar