Private Sub Command11_Click()
    'MsgBox Me!NR_SALI

    Dim zb As Object
    Dim i As Integer

    Set zb = CurrentDb.OpenRecordSet("SELECT * FROM rozklady WHERE NR_SALI=" & Me!NR_SALI)
    i = 0
    zb.MoveFirst
    Do While Not zb.EOF
            i = i + 1
        zb.MoveNext
    Loop

    MsgBox "W sali o numerze " & Me!NR_SALI & " jest nastepujaca liczba zajec " & i

End Sub