Gancarz Access

Option Compare Database

Private Sub tNrStu_AfterUpdate()

Dim rsStudent As DAO.Recordset
Set rsStudent = CurrentDb.OpenRecordset("Studenci", dbOpenSnapshot)

Dim rsOcena As DAO.Recordset
Set rsOcena = CurrentDb.OpenRecordset("Oceny", dbOpenSnapshot)

Dim counter(2 To 5) As Integer
Dim searchPhrase As String

searchPhrase = "tNrStu = " & Me!tNrStu

Call rsOcena.FindFirst(searchPhrase)
tNrStu = rsOcena!tNrStu
rsStudent.FindFirst (searchPhrase)
tNaz = rsStudent!tNaz

Do While Not rsOcena.NoMatch
    counter(rsOcena!OCENA) = counter(rsOcena!OCENA) + 1
    Call rsOcena.FindNext(searchPhrase)
Loop

eOce2 = counter(2)
eOce3 = counter(3)
eOce4 = counter(4)
eOce5 = counter(5)

End Sub