Access - ERROR EN CORRELATIVO

HOLA A TODOS, TENGO EL SGTE PROBLEMA

FORMULARIO PRINCIPAL : INGRESO PRODUCTO
SUBFORMULARIO : DETALLE PRODUCTO
CAMPO : COD_PROD1
EVENTO : AL RECIBIR EL ENFOQUE
ERROR : IMPOSIBLE IR AL REGISTRO ESPECIFICADO 2105

CODIGO :
Private Sub cod_prod1_GotFocus()
DoCmd.GoToRecord , , acFirst
If IsNothing(Me.cod_prod1) Then
Me.cod_prod1 = DMax("[cod_prod]", "datos_productos") + 1
Exit Sub
Else
DoCmd.GoToRecord , , acNewRec
Me.cod_prod1 = DMax("[cod_prod1]", "datos_detalle_producto") + 1
End If
End Sub

LO PRINCIPAL ES QUE SALE, EL RESULTADO, PERO SIEMPRE APARECE ESTE ERROR.-
Y LO OTRO COMO PUEDO MANEJAR CUANDO SON VARIOS
CODIGO : 1000-2000-3000-4000 PERO SIEMPRE APARECE EL ULTIMO.
GRACIAS POR LA AYUDA ECA

Tal como lo tienes, haz el evento en el subformulario, no en el control.
Creo que no está bien implementado.
Mandame muestra.
Recibi tu correo, estoy en ello.Dame tiempo.

Gracias jesus, a la espera de tu respuesta