Calcular porcentajes en múltiples registros

Siguiendo con este tema, he conseguido el código siguiente, peró me da un resultado 0. Creo que se debe a que el código no reconoce el campo 'Valor'en el execute, y la división resulta cero para todos los registros.

Podeis hechar una mano? Gracias
Toni

Dim TotalMiValor As Double
Dim dba As Database
Dim rsa As Recordset

Set dba = CurrentDb
Set rsa = dba.OpenRecordset("Select SUM(Valor) AS TotalValor FROM Tabla1")
TotalMiValor = rsa!TotalValor

rsa.Close
dba.Execute "UPDATE Tabla1 SET Total = (Valor/" & TotalMiValor & ")"
dba.Close

Me.Recalc




On Friday, November 16, 2012 11:10:17 AM UTC+1, Toni wrote:

Buenas,



Planteo una duda que seguro está resuelta en los foros, pero no he podido encontrarla:



Tengo una tabla con registro [Valor] y [%Valor], y desearia un código SQL o VB para Acces 2007 que, para cada evento AfterUpdate de [Valor], recalcule el campo [%Valor] de todos los registros ([%Valor] = [Valor]/Suma de todos los campos [Valor])



Podeis echarme una mano con el código?



Gracias

Toni