1. Набираем команду codeby webinar. Набираем команду для организации и проведения вебинаров. Подробнее ...

    Скрыть объявление
  2. Требуются разработчики и тестеры для проекта codebyOS. Требования для участия в проекте: Знание принципов работы ОС на базе Linux; Знание Bash; Крайне желательное знание CPP, Python, Lua; Навыки системного администрирования. Подробнее ...

    Скрыть объявление
  3. Получи 30.000 рублей. Для получения денег необходимо принять участие в конкурсе авторов codeby. С условиями и призами можно ознакомиться на этой странице ...

    Внимание! Регистрация авторов на конкурс закрыта.

    Скрыть объявление

Помощь В Решении Задачки

Тема в разделе "Вопросы новичков и не только", создана пользователем archibald, 26 окт 2013.

  1. archibald

    archibald New Member

    Репутация:
    0
    Регистрация:
    26 окт 2013
    Сообщения:
    1
    Симпатии:
    0
    Господа! Практическая Задачка для Новичка! Access 10

    ИМЕЕТСЯ: нажатие кнопки на открытие текущего отчета базы данных

    Private Sub Кнопка178_Click()
    Dim stDocName As String
    On Error GoTo Err_

    DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
    stCriteria = "IDSale=" & Forms!Selling!IDsale
    DoCmd.OpenReport "ОТЧЕТ", acViewPreview, , stCriteria

    Exit_:
    Exit Sub

    Err_:
    MsgBox Err.Description
    Resume Exit_
    End Sub

    НАДО: не открывать отчет, а сразу перевести в формат ПДФ, а затем сохранить в указанную папку.
    Путь к папке: Рабочий стол (или любое другое место), Папка «ИМЯ ПАПКИ», в неё вложенная папка «IDsale»
    Что-то вроде этого:

    Private Sub ExportReportToPDF(AFileName As String)
    'Сохранение отчета в файл
    DoCmd.OutputTo acOutputReport, "ОТЧЕТ", acFormatPDF, AFileName, False
    End Sub

    Имя сохраняемого PDF отчета должно быть AFileName = «ОТЧЕТ» + «IDsale»
    Буду премного благодарен :)
     
Загрузка...

Поделиться этой страницей