[Resolvido]Erro formulário filtro de pesquisa, finaliza o BDA

Olá. Tenho um formulário que é utilizado como um filtro de pesquisa. Quando o item procurado é localizado no BDA retorna o relatório corretamente. Entretanto quando o item procurado não é localizado, ele informa erro de execução e fecha o BDA.
O código que estou usando segue abaixo, poderiam me ajudar a efetuar a modificação no código, para quando o item procurado não for localizado, apenas informar que o item não foi localizado e não fechar o BDA?.
Obrigado.

Código:
Option Compare Database
Private Sub Comando2_Click()
Dim stDocName As String
Dim accobj As AccessObject
On Error GoTo Err_Comando2_Click
stDocName = "RtlPNS1"

'This function closes the report if the report is open and then re-opens the report.
Set accobj = Application.CurrentProject.AllReports.Item(stDocName)

If accobj.IsLoaded Then
If accobj.CurrentView = acCurViewPreview Then
DoCmd.Close acReport, stDocName
DoCmd.OpenReport stDocName, acViewReport
End If
Else
DoCmd.OpenReport stDocName, acViewReport
End If

Exit_Comando2_Click
Exit Sub

Err_Comando2_Click:
MsgBox err.Description
Resume Exit_Comando2_Click
End Sub

Bom dia Josealdo, não sei se te ajuda, o tratamento de erro que você chamou estava quase correto, pelo menos da forma que eu entendo... não sou experiente mas acho que consigo te ajudar nisso ai, eu fiz umas alterações no seu código e veja se funciona.

OBS: Recomendo você sempre definir nomes para os botões, caixas e textos, por exemplo "btnPesquisa, cxNome, txtNome ", assim fica mais fácil identificá-lo no código.

Código:
Option Compare Database
Option Explicit 'Este melhora desempenho e execução na compilação

Private Sub Comando2_Click()
Dim stDocName As String
Dim accobj As AccessObject

'Ação tratar erro
On Error GoTo TrataErro 'Alterei o nome para melhor entendimento

stDocName = "RtlPNS1"

'This function closes the report if the report is open and then re-opens the report.
Set accobj = Application.CurrentProject.AllReports.Item(stDocName)

If accobj.IsLoaded Then
If accobj.CurrentView = acCurViewPreview Then
DoCmd.Close acReport, stDocName
DoCmd.OpenReport stDocName, acViewReport
End If
Else
DoCmd.OpenReport stDocName, acViewReport
End If

' Aqui onde acontece o tratamento do erro
SaiDaSub:
   Exit Sub

TrataErro: 'variável definida
   If Err.Number = N° erro Then 'Neste campo especifique o código do erro quando acontecer
               DoCmd.GoToRecord , , acNewRec
       Exit Sub
   Else
       MsgBox "Pesquisa cancelada !" ' Aqui, digite o texto de mensagem de aviso
   End If
   Resume SaiDaSub
End Sub

Olá Josealdo, algum retorno referente ao seu problema, por favor se foi solucionado favor colocar tópico como Resolvido !

Obrigado.

Obrigado pelo retorno, o fórum agradece !