Colocar esse código no botão de Limpar é mole, funciona numa boa.

Dim i as integer
If mensagem.limparTela = "Sim" Then 'Mensagem é uma outra classe que criei e que funciona rss
  For i = 1 To NomeForm.Controls.Count - 1
    If TypeOf NomeForm.Controls(i) Is TextBox Then
      NomeForm.Controls(i).Text = ""
    End If
  Next i

 

O problema é que tenho uns 300 botões de limpar, então eu queria fazer um class module, olhem o que fiz:

 

Limpeza.cls
Public Sub limparText(NomeForm As Form)
dim i as integer
  For i = 1 To NomeForm.Controls.Count - 1
    If TypeOf NomeForm.Controls(i) Is TextBox Then
      NomeForm.Controls(i).Text = ""
    End If
  Next i

 

Lá no botão LIMPAR, digito:

Limpeza.limparTela(nomeForm) 'Onde nomeForm é o nome do formulário a ter seus textbox limpados.

 

Mas sem dá erro de Type Mismatch nessa linha.

 

Se alguém puder me ajudar, mesmo que moralmente, eu agradeço.

é só tirar os parênteses q funciona...

ou se quiser com parênteses use call:

 

Call Limpeza.limparText(Me)

 

at+

 

 

Eu só vou poder testar na segunda-feira, o projeto tá no pc do estágio. Posto aqui os resultados. Desde já, muitíssimo obrigada :)

coloque limpa me, ou limpa formseleiconado, achei na net ve se serve

 

Sub Limpa(fFormulario As Form)
    'funcao para limpar o for
    Dim lControles As Long
    With fFormulario
    For lControles = 0 To .Controls.Count - 1
        If TypeOf .Controls(lControles) Is TextBox Then 'se for txtbox, limpa
            .Controls(lControles).Text = ""
        ElseIf TypeOf .Controls(lControles) Is ComboBox Then 'sefor combobox, verifica se ele acita limpar
            If .Controls(lControles).Style = 2 Then 'se naum aceita limpar, vai para o primeiro da lista
                .Controls(lControles).AddItem ""
                .Controls(lControles).ListIndex = 0
                .Controls(lControles).RemoveItem 0
            Else 'se aceita, limpa
                .Controls(lControles).Text = ""
            End If
        ElseIf TypeOf .Controls(lControles) Is MaskEdBox Then 'se for mask, limpa
            .Controls(lControles).Text = ""
        ElseIf TypeOf .Controls(lControles) Is CheckBox Then 'se for check, deixa desmarcado
            .Controls(lControles).Value = vbUnchecked
        End If
    Next lControles
    End With
End Sub

A linha: call limpeza.limparText(me) funcionou!

Acrescentei esses outros códigos pra aprimorar a classe.

 

Obrigada, meninos :)