Access - Formulario tabular y código

Hola amigos, tengo el siguiente código en el campo IdProducto en el evento
al perder el foco (como su nombre indica)

Private Sub IdProducto_LostFocus()
On Error GoTo Err_IdProducto_LostFocus

Dim Descripcion As String
Descripcion = DLookup("NombreProducto", "tblProductos", "[IdProducto] =
Forms![sfrDetallesAlbaranes]![IdProducto]")
Me![Descripción] = Descripcion
Me![Cantidad].SetFocus

Exit_IdProducto_LostFocus:
Exit Sub

Err_IdProducto_LostFocus:
MsgBox Err_description
Resume Exit_IdProducto_LostFocus
End Sub

Me gustaría hacer un par de preguntas:
- como el código está en un subformulario de tipo tabular (de estos
continuos que se ponen en facturas, pedidos, etc.) este código me pone la
descripción en todos los registros, no en el registro activo así que ¿cómo
lo soluciono chicos?
- por otra parte, cómo consigo que en un botón de comando que tengo, al
hacer click me permita editar los datos sólo del registro activo y luego lo
vuelva a bloquear (el formulario en principio no permite ni la adición ni la
modificación de los datos)
Muchísimas gracias y un saludo a todos.

Para resolver tu primera pregunta, puedes usar la propiedad RecordsetClone del subformulario para obtener el registro activo y asignar la descripción solo a ese registro. El código quedaría así:


Para la segunda pregunta, puedes cambiar la propiedad AllowEdits del subformulario a False en el evento Load del formulario principal y luego cambiarla a True en el evento Click del botón de comando. El código quedaría así:

En el evento Load del formulario principal:


En el evento Click del botón de comando:


Espero que esto ayude.