Private Sub precio_AfterUpdate()
Dim strSQL As String
Dim rs As DAO.Recordset
'Obtener el código del artículo del registro actual
Dim codigoArticulo As Integer
codigoArticulo = Me!codigoArticulo
'Construir la consulta para obtener el precio del artículo
strSQL = "SELECT precio FROM tuConsulta WHERE codigoArticulo=" & codigoArticulo
'Abrir la consulta y obtener el precio del artículo
Set rs = CurrentDb.OpenRecordset(strSQL)
'Comprobar si se encontraron registros en la consulta
If Not rs.EOF Then
Me!precio = rs!precio 'Copiar el precio del artículo en el campo "precio" del albarán de venta
End If
rs.Close 'Cerrar el recordset
Set rs = Nothing 'Limpiar la variable del recordset
End Sub