[Resolvido]Código para limpar campos

Bom dia a todos, existe um código para eu colocar em um botao para que quando clicado limpe dois campos do formulario ?

Amigo, você pode usar esse comando


para chama - la: ClearTxt Me

Public Sub ClearTxt(p_Form As Form)
'Limpa todos ou alguns TextBox e ComboBox de um Formulário
Dim campo As Control

For Each campo In p_Form.Controls
If TypeOf campo Is TextBox Or TypeOf campo Is ComboBox Then
campo = ""
End If
Next campo
End Sub

créditos: http://br.groups.yahoo.com/group/Microsoft-Access/message/7831

amigo nao consegui entender direito o comando, eu quero limpar os dados da caixa de texto txtcampo atraves do botao cmdLimpar

Boa tarde Dantas.. Este que ele te passou é uma função para aplicação Genérica.. e poderá ser utilizada em qualquer formulário.

Resumindo, ele busca todos os controles do tipo TextBox no formulário e o limpa..

Pode ser aplicado da seguinte maneira:

Em um novo módulo cole a função:

Public Sub ClearTxt(p_Form As Form)
'Limpa todos ou alguns TextBox e ComboBox de um Formulário
Dim campo As Control

For Each campo In p_Form.Controls
If TypeOf campo Is TextBox Or TypeOf campo Is ComboBox Then
campo = ""
End If
Next campo
End Sub

No botão no formulário chamaria da seguinte maneira:
Call Public Sub ClearTxt(me)


Se deseja apenas para duas texBox:

No botão:

Me.NomeDaTextBox1 = ""
Me.NomeDaTextBox2 = ""

Cumprimentos.

Poderia me ajudar? Esta aparecendo a msg: "Você não pode atribuir valor a este objeto" na linha campo = ""

Boa tarde,

Tenta trocar = "" por = NULL

Abraço...

Bom dia....

apenas um pitaco....

Private Sub SeuBotao_Click() ' evento ao clicar do botão
Dim X As Control ' dimensionando x como controle
For Each X In Me.Controls
If TypeOf X Is TextBox Then 'se o tipo de controle, for uma caixa de texto então
X = Null ' o controle fica nulo, ou limpo
End If
Next X
Me.SeuCampo.SetFocus ' qual campo vai receber o foco, após a limpeza.


Código visto nesse tópico.

Descobri que o problema da mensagem era que uma Textbox, estava recebendo o valor de uma função. E por isso não conseguia colocar nulo nesse campo.

Obrigada!

Ainda bem que Resolveu...