fortløbende sammentælling access 97

I can imagine it does. If I understand your question correctly for EVERY record you are summing up the field for ALL previous records.
You may be able to use a SUB SELECT in the field but I am not sure it is going to help

Det du skriver er det bare en konstatering af at det der allerede gøres er den eneste måde ? eller foreslår du en anden måde.?

You may be able to use a SUB SELECT in the field but I am not sure it is going to help

try me...

how does SUB SELECT work.?  ( ex.)

A sub select is something like this, the exact syntax you need will be different and MAY NOT be possible becuase you need to include thecurrent records turnover in th esub slect and I am not sure how this is done.

Tot: (SELECT Sum(fld) FROM tbl)

Another thing you could try if you havent already done so is to INDEX the field.

index er ikke godt fordi feltet er et beregningsfelt i en query. :-(

! what is wrong with that?

Jeg ved ikke hvordan man indexerer et beregningsfelt i en query.

OK, now I understand! The underlaying fields could be indexed. If the calculation is complex then this is also something which will slow things down

what does you dsum look like?

Result: DSum("[turnover]";"[turnover_custumer]";"[ID]<=" & [turnover_custumer].[ID])

For at ovenstående skal give mening er ID dog nødsaget til at være Accending når man viewer queryen.

har løst det acceptabelt ved :

Jeg skriver til en ny tabel og foretager derefter kun min DSUM på baggrund af tebellen, derved opnår jeg også at ID kan placeres stigende sonkront med at omsætningen falder.

Vi slår halv skade for din indsats

OK, og tak :o)

Hvor svært kan det være !!!!

Til orientering er her det script der faktisk kører perfekt og hurtigt...

Public Function Opdater_NSC()

    Dim db As Database
    Dim rs As Recordset
    Dim LastValue As Integer
    Set db = CurrentDb
    Set rs = db.OpenRecordset("turnover_custumer", dbOpenDynaset)
   
    LastValue = 0

    Do
       
        rs.Edit
        rs!result = LastValue + rs!turnover
        LastValue = rs!turnover
        rs.Update
        rs.MoveNext

    Loop Until rs.EOF
    rs.Close
    Set rs = Nothing

End Function