Maar ik vind dit dus totaal ni eh.......
Ik zie geen fout :/
ik heb mijn on error gecomment zoda ik een fout zie, maar die is enkel voor een lege string bestandsnaam en pad
Code: Select all
'Form om alle leerlingen per geboortejaar te tellen
Private Sub Form_Load()
'Declaraties
Dim intTellerStats
Dim arrStats(1983 To 2000)
Dim strDummy As String
Dim intAantal As Integer
'De jaartallen liggen vast tussen 1983 en 2000
For intTellerStats = 1983 To 2000
'On Error GoTo error
Open strBestandsPad & strBestandsNaam For Input As #1
Do While Not EOF(1)
Input #1, strDummy
If Right(strDummy, 4) = intTellerStats Then
intAantal = intAantal + 1
End If
Loop
'Deze array maakt het makkelijker en sneller om de label te vullen
arrStats(intTellerStats) = "Er zijn " & intAantal & " leerlingen in het jaar " _
& intTellerStats
lblStats = lblStats & arrStats(intTellerStats) & vbCrLf
Close
Next intTellerStats
'Exit Sub
'error:
'MsgBox "Er is een fout opgetreden. Open of creëer een bestand.", vbCritical + vbOKOnly, "File"
End Sub
de fout is dat dit niet gebeurt, alhoewel ik het met een break stap voor stap heb nagekeken met het jaar 1986
dus ze waren allebei 1986 maar toch telde intAantal niet op
dit wilt niet werken
Code: Select all
If Right(strDummy, 4) = intTellerStats Then
intAantal = intAantal + 1
End If
een strDummy ziet er als volgt uit:
Code: Select all
666 ER SDFG 1986