Limpar Campos de um Formulário

Caros boa tarde!
Pretendo criar uma Função que limpe os campos de um fomulário desacoplado.
Vi vários exemplos mas não funcionam como esperado.

A minha função é esta:

Código:



Public Function LimpaTela(frm As Form)

    Dim ctl As Control
    
    For Each ctl In frm.Controls
        If Not IsNull(ctl) Or ctl <> "" Then
            ctl.Value = Null
        End If
    Next
        
End Function



No Botão Limpar Campos tem o seguinte código

Código:



Private Sub CmdLimparCampo_Click()

    Resposta = MsgBox("Tem a certeza que pretende limpar os dadados dos campos?", vbQuestion + vbYesNo, "Limpar campos")
    If Resposta = vbYes Then
        LimpaTela (Me)
        Me.CbxTitulo.SetFocus
        Exit Sub
    ElseIf Resposta = vbNo Then
        'NÃO FAZ NADA
    End If

End Sub



Quando executo dá-me o erro: "Run-time error 13: Type mismatch"

Alguém poderia dar uma ajuda?

Desde já agradecimentos antecipados.

boa tarde amigo Fernandes, para limpar campos de um formulário coloque no clik de um botão funciona nota 10
aguardo retorno , abraço Nogaro !

Private Sub Comando16_Click()

Me.seucampo= ""
Me.seucampo= ""
Me.seucampo= ""
Me.seucampo= ""

End Sub

Cara Nogaro,
Agradeço a sua prontidão.
Já pensei nesse solução. Entretanto, suponhamos que tenho 20 campos. teria que repetir para os 20 controlos.
O que pretendo é criar uma função publica que faça isso, independentemente do formulário.
Aguardo respostas

amigo Fernandes não é tão dificil assim porque tenho um form que tem 38 campos e menos de 3 minutos apliquei o código agora cada um tem uma opinião abraço Nogaro !

Fernandes

Aqui está a função:

Atente para a propriedade Tag (Marca) = "pula")

Coloque na nessa propriedade ( a ultima da aba todas) para

a caixa de texto do código do registro para não dar erro.

Coloque um botão Limpar no formulário e no evento Ao clicar:

Call LimpaTudo Me

Código:


Function LimpaTudo(frm As Form)
Dim ctl As Control

For Each ctl In frm.Controls
  Select Case ctl.ControlType
     Case acTextBox
          If ctl.Tag <> "pula" Then
             ctl.Value = ""
          End If
     Case acOptionGroup, acComboBox, acListBox
         ctl.Value = Null
     Case acCheckBox
        ctl.Value = False
  End Select
Next
End Function


[ ]'s