У меня есть форма, в которой пользователи вводят все свои данные. Существует кнопка «Сохранить», которая сохраняет запись и оставляет форму открытой и активной. Прежде чем закрыть форму, мне нужно взять эту вновь сохраненную запись и вывести соответствующий отчет в файл PDF. Моя проблема сейчас заключается в том, что вывод в PFD отправляет все записи в таблице, а не только запись в форме. Вот мой код на данный момент.
Private Sub cmdSave_Click()
Dim outl As Outlook.Application
Dim mi As Outlook.MailItem
Dim strWhere As String
Cause = "SaveButton"
DoCmd.RunCommand acCmdSaveRecord
'Save the Record
Me.btnClose.SetFocus
If Me.DateOfVisit <> "" Then
Me.RepStatus = "Report Saved!"
Me.btnNewReport.Visible = True
'Now, print the report to a PDF File
DoCmd.OutputTo acOutputReport, "rptReports", acFormatPDF,"C:\ReportTest.pdf", False
End If
End Sub
В качестве примечания требуется, чтобы пользователи не видели, как отчет всплывает на экране, а затем быстро исчезает.
Спасибо за любую помощь.