Hej,
Jeg plejer at lade Excel lave mit tunge arbejde, men denne gang er det
blevet for tungt (over 800.000 poster).
Jeg skal have Access til at gennemgå alle posterne. Posterne er på
vare der er blevet solgt i forskelligt kvantum på forskellige
tidspunkter. Kvantum er det interessante.
Jeg vil have Access til at finde ud af, hvor mange gange hver vare er
blevet solgt. I Excell gøres det sådan her:
For i = i To 800000
første = Range("b" & i)
anden = Range("b" & i + 1)
If anden = første Then
cells(i, 1) = cells(i, 2) + cells(i + 1, 2)
Rows(i + 1).Select
Selection.Delete Shift:=xlUp
i = i - 1
End If
Next i
Det koden gør er: Den ser om posten under den posten koden er nået
til, har samme varenummer som posten har. Hvis den har det, lægger den
et bestem felt i begge poster sammen og gemmer det i et tredje felt i
posten den arbejder med, for derefter at slette "dubletten". Så
tjekker den om den næste post også har det samme varenummer, hvis
ikke, går den videre og køre den samme kode på næste post. Forvirret?
Det er ellers meget enkelt
Jeg skal bare finde ud af, hvor mange gange det samme varenummer er
blevet solgt. Hver gang der er blevet lavet et salg, laver basen en ny
post, hvor antallet af solgte enheder står i. Så hver gang en post har
det samme varenummer skal jeg lægger antallet af solgte enheder til
det totalt antal enheder inden for det varenummer. Det skal jeg så
gøre på 800.000 poster, hvor der nok er ca. 80.000 forskellige
varenummere.
Peter