Hacer consulta Access con una suma acumulativa

Inserta un módulo en tu BD, y le pegas este código:

'----------------------------------------------------------------------'Función que calcula las ventas acumuladas'Creada por Sveinborn el 11/07/13'----------------------------------------------------------------------Public Function fncAcumulado(Cliente As String) As CurrencyDim rst As DAO.RecordsetSet rst = CurrentDb.OpenRecordset("Con1")fncAcumulado = 0If rst.RecordCount = 0 Then Exit Functionrst.MoveFirstDo Until rst.EOFfncAcumulado = fncAcumulado + rst("Ventas")If rst("Cliente") = Cliente Then Exit Dorst.MoveNextLoopEnd Function

Luego, en tu consulta con1, en vista diseño, le añades este campo:

Acumulado: fncAcumulado([Cliente])

Guardas los cambios y listo!

Una cosa: la función te deveulve un valor de tipo moneda, porque he supuesto que tu campo ventas es de tipo moneda. Si fuera de otro tipo, tendras que cambiar el encabezado de la funcion, para que el tipo de dato que devuelve coincide con el de tu campo ventas. Por ejemplo, si fuera numérico de tipo doble, te quedaría así:

Public Function fncAcumulado(Cliente As String) As Double

Disculpa la tardanza,

Según creo haber entendido creo que algo como esto te puede servir

select
    Clientes, 
    Ventas, 
    (Select sum(ventas) from con1 group by cliente ) as acumulado
from con1 order by ventas

esto vendría siendo una consulta sql anidada espero te sirva saludos