Buongiorno,
sto provando a replicare il codice indicato nella discussione, anche se nel mio caso NON mi interessa la parte riguardante l'ordine di posizione, perché la mia tabella va in ordine di ID.
Ho creato la tabella tblCashFlow con i campi:
ID DtaOperazione importo
Ho creato la realativa query qryTotaleCashFlow
Ho creato il modulo PosizioneNelRecordsetPerCash con il seguente codice:
Function PosizioneNelRecordsetPerCash(MyInteger As Integer) As Integer
Dim db As Database
Dim rs As Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset("qryTotaleCashFlow", dbOpenDynaset)
With rs
.FindFirst ("[ID] = " & CLng(DLookup("[ID]", "qryTotaleCashFlow", "[ID] = " & MyInteger)))
PosizioneNelRecordsetPerCash = .AbsolutePosition + 1
End With
rs.Close
Set rs = Nothing
Set db = Nothing
End Function
adesso non ho capito come procedere e più precisamente come devo impiegare il restante codice indicato nella discussione di seguito riportato:
SELECT PosizioneNelRecordsetPerCash([ID]) AS Posiz, tblCashFlow.*, CCur(DSum("Importo","qryTotaleCashFlow","[Posiz] <= " & [Posiz])) AS TotaleProgressivoCalcolato
FROM tblCashFlow
ORDER BY tblCashFlow.DataOperazione;