(vba access) Lus hoe werkt dat?

[JCoen]

Wij moeten voor een opdracht op school, een registratiesysteem maken voor zwemwedstrijden in Access. Hierbij moet ie automatisch de punten toekennen aan de 7 snelste tijden. dit stukje code hebben we tot nu toe.

Public Sub toekenning()

Dim teller As Integer
Dim punten As Integer
Dim Tijd As String

teller = 0
punten = 0
Tijd = Forms![Indeling]![Tijd]

Do While teller < 8
teller = teller + 1
Tijd = Min

punten = punten + 1

End Sub

[whoami]

Je zegt niet wat uw probleem precies is.
En hoe een lus werkt staat in de manual duidelijk beschreven.