MS Access - Отчет в PDF - Поля данных, не заполняемые в элементах управления в PDF - PullRequest
0 голосов
/ 22 мая 2018

Я пытаюсь сгенерировать pdf-файл, основанный на содержимом формы доступа или отчета (либо мне это подходит, но я понимаю, что это следует делать с помощью отчета).

Я могу сгенерировать / заполнить саму форму и сам отчет, но когда я создаю pdf с этим кодом, поля в pdf остаются пустыми.Все элементы управления есть, как в моей форме, но поля, в которых должны быть данные, не копируются.

Это работает как есть для меня и создает PDF-файл, который выглядит так же, как мой отчет, за исключением того, что данные из отчета не переносятся в сохраненный PDF-файл

Private Sub pdfBtn_Click()

Dim fileName As String, fldrPath As String, filePath As String
  Dim answer As Integer

  fileName = "File_Test1" 'filename for PDF file*
  fldrPath = "C:\Users\myname\Desktop" 'folder path where pdf file will be saved *

  filePath = fldrPath & "\" & fileName & ".pdf"

  'check if file already exists
  If FileExist(filePath) Then
    answer = MsgBox(prompt:="PDF file already exists: " & vbNewLine & filePath & vbNewLine & vbNewLine & _
      "Would you like to replace existing file?", buttons:=vbYesNo, Title:="Existing PDF File")
    If answer = vbNo Then Exit Sub
  End If

  On Error GoTo invalidFolderPath
  DoCmd.OutputTo acOutputReport, "Report2", acFormatPDF, filePath

  MsgBox prompt:="PDF File exported to: " & vbNewLine & filePath, buttons:=vbInformation, Title:="Report Exported as PDF"
  Exit Sub

invalidFolderPath:
  MsgBox prompt:="Error: Invalid folder path. Please update code.", buttons:=vbCritical

End Sub


Function FileExist(FileFullPath As String) As Boolean
  Dim value As Boolean
  value = False
  If Dir(FileFullPath) <> "" Then
    value = True
  End If
  FileExist = value
End Function

I 'Я потратил несколько часов на поиски, поэтому я бы расстроился, если это что-то слишком простое и доступное.Но кто-нибудь может указать мне правильное направление с этим?

1 Ответ

0 голосов
/ 23 мая 2018

Похоже, у меня была неправильная логика.Да, предоставленный код работает, спасибо еще раз @ June7.Я слишком усложнил ситуацию, пытаясь создать PDF-файл из самой формы, а не из отчета.Я закончил тем, что сделал кнопку всплывающей отчет вместо другой формы, и данные теперь текут, как ожидалось.

Глупо, как я уже сказал :(

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...