Прямі (1) паралельні, якщо виконується умова

Data Access Objects (DAO)

ActiveX Data Objects (ADO)

Объекты ADO

Current Project (Текущий проект)

End Function

Dim strFullName As String

Dim strLastName As String

Dim strFirstName As String

End Sub

Dim strFullName As String

Dim strLastName As String

Dim strFirstName As String

VBA (Visual Basic for Applications)

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

FROM ЗапросПТ

FROM ЗапросОт

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

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

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

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

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

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

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

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

Sub concat()

strFirstName = "Access"

strLastName = "VBA"

strFullName = strFirstName & " " & strLastName

Debug.Print strFullName

View ->immediate window

Function concatFunc() As String

strFirstName = "Access"

strLastName = "VBA"

strFullName = strFirstName & " " & strLastName

concatFunc = strFullName

Debug.Print concatFunc

Application.CurrentProject.Report (“myReport”)

семейство Forms, Reports, Modules, References, и объекты Screen и DoCmd.

Откройте VBA Editor, выберите Tools®References.

.

Дата добавления: 2014-11-20