Perdida de enfoque en un campo

Me problema es: tengo un formulario, que cuando lo copio a la memoria o lo envío a un correo, pierde la acción :Después de actualizar :

Private Sub ARTICULO_AfterUpdate()
Me![VALOR] = Me![articulo].Column(2)
End Sub

ejemplo:

escojo el articulo y al lado me muestre el valor de este.

ya te envíe la tabla