[Resolvido]Ao ocorrer erro na executção de um módulo

Boa tarde a todos

Novamente recorro aos amigos do Fórum a pedir uma ajuda
Tenho o seguinte código em um botão de comando que abre um form. que utilizo como PopUp

Private Sub Comando42_Click()
If MsgBox("DESEJA ALTERAR O VALOR DA VENDA?", vbInformation + vbYesNo, " A T E N Ç Ã O.") = vbYes Then
Dim filtro As String
Dim msg
filtro = "[ProdutoCodigo] = " & Str(EntradaProduto)
If Not IsNull(Me.EntradaProduto) Then
DoCmd.OpenForm "FrmValorVendaPopUp", acViewNormal, , filtro, , acDialog
Else
End If
Me.Texto38.SetFocus
Form.Refresh
Else
DoCmd.GoToRecord , , acNewRec
End If
End Sub

Pois se o cursor estiver em um registro do cadastro em branco da Erro em Tempo de Execução,
gostaria que ao ocorrer erro na execução deste código ele me dê uma mensagem de atenção, ou retorne para um registro anterior.

Antecipadamente agradeço a atenção

Verifique o número do erro que aparece na mensagem de erro e anote-o. Depois, coloque essa linha abaixo antes do seu código:

On Error GoTo TrataErro

No final do código:

TrataErro:
If Err.Number = Número do erro aqui Then
MsgBox "Mensagem aqui", vbOkOnly, "Erro"
Else
Resume Next
End If

Criquio
Isso mesmo que eu queria, sou muito grato pela sua atenção.
Grande abraço.

Tudo certo, sou muito grato pela atenção.

QUE DEUS ILUMINE SUA MENTE