FROM ЗапросОт

GROUP BY ЗапросОт.[Код товара], ЗапросОт.Месяц;

SELECT ЗапросПТ.[код товара], Sum(ЗапросПТ.поступление) AS [Sum-поступление], ЗапросПТ.месяц

FROM ЗапросПТ

GROUP BY ЗапросПТ.[код товара], ЗапросПТ.месяц

ORDER BY ЗапросПТ.месяц;

SELECT ТОВАРЫ.[наименование товара], ПОСТАВЩИКИ.Поставщик, ПОСТАВЩИКИ.Страна, [ПОСТУПЛЕНИЕ ТОВАРА].поступление, [ПОСТУПЛЕНИЕ ТОВАРА].цена, [цена]*[курс] AS [Стоимость в руб]

FROM (ПОСТАВЩИКИ

INNER JOIN ТОВАРЫ ON ПОСТАВЩИКИ.[Код поставщика] = ТОВАРЫ.[код поставщика])

INNER JOIN ([КУРС ВАЛЮТЫ]

INNER JOIN [ПОСТУПЛЕНИЕ ТОВАРА] ON [КУРС ВАЛЮТЫ].дата = [ПОСТУПЛЕНИЕ ТОВАРА].[дата поступления]) ON ТОВАРЫ.[код товара] = [ПОСТУПЛЕНИЕ ТОВАРА].[код товара];

VBA (Visual Basic for Applications)

Sub concat()

Dim strFirstName As String

Dim strLastName As String

Dim strFullName As String

strFirstName = "Access"

strLastName = "VBA"

strFullName = strFirstName & " " & strLastName

Debug.Print strFullName

End Sub

View ->immediate window

Function concatFunc() As String

Dim strFirstName As String

Dim strLastName As String

Dim strFullName As String

strFirstName = "Access"

strLastName = "VBA"

strFullName = strFirstName & " " & strLastName

concatFunc = strFullName

Debug.Print concatFunc