Dim przedmiot As DAO.Recordset
Dim zajecia As DAO.Recordset
Dim pon As Integer
Dim wt As Integer
Dim sr As Integer
Dim czw As Integer
Dim pt As Integer
pon = 0
wt = 0
sr = 0
czw = 0
pt = 0
Set przedmiot = CurrentDb.OpenRecordset("PRZEDMIOTY", dbOpenSnapshot)
Set zajecia = CurrentDb.OpenRecordset("ROZKLADY", dbOpenSnapshot)

przedmiot.FindFirst "NAZWA_PRZEDM = '" & NAZWA_PRZEDM & "'"
If Not przedmiot.NoMatch Then
    zajecia.FindFirst "NR_PRZEDM = " & Me![NR_PRZEDM]
    Do Until zajecia.NoMatch
        If zajecia![DZIEN] = "PON" Then
        pon = pon + 1
        End If
        If zajecia![DZIEN] = "WTO" Then
        wt = wt + 1
        End If
        If zajecia![DZIEN] = "SRO" Then
        sr = sr + 1
        End If
        If zajecia![DZIEN] = "CZW" Then
        czw = czw + 1
        End If
        If zajecia![DZIEN] = "PTK" Then
        pt = pt + 1
        End If
        zajecia.FindNext "NR_PRZEDM = " & Me![NR_PRZEDM]
    Loop
End If
Tekst2 = pon
Tekst6 = wt
Tekst8 = sr
Tekst10 = czw
Tekst12 = pt