Public Function unic1(fild, tabl, nam)
Dim db As DAO.Database
Dim rst1 As DAO.Recordset
Set db = CurrentDb
Set rst1 = db.OpenRecordset("select [" & fild & "] from [" & tabl & "] where comp='" & nam & "' group by [" & fild & "];")
If rst1.RecordCount <> 0 Then
    rst1.MoveFirst
    Do While Not rst1.EOF
        r = r & " / " & rst1.Fields(fild)
        rst1.MoveNext
    Loop
    unic1 = Trim(r)
Else
    unic1 = ""
End If
rst1.Close
Set rst1 = Nothing
End Function

Public Function unic11(fild, tabl, nam)
Dim db As DAO.Database
Dim rst1 As DAO.Recordset
Set db = CurrentDb
Set rst1 = db.OpenRecordset("select [" & fild & "] from [" & tabl & "] where Cstr(код_плана)='" & nam & "' group by [" & fild & "];")
If rst1.RecordCount <> 0 Then
    rst1.MoveFirst
    Do While Not rst1.EOF
        r = r & "  " & rst1.Fields(fild)
        rst1.MoveNext
    Loop
    unic11 = Trim(r)
Else
    unic11 = ""
End If
rst1.Close
Set rst1 = Nothing
End Function