den4ik1987gРебят, нужна помощь проффов в vba.

Есть отчет rep_empty_find основанный на запросе select_empty_n, у которого есть условие "where (ВходнойКонтроль.[Приходный ордер])=[Введите приходный ордер])". То есть при запуске отчета спрашивается номер и по введеному номеру выдает нужный отчет.
Так же есть запрос select_empty, такой же как и select_empty_n, где выводятся все записи. Т.е. нет условия "where (ВходнойКонтроль.[Приходный ордер])=[Введите приходный ордер])".


Вытаскиваю отчет rep_empty_find в .pdf командой по кнопке

Private Sub Кнопка377_Click()

Dim DB As Database
Set DB = CurrentDb
Dim RS As Recordset
Dim FileName As String
Dim FilePath As String
Dim StrSQL As String
StrSQL = "select [Приходный ордер] from select_empty_n"

Set RS = DB.OpenRecordset(StrSQL, dbOpenDynaset)
'Set RS = DB.OpenRecordset("select_empty", dbOpenDynaset)

FileName = RS.Fields("[Приходный ордер]")
FilePath = "C:\" & FileName & ".pdf"
'FilePath = FileName & ".pdf"
DoCmd.OutputTo acOutputReport, "rep_empty_find", acFormatPDF, FilePath

End Sub

-----
Пишет что в строке "Set RS = DB.OpenRecordset(StrSQL, dbOpenDynaset)" слишком мало параметров.
Заменив строку "StrSQL = "select [Приходный ордер] from select_empty_n" "на "StrSQL = "select [Приходный ордер] from select_empty" ", сохраняется файл всегда с именем первого [Приходный ордер] из запроса select_empty.


ВОПРОС, как подтянуться вводимый номер в имя экспортируемого файла .pdf?
или может как задать имя из сформированного отчета??

Спасибо всем кто поможет, никак не могу найти похожей проблемы.

В отличие от случая, когда вы открываете запрос напрямую из окна БД, метод DB.OpenRecordset для запроса с параметрами эти параметры не запрашивает, поэтому ваш [Введите приходный ордер] он воспринимает как обычное поле (которого там нет, о чем и сообщает).

Запрос с параметрами как рекордсет можно окрывать через метод OpenRecordset соответствующего объекта QueryDef, предварительно задав значения всех его Parameters (это смотрите в справке).

Однако.

Когда будет выполняться DoCmd.OutputTo, он же сам (еще раз) запросит этот параметр (т.е. повторно).
Помимо того, что нехорошо по два раза спрашивать одно и то же, тут есть возможность в этих двух случаях указать разные номера, что уже приведет к лаже.

Поэтому вашем случае, имхо, лучше сделать чуток иначе - написать функцию, которая вернет значение параметра [Приходный ордер], и использовать эту функцию и в условии в запросе, и для получения значения FileName в вашем коде.

В этой функции, при вызове для получения FileName, запросить диалогом (или взять из формы) нужное значение параметра [Приходный ордер], а при (повторном) вызове из запроса (уже не запрашивая) вернуть то, что ввели в первом вызове (запомнив значение в Static-переменной, например)