Как открыть диалоговое окно выбора директории в DoCmd.OutputTo? / Microsoft Access

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Как открыть диалоговое окно выбора директории в DoCmd.OutputTo?

5 сообщений из 5, страница 1 из 1

Как открыть диалоговое окно выбора директории в DoCmd.OutputTo?

#40115306

Гость

Здравствуйте, уважаемые форумчане.
Для создания файла отчета в формате PDF использую

Код: vbnet

1.
2.
3.

Private Sub PrintReport_Click()
DoCmd.OutputTo acOutputReport, , acFormatPDF, "Отчет за " & [Data] & ".pdf", True
End Sub

Файл сохраняется по умолчанию в директорию "Мои документы", а затем открывается в Акробате.

Возможно ли как-то добавить появление диалогового окна для выбора директории, куда сохранять файл?

...

Рейтинг:

0 / 0

26.11.2021, 16:17

| Ответить | Цитировать | Написать

Как открыть диалоговое окно выбора директории в DoCmd.OutputTo?

#40115319

aleks222

Участник

Сообщения: 2 564

Рейтинг: 0 / 0

В скрижалях завета сказано

OutputFile Необязательный Variant Строковое выражение, являющееся полным именем (включая путь) файла, в который нужно вывести объект. Если не задать значение для этого аргумента, Access предложит указать имя выходного файла.
https://docs.microsoft.com/ru-ru/office/vba/api/access.docmd.outputto

Ну, дык,
1. Открой окно файлового диалога
2. Получи имя файла
3. Передай имя файла

И пребудет с тобой щастье.

...

Рейтинг:

0 / 0

26.11.2021, 16:34

| Ответить | Цитировать | Написать

Как открыть диалоговое окно выбора директории в DoCmd.OutputTo?

#40115328

Гость

aleks222OutputFile Необязательный Variant Строковое выражение, являющееся полным именем (включая путь) файла, в который нужно вывести объект. Если не задать значение для этого аргумента, Access предложит указать имя выходного файла.
https://docs.microsoft.com/ru-ru/office/vba/api/access.docmd.outputto

Спасибо. Я это читал. Если посмотреть на мой код,

Код: vbnet

DoCmd.OutputTo acOutputReport, , acFormatPDF, "Отчет за " & [Data] & ".pdf", True

видно, что имя файла у меня создается автоматом, а следовательно, желания писать его самому в диалоге у меня нет. :)

Нашел такое решение:

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.

Private Sub PrintReport_Click()
Dim FName As String
With Application.FileDialog(msoFileDialogSaveAs)
    .Title = "Укажите папку для экспорта"
    .AllowMultiSelect = False
    .InitialFileName = "Отчет за " & [Data]    'Название файла по умолчанию
    .Show
    FName = .SelectedItems(1)
End With
DoCmd.OutputTo acOutputReport, , acFormatPDF, FName & ".pdf", True
End Sub
End Sub

Пока работает.
Не знаю, насколько правильно...

...

Рейтинг:

0 / 0

26.11.2021, 17:12

| Ответить | Цитировать | Написать

Как открыть диалоговое окно выбора директории в DoCmd.OutputTo?

#40115338

aleks222

Участник

Сообщения: 2 564

Рейтинг: 0 / 0

Application.FileDialog(msoFileDialogSaveAs) = 1. Открой окно файлового диалога

Молодец. Ты нашел его.

...

Рейтинг:

0 / 0

26.11.2021, 18:06

| Ответить | Цитировать | Написать

Как открыть диалоговое окно выбора директории в DoCmd.OutputTo?

#40115344

Гость

aleks222

Application.FileDialog(msoFileDialogSaveAs) = 1. Открой окно файлового диалога

Молодец. Ты нашел его.

Спасибо! :)

...

Рейтинг:

0 / 0

26.11.2021, 18:35

| Ответить | Цитировать | Написать

5 сообщений из 5, страница 1 из 1

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=45&tid=1609547]:	0ms
get settings:	10ms
get forum list:	13ms
check forum access:	4ms
check topic access:	4ms
track hit:	32ms
get topic data:	11ms
get forum data:	2ms
get page messages:	41ms
get tp. blocked users:	1ms
others:	252ms

total:	370ms