Kuidas eksportida juurdepääsuaruannet a PDF Fail VBA kaudu

Juurdepääsulahendused September 29, 2025

Siit saate teada, kuidas saate luua VBA-funktsiooni, mis võimaldab salvestada juurdepääsuaruande nimega PDF vaid ühe nupuvajutusega. Pole vaja iga kord juurdepääsuribale minna!

Juurdepääsuaruandeid saab käsitsi salvestada kui PDF faili. Kõik, mida pead tegema, on:Käsitsi salvestatud nimega PDF Fail

  1. Ava aruanne.
  2. Minge juurdepääsuribale: Välisandmed > PDF või XPS.
  3. Valige failinimi ja kausta tee, kuhu soovite selle salvestada.
  4. Klõpsake nuppu Avalda ja oletegi valmis.

Lihtne, eks? Kui teil on aga vajadus aruandeid korduvalt eksportida, näiteks igapäevaselt, võib see olla veidi koormav.

Ära muretse. On lihtsam viis. Vaid ühe nupuvajutusega saab teie aruande kohe eksportida teie määratud kausta. Seda saab teha VBA abil. Järgige lihtsalt allolevaid samme.

Download Now

Kui soovite starKui soovite funktsiooni võimalikult kiiresti kasutada, saate teha järgmist.

Laadige kohe alla VBA koodidega näidisandmebaas

Vastasel juhul, kui soovite ise teha, saate lugeda allpool olevat sisu.

Juhised VBA-funktsiooni loomiseks, mis salvestab juurdepääsuaruande nimega PDF Fail

1. Lisage oma aruande sisse käsunupp

See artikkel eeldab, et teil on juurdepääsuaruanne juba loodud. Avage see kujundusvaates ja lisage nupp Aruande päisesse (nagu allpool näidatud).Lisage oma aruandesse käsunupp

Nimetage nupp ümber kui cmd_exportPDF. Selleks tehke järgmist.

  1. Kujundusvaates valige nupp.
  2. Avage atribuutide leht (ALT + Enter).
  3. Avage vahekaart Muu > Nimi.
  4. Muutke nime väärtuseks cmd_exportPDF.

2. Lisa käsunupu kood

Koodi lisamiseks peate esmalt nupule lisama sündmuse On Click.

  1. Kui käsunupp on valitud, minge uuesti atribuutide lehele.
  2. Klõpsake vahekaardil Sündmus.
  3. Otsige nuppu On Click ja valige …
  4. Kui ilmub menüü Vali koostaja, valige Code Builder ja klõpsake nuppu OK.
  5. See avab VBA redaktori.

Nüüd kopeerige allolev kood.

Ärge unustage värskendada failinime ja fldrPath väärtusi. Kõigil neil on kommentaaride jaotises tärn (*).

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

Private Sub cmd_exportPDF_Click()
 
  Dim fileName As String, fldrPath As String, filePath As String
  Dim answer As Integer
 
  fileName = "Member Contact Details" 'filename for PDF file*
  fldrPath = "C:\Users\Jessica\Desktop\PDF Exports" '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 objecttype:=acOutputReport, objectName:=Me.Name, outputformat:=acFormatPDF, outputFile:=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

Need koodiread:

  1. Kõigepealt kontrollige, kas a PDF sama failinimega fail on määratud kaustas juba olemas. Kui see nii on, kuvatakse viip, mis küsib, kas soovite selle uuega asendada.

Kui valite jah, jätkub aruanne ekspordiprotsessiga. Kui ei, siis faili ei teisendata PDF.

  1. Kui sisestasite kaustatee, mida pole olemas, kuvatakse viip, mis palub teil värskendada koodis määratud kaustateed. Ekspordiprotsess ei jätku enne, kui see on parandatud.
  2. Kui aruanne on edukalt eksporditud, kuvatakse viip, mis näitab, kus PDF fail salvestati.

See on kõik! Nüüd on aeg oma nuppu testida.

Juurdepääsu andmebaasi ei saa avada

Most kohutav asi, mis võib juhtuda iga Accessi kasutajaga, on ühel päeval ärgata ja mõista, et andmebaasi ei saa enam avada. See on rikutud. Veelgi hullem on see, et saate aru, et te ei saanud oma andmeid varundada. Ära muretse. DataNumen Inc. lõi tarkvara, mis suudab parandage juurdepääs andmebaasi. Teie andmebaasi saab siiski uuesti ellu äratada.

Autori sissejuhatus:

Jayme Stack on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas sql taastamine ja Exceli taastamise tarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom

Kommentaarid on suletud.