SELECT t_client.fio, t_filial.id_filial, z_learning_tabel.date_learning, z_learning_tabel.course_learning, z_learning_tabel.status_tabel
FROM ((z_learning_tabel LEFT JOIN t_client ON z_learning_tabel.client_learning = t_client.id_client) LEFT JOIN t_filial ON z_learning_tabel.filial_learning = t_filial.id_filial) LEFT JOIN t_course ON z_learning_tabel.course_learning = t_course.id_course
GROUP BY t_client.fio, t_filial.id_filial, z_learning_tabel.date_learning, z_learning_tabel.course_learning, z_learning_tabel.status_tabel;

SELECT [%$##@_Alias].fio, [%$##@_Alias].id_filial, [%$##@_Alias].date_learning, [%$##@_Alias].course_learning, fff(fio) AS status_tabel
FROM (SELECT z_tabel_lev_1_1.fio, z_tabel_lev_1_1.id_filial, z_tabel_lev_1_1.date_learning, z_tabel_lev_1_1.course_learning
FROM z_tabel_lev_1_1
GROUP BY z_tabel_lev_1_1.fio, z_tabel_lev_1_1.id_filial, z_tabel_lev_1_1.date_learning, z_tabel_lev_1_1.course_learning) AS [%$##@_Alias];

Public Function fff(f As String) As String
Dim s As String
Dim rst As DAO.Recordset
Set rst = CurrentDb.OpenRecordset("select status_tabel from z_tabel_lev_1_1 where fio='" & f & "'")
s = ""
rst.MoveFirst
Do While Not rst.EOF

TRANSFORM Count(z_tabel_lev_1_1.status_tabel) AS [Count-status_tabel]
SELECT z_tabel_lev_1_1.fio, z_tabel_lev_1_1.id_filial, z_tabel_lev_1_1.date_learning, z_tabel_lev_1_1.course_learning
FROM z_tabel_lev_1_1
GROUP BY z_tabel_lev_1_1.fio, z_tabel_lev_1_1.id_filial, z_tabel_lev_1_1.date_learning, z_tabel_lev_1_1.course_learning
PIVOT z_tabel_lev_1_1.status_tabel;

Public Function fff(f As String, f1, f2, f3) As String
Dim s As String
Dim rst As DAO.Recordset
If IsNull(f1) Or Trim(f1) Or IsNull(f2) Or Trim(f2) Or IsNull(f3) Or Trim(f3) = "" Then
    Set rst = CurrentDb.OpenRecordset("select status_tabel from z_tabel_lev_1_1 where fio='" & f & "' group by status_tabel")
Else
    Set rst = CurrentDb.OpenRecordset("select status_tabel from z_tabel_lev_1_1 where fio='" & f & "' and id_filial='" & f1 & "' and date_learning='" & f2 & "' and course_learning='" & f3 & "' group by status_tabel")
End If
s = ""
rst.MoveFirst
Do While Not rst.EOF
    s = s & "/" & rst.Fields(0)
    rst.MoveNext
Loop
fff = Right(s, Len(s) - 1)
rst.Close
Set rst = Nothing
End Function