[Resolvido]Tratamento de erro para filtro na caixa de texto

Olá amigos

Estou usando um filtro em uma caixa de texto para localizar registro num formulário


Private Sub Texto15_AfterUpdate()

On Error Resume Next
Me.Form.FilterOn = False

Me.Form.Filter = "Seção=" & Me.Texto15
Me.Form.FilterOn = True

End Sub

tentei usar "on error" para tratar erros na pesquisa, mas quando digito um valor que não existe, ele vai para um formulário em branco, se alguém puder me ajudar, alguma forma de ; ao digitar um valor não cadastrado o filtro não funcione.

Agradeço Antecipadamente.

Boa tarde, tony
Nomeie os controlos de forma mais adequada. Procure aqui no fórum. Tem-se falado muitas vezes sobre isto.
Para resolver a sua dúvida, utilize
Private Sub TxtFiltro_AfterUpdate()
On Error Resume Next
Me.Form.Filter = "Seção=" & Me.Texto15
Me.Form.FilterOn = True
if me.recordsetclone.recordcount=0 then
msgbox "Este filtro não devolve nenhum registo."
docmd.cancelevent
end if
End Sub

Caro amigo Alexandre

A mensagem é exibida, mas ainda vai para um registro em branco, tentei adicionar uma "Me.Form.FilterOn = False" no fim do evento mas volta para o primeiro registro. mesmo assim vou usar sua dica, está melhor mesmo voltando pro primeiro registro.

Private Sub TxtFiltro_AfterUpdate()
On Error Resume Next
Me.Form.Filter = "Seção=" & Me.TxtFiltro
Me.Form.FilterOn = True
if me.recordsetclone.recordcount=0 then
msgbox "Este filtro não devolve nenhum registo."
docmd.cancelevent
Me.Form.FilterOn = False
end if
End Sub


Agradeço a resposta