Bom dia amigos....

 

to usando esse codigo pra limpar todas a checkbox,,, so q nao esta funcionando,, nem dá erro e nem funciona....

 

 

Public Sub LimpaChecks(frm As Form)
    Dim ctrl As Control
    For Each ctrl In frm.Controls
        If TypeOf ctrl Is CheckBox Then
         ctrl.Value = 0
        End If
    Next
End Sub

 

 

verifiquei q essa parte do codigo, nao ta funcionando.. (  ctrl.Value = 0  ),,, pois se colocar o ponto ( . ),, nao ta me mostrando a funçao  VALUE... se alguem puder dar uma dica ai, agradeço..

eu sempre fiz assim

 

Sub LimparCampos(NomeForm As Form)

Dim Controle   As Control

For Each Controle In NomeForm.Controls
        If TypeOf Controle Is CheckBox Then Controle.Value = 0
        If TypeOf Controle Is TextBox Then Controle.Text = ""
    
        Next Controle
       
End Sub

esta ocorrendo a mesma coisa,,, o codigo nem dá erro e nem limpa... no certo, essa parte do codigo ( Controle.Value = 0, quando eu digitasse o PONTO ( . ), teria q me exibir a funcao  VALUE né,,, so q nao aparece nada, ou seja, tem algo faltando... ai nem dá errro nem limpa...

 

 

Carlinhos testei seu codigo e funcionou blz.

eu criei um projeto simples com alguns checks e coloquei o seu codigo num command button.

 

ele não exibe a lista de funções do controle quando vc digita o ponto.

 

 

Não aparece nem vai aparecer as propriedades e métodos. Você está trabalhando dinamicamente com os controles de um formulário, não tem como a IDE saber qual o controle para exibir o intelisense. O código está correto e vai funcionar

Galera,, algo aqui no meu projeto ta errado, pois nao funciona nem a custa d reza brava...

 

fiz assim:

 

Public Function LimparCampos(NomeForm As Form)
    Dim Controle   As Control
    For Each Controle In NomeForm.Controls
        If TypeOf Controle Is CheckBox Then Controle.Value = 0     
        Next Controle
End Function

 

E to chamando num commandbutton:

----------------------

LimparCampos

----------------------

 

Ta faltando algo, ou algo ta no lugar errado?