[Resolvido]Limpar todas as TextBox

Olá, pessoal

Tenho um formulário com várias textBox, todas com as iniciais "Txt_", necessito de fazer um botão que limpe todas as textBox, sem utilizar o exemplo do código abaixo, para não ficar extenso meu VBA.

Txt_Data = ""
Txt_Nome = ""
Txt_End = ""
Txt_CEP = ""
Txt_Etc..........

No aguardo mais um vez da ajuda

Grato

Ola;

teste por favor;

Private Sub SeuBotao_Click()
 Dim X As Control
    For Each X In Me.Controls
        If TypeOf X Is TextBox Then
            X = Null
        End If
    Next X
    Me.SeuCampo.SetFocus
End Sub

Grato, JPaulo

Perfeito

Obrigado pelo retorno o forum agradece.

Bom dia!

JPaulo,

Não entendi como posso aplicar este código no meu banco.

Tenho um form não acoplado frm_AberturaCamados e mais de 30 campos  txt_.... não acoplados nele.
Como faço para que todos sejam limpos de uma só vez?

Abs

Ola;

Exatamente como está escrito,

No evento ao pressionar de um botão no seu formulario;

Private Sub SeuBotao_Click()

Obrigada querido, o problema era que um campos chamava uma função na fonte do controle.

Aproveitando JP, se eu quiser deixar um campo de fora como eu posso fazer?

Private Sub SeuBotao_Click()
Dim X As Control
   For Each X In Me.Controls
       If TypeOf X Is TextBox And X.Name <> "seucampo" Then
           X = Null
       End If
   Next X
   Me.seucampo.SetFocus
End Sub