Access - mensaje de error segun valores introducidos

Hola,
Estoy un poco bloqueada,
Tengo un campo de texto en el cual debo introducir un codigo, entonces quiero que me compare este codigo con el de otra tabla y si no existe me salga un mensaje de error, Como puedo hacerlo????

Mil gracias

Private Sub codigo_proveedor_prod_BeforeUpdate(Cancel As Integer)
On Error GoTo Error_codigo_proveedor_prod

If (Not IsNull(DLookup("[codigo_proveedor_prod]", "tbl_detalle_prod", "[codigo_proveedor_prod]='" & Me.codigo_proveedor_prod & "'"))) Then
MsgBox "Codigo Existente en otro producto", vbCritical + vbOKOnly, "VALIDA PRODUCTO"
Cancel = True
Me.codigo_proveedor_prod.Undo
DoCmd.GoToControl "codigo_proveedor_prod"
End If
Exit Sub
Error_codigo_proveedor_prod:
Select Case Err.Number
Case 2108 ' se cancelo openreport or openform
Exit Sub
Case Else
MsgBox Err.Description, vbCritical, "Error" & CStr(Err.Number)
Exit Sub
End Select
End Sub