[Resolvido]Mensagem de erro

Bom dia a todos,

Tenho um formulário chamado Fm_AtaRegistroPreço, que tem um botão para abrir um outro formulário chamado Fm_Empenho, o código é o seguinte:

Private Sub Bt_AbreEmpenho_Click()

   DoCmd.OpenForm "Fm_Empenho", , , "IDAtaRegistro=" & Me.Txt_ControlID.Value

End Sub

O problema é quando eu tenho o FM_ataRegistroPreço sem dados, ao clicar no botão ele abre uma janela de erro como mostra a imagem.



O que eu queria era que em vez de aparecer essa janela aparecesse uma janela a dizer que faltam registros.



Estava a tentar uma coisa do estilo:

Private Sub Bt_AbreEmpenho_Click()

   DoCmd.OpenForm "Fm_Empenho", , , "IDAtaRegistro=" & Me.Txt_ControlID.Value
   On Error GoTo Mensagem

Mensagem:
   MsgBox "Não existem registro de Atas, por favor introduza uma registro para continuar."

End Sub

A mensagem aparece-me sempre quer tenha ou não registro, ou seja, quer exista ou não esse erro.
Alguém pode dar uma olhada.

Obrigado

Bem, acho que descobri o problema

Private Sub Bt_AbreEmpenho_Click()

On Error GoTo Mensagem
DoCmd.OpenForm "Fm_Empenho", , , "IDAtaRegistro=" & Me.Txt_ControlID.Value
Exit Sub

Mensagem:
MsgBox "Não existem dados de atas, por favor introduza"

End Sub

Obrigado

Olá Jorge,

Obrigado pelo retorno, os membros do fórum agradecem.

Qualquer coisa estamos cá.

Abraço