[Resolvido]Limpar pesquisa

Olá.
Tenho um formulário pesquisa que insiro o nome, morada, etc e faz a pesquisa.
Criei, seguindo um exemplo , um botão limpar para escrever de novo e fazer nova pesquisa, mas dá-me erro.
O código é o seguinte:

Private Sub btn_limpar_Click()
Me.pesquisa_nome.SetFocus
Me.pesquisa_nome.Text = ""
Me.pesquisa_morada.Text = ""
End Sub

Se tiver o código abaixo, dá certo:

Private Sub btn_limpar_Click()
Me.pesquisa_nome.SetFocus
Me.pesquisa_nome.Text = ""
End Sub

Como se resolve? Obrigado

Já tentou assim?

Private Sub btn_limpar_Click()
Me.pesquisa_nome.Text = ""
Me.pesquisa_morada.Text = ""
Me.pesquisa_nome.SetFocus
End Sub

SetFocus por último

Olá de novo.
Tentei e não deu.

boa tarde amigo AlPedro, teria como postar ao menos parte de seu BD partes envolvidas para que possamos te ajudar, abraço Nogaro !

olá, Nogaro e Gilberlânio.
Descobri a solução:

Private Sub btn_limpar_Click()

Me.pesquisa_morada.SetFocus
Me.pesquisa_morada.Text = ""
Me.pesquisa_nome.SetFocus
Me.pesquisa_nome.Text = ""

' por  pesquisa_nome em último para o começo do preenchimento

End Sub


Obrigado  

olá amigo AlPedro, que bom que Resolveu. abraço Nogaro !

Valeu pelo reterno