Таблицу в Word

@Aqqq · Регистрация: 08.05.2016

Author24 — интернет-сервис помощи студентам

Привет всем!

Задача перегнать таблицу (запрос) в Ворд. Передаю по номеру таблицы.

Visual Basic

1
2
3

Dim strData As String
strData = CurrentProject.Connection.Execute("ДОКУМЕНТЫ").GetString()
.Tables(2).Cell(2, 2).Range.Text = strData '

Три варианта одного запроса.
Без условия все работает. В Ворд передается, вставляется.
С условием введенном ручками работает.
С условием взятым с формы запрос работает, таблицу формирует, но в Ворде пустота, не передает.
Почему и как побороть?

SQL

SELECT ГрафикМакет_Ключ, ИД_ГрафикМакет, ФИО, .Дата
FROM ГРАФИК_МАКЕТ; ' передает
 
SELECT ГрафикМакет_Ключ, ИД_ГрафикМакет, ФИО, Дата
FROM ГРАФИК_МАКЕТ
WHERE (((ИД_ГрафикМакет)=113)); ' передает
 
SELECT ГрафикМакет_Ключ, ИД_ГрафикМакет, ФИО, Дата
FROM ГРАФИК_МАКЕТ
WHERE (((ИД_ГрафикМакет)=[Forms]![КОНТРАГЕНТп]![МАКЕТ]![КлючМакет])); ' не передает

mobile · 21.04.2018, 20:10

Надо данные формы передавать функцией, а не прямой ссылкой на форму.
Публичная функция в общем модуле (для определенности названа KeyMaket):

Visual Basic

1
2
3

Public Function KeyMaket()
   KeyMaket=Forms![КОНТРАГЕНТп]![МАКЕТ]![КлючМакет]
End Function

В запросе заменяем ссылку на форму функцией

SQL

1
2
3

SELECT ГрафикМакет_Ключ, ИД_ГрафикМакет, ФИО, Дата
FROM ГРАФИК_МАКЕТ
WHERE ИД_ГрафикМакет=KeyMaket()

@Aqqq · 21.04.2018, 21:14 **[ТС]**

Как обычно всё очень просто, после Ваших разъяснений.
Спасибо

@Aqqq 0 / 0 / 0 Регистрация: 08.05.2016 Сообщений: 56
	21.04.2018, 21:14 [ТС]	3
	Как обычно всё очень просто, после Ваших разъяснений. Спасибо 0