Hallo,
Onderstaande code is bedoeld om steeds het
voortschrijdend gemiddelde te berekenen van de waarden in de kolom t7omzet van vier opeenvolgende rijen (dus (rij1+rij2+rij3+rij4)/4 dan (rij2+rij3+rij4+rij5)/4 enz.) In rij 4 komt nu in de kolom t7vsgem de gemiddelde omzet uit rij 1 tot en met 4.
De werking van de code, hiermee kom ik ook meteen op mijn vraag, is als volgt:
Ik hoop dat ik het goed verwoord: je loopt als het ware record voor record door de tabel en rekent met waardes uit voorgaande records door deze steeds in variabele op te slaan. Mijn vraag is nu of ik op een of andere manier ook kan rekenen met waardes uit nog komende records (dus records die verder liggen dan de huidige record). Deze kun je met code zoals die hieronder denk ik niet opslaan in variabelen, omdat de records de revue nog niet zijn gepasseerd. Is er een manier om wel met 'nog komende records' te rekenen?
Ik zou bijvoorbeeld in rij3 het gemiddelde van de kolom 't7omzet' van de rijen 1 tot en met 4 willen zien (vervolgens in rij 4 het gemiddelde van de rijen 2 tot en met 5 enz.) Het probleem met onderstaande code is dat wanneer je in rij 3 zit de omzet uit rij 4 nog niet bekend is, hoe kom ik hier aan?
Private Sub Knop13_Click()
Dim oRS As DAO.Recordset
Dim dWaarde(3) As Double
Dim k As Long
Set oRS = Application.CurrentDb.TableDefs("t7ompmminpj").OpenRecordset
k = 0
With oRS
Do While Not .EOF
dWaarde(k) = !t7omzet
.Edit
!t7vsgem = (dWaarde(0) + dWaarde(1) + dWaarde(2) + dWaarde(3)) / 4
.Update
k = (k + 1) Mod 4
.MoveNext
Loop
End With
Set oRS = Nothing
End Sub
Onderstaande code is bedoeld om steeds het
voortschrijdend gemiddelde te berekenen van de waarden in de kolom t7omzet van vier opeenvolgende rijen (dus (rij1+rij2+rij3+rij4)/4 dan (rij2+rij3+rij4+rij5)/4 enz.) In rij 4 komt nu in de kolom t7vsgem de gemiddelde omzet uit rij 1 tot en met 4.
De werking van de code, hiermee kom ik ook meteen op mijn vraag, is als volgt:
Ik hoop dat ik het goed verwoord: je loopt als het ware record voor record door de tabel en rekent met waardes uit voorgaande records door deze steeds in variabele op te slaan. Mijn vraag is nu of ik op een of andere manier ook kan rekenen met waardes uit nog komende records (dus records die verder liggen dan de huidige record). Deze kun je met code zoals die hieronder denk ik niet opslaan in variabelen, omdat de records de revue nog niet zijn gepasseerd. Is er een manier om wel met 'nog komende records' te rekenen?
Ik zou bijvoorbeeld in rij3 het gemiddelde van de kolom 't7omzet' van de rijen 1 tot en met 4 willen zien (vervolgens in rij 4 het gemiddelde van de rijen 2 tot en met 5 enz.) Het probleem met onderstaande code is dat wanneer je in rij 3 zit de omzet uit rij 4 nog niet bekend is, hoe kom ik hier aan?
Private Sub Knop13_Click()
Dim oRS As DAO.Recordset
Dim dWaarde(3) As Double
Dim k As Long
Set oRS = Application.CurrentDb.TableDefs("t7ompmminpj").OpenRecordset
k = 0
With oRS
Do While Not .EOF
dWaarde(k) = !t7omzet
.Edit
!t7vsgem = (dWaarde(0) + dWaarde(1) + dWaarde(2) + dWaarde(3)) / 4
.Update
k = (k + 1) Mod 4
.MoveNext
Loop
End With
Set oRS = Nothing
End Sub