Galera é seguinte, tem como eu fazer uma função para limpar todas as ext de um form?!!

 

pois tenho um cadastro com 43 text, ai vai ficar muito grande o codigo pois vai ter que colocar

text1.text =""

text2.text =""

text3.text =""

text4.text =""

text5.text =""

e assim até a 43.... quero uma função que detect todos os text e limpe =""

 

falow galera

 

for i% = me.controls.count - 1

    if typeof me.controls(i%) is TextBox then

       me.controls(i%).text

   end if

next i%

 

Public sub limpar() ' Criando uma função chamada "limpar"

textbox.text = ""

End sub

Quando você escrevar o nome "limpar" em qualquer parte do código ele vai limpar o objeto "Textbox".

Exemplo:

Private sub CmdExemplo_Click()

Limpar 'Sem as aspas

End sub

 

valeu