SELECT Сведения.Код, Сведения.ГазетаТ, Сведения.ДатаТ, Сведения.ТипТ
 FROM Сведения;

 UPDATE Газеты INNER JOIN Сведения
 ON Газеты.Код_газеты = Сведения.Газета
 SET Сведения.ГазетаТ = [Газеты]![Газета], 
Сведения.ДатаТ = "Даты:", 
Сведения.ТипТ = "типы:";

UPDATE Даты INNER JOIN Сведения
 ON Даты.Код_даты =  Сведения.Дата.Value
 SET Сведения.ДатаТ = Сведения.ДатаТ  & [Даты].[Дата] & ";" & chr(13) & chr(10);

 UPDATE Тип INNER JOIN Сведения
 ON Тип.Код_типа = Сведения.Тип.Value
 SET Сведения.ТипТ = Сведения.ТипТ & [Тип].[Тип] & ";" & chr(13) & chr(10);

Option Compare Database
Option Explicit
Dim rst As DAO.Recordset
Dim dbs As DAO.Database
''Sub mm00()
''mmdate 1
''mmtyp 1
''End Sub
Function mmdate(n1z)
Dim s1, ss
s1 = "SELECT Сведения.Код as kod1,    Сведения.Дата.Value  as d1, Даты.Дата as d2"
s1 = s1 & " FROM Даты"
s1 = s1 & "  INNER JOIN Сведения"
s1 = s1 & "  ON Даты.Код_даты = Сведения.Дата.Value"
s1 = s1 & " where Сведения.Код = " & n1z


Dim b As Byte
'b = Forms("Order Entry").[Элементы управления]("Страна").MultiSelect
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset(s1)
Do While rst.EOF = False
ss = ss & " " & rst!d2

rst.MoveNext
Loop
Debug.Print ss
rst.Close
Set rst = Nothing
mmdate = ss
End Function
Function mmtyp(n1z)
Dim s1, ss
s1 = "SELECT Сведения.Код as kod1, Сведения.Тип.Value as d1,тип.тип as d2 "
s1 = s1 & " FROM Тип"
s1 = s1 & "  INNER JOIN Сведения"
s1 = s1 & "  ON Тип.Код_Типа = Сведения.тип.Value"
s1 = s1 & " where Сведения.Код = " & n1z


Dim b As Byte
'b = Forms("Order Entry").[Элементы управления]("Страна").MultiSelect
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset(s1)
Do While rst.EOF = False
ss = ss & " " & rst!d2

rst.MoveNext
Loop
Debug.Print ss
rst.Close
Set rst = Nothing
mmtyp = ss
End Function

SELECT Сведения.Код, Газеты.Газета,
 "даты:" & mmdate(Сведения.Код) AS даты,
 "типы:" & mmtyp(Сведения.Код) AS типы
FROM Газеты INNER JOIN Сведения ON Газеты.Код_газеты = Сведения.Газета;