Private Sub Form_Current()
Dim kryterium As String
Dim kryteriumOcena As String
Dim ocenyTab As Recordset
Dim lb5 As Integer
Dim lb4 As Integer
Dim lb3 As Integer
Dim lb2 As Integer

lb5 = 0
lb4 = 0
lb3 = 0
lb2 = 0
Set ocenyTab = CurrentDb.OpenRecordset("OCENY", dbOpenDynaset)


kryterium = "nr_stud = "
NR_STUD.SetFocus
kryterium = kryterium & NR_STUD.Value & " AND Ocena = "
kryteriumOcena = kryterium & "5"
ocenyTab.FindFirst (kryteriumOcena)
Do While Not ocenyTab.NoMatch
    lb5 = lb5 + 1
    ocenyTab.FindNext (kryteriumOcena)
Loop
Tekst10.SetFocus
Tekst10.Value = lb5


kryteriumOcena = kryterium & "4"
ocenyTab.FindFirst (kryteriumOcena)
Do While Not ocenyTab.NoMatch
    lb4 = lb4 + 1
    ocenyTab.FindNext (kryteriumOcena)
Loop
Tekst18.SetFocus
Tekst18.Value = lb4

kryteriumOcena = kryterium & "3"
ocenyTab.FindFirst (kryteriumOcena)
Do While Not ocenyTab.NoMatch
    lb3 = lb3 + 1
    ocenyTab.FindNext (kryteriumOcena)
Loop
Tekst26.SetFocus
Tekst26.Value = lb3

kryteriumOcena = kryterium & "2"
ocenyTab.FindFirst (kryteriumOcena)
Do While Not ocenyTab.NoMatch
    lb2 = lb2 + 1
    ocenyTab.FindNext (kryteriumOcena)
Loop
Tekst34.SetFocus
Tekst34.Value = lb2

End Sub