Access ASP SQL Server VBA NET - Форумы по проектированию

LEADERSOFT.ru Разработка на заказ программ и сайтов

Форумы по информационным технологиям

Начало

Forums

Регистрация | Вход

Форумы

Поиск

Список форумов

Программирование

Microsoft Access. Файлы mdb и accdb

Тема: Источник ...

Тема: Источник на VBA?

15.06.2007 21:10:00

ЕфимовИлья

22 сообщения

Тема: Источник на VBA?

Добрый день, Admin!
Вопрос: возможно в отчете установить источник с помощью кода VBA?
Если возможно , то как должен выглядеть синтаксис?

Отчет: DoCmd.OpenReport "Torg12", acViewPreview
Запрос VBA:
Dim strSQL As String
strSQL = "SELECT Торг.[000]" & vbCrLf
strSQL = strSQL & " , Торг.Счет" & vbCrLf
strSQL = strSQL & " , ([Цена руб]*[8 мест штук]) AS [Сумма с учетом НДС руб]" & vbCrLf
strSQL = strSQL & " , ([Цена $]*[8 мест штук]) AS [Сумма с учетом НДС $]" & vbCrLf
strSQL = strSQL & " , Торг.Счетчик" & vbCrLf
strSQL = strSQL & " , Торг.[2]" & vbCrLf
strSQL = strSQL & " , Торг.[1 Номер]" & vbCrLf
strSQL = strSQL & " , Торг.[2 Наименование]" & vbCrLf
strSQL = strSQL & " , Торг.[4 наим]" & vbCrLf
strSQL = strSQL & " , Торг.[6 Вид упаковки]" & vbCrLf
strSQL = strSQL & " , Торг.[7 В одном месте]" & vbCrLf
strSQL = strSQL & " , Торг.[8 мест штук]" & vbCrLf
strSQL = strSQL & " , ([8 мест штук]/[7 В одном месте]) AS Короба" & vbCrLf
strSQL = strSQL & " , Торг.[9 масса брутто]" & vbCrLf
strSQL = strSQL & " , Торг.[10 масса нетто]" & vbCrLf
strSQL = strSQL & " , ([11 Опт Scr $1,8]*30) AS [Цена руб]" & vbCrLf
strSQL = strSQL & " , ([11 Опт Scr $1,8]) AS [Цена $]" & vbCrLf
strSQL = strSQL & " , Торг.[13 ставка %]" & vbCrLf
strSQL = strSQL & " , ([9 масса брутто]*[8 мест штук]) AS [Итого брутто]" & vbCrLf
strSQL = strSQL & " , ([10 масса нетто]*[8 мест штук]) AS [Итого нетто]" & vbCrLf
strSQL = strSQL & " , ([Цена руб]*[8 мест штук]/118*18) AS [Итого НДС руб]" & vbCrLf
strSQL = strSQL & " , ([Сумма с учетом НДС руб]-[Итого НДС руб]) AS [Сумма без НДС руб]" & vbCrLf
strSQL = strSQL & " , ([Сумма с учетом НДС $]-[Итого НДС $]) AS [Сумма без НДС $]" & vbCrLf
strSQL = strSQL & " , ([Цена $]*[8 мест штук]/118*18) AS [Итого НДС $]" & vbCrLf
strSQL = strSQL & " FROM Торг" & vbCrLf
strSQL = strSQL & " WHERE (((Торг.[2])=""1"" " & vbCrLf
strSQL = strSQL & " OR (Торг.[2])=""2"" " & vbCrLf
strSQL = strSQL & " OR (Торг.[2])=""0""))" & vbCrLf
strSQL = strSQL & " ORDER BY Торг.[000];"

P.S. Общий раздел по отчетам
Автор: Илья Ефимов от 26.12.2005 10:16:11 Источник ...