Giriş Hesabatınızı a PDF VBA vasitəsilə fayl

Giriş Həlləri Sentyabr 29, 2025
İndi paylaş:

Giriş Hesabatınızı belə saxlamağa imkan verəcək VBA funksiyasını necə yarada biləcəyinizi öyrənin PDF yalnız bir düyməni basmaqla. Hər dəfə Access Ribbon-a getməyə ehtiyac yoxdur!

Giriş Hesabatları əl ilə olaraq qeyd edilə bilər PDF fayl. Bütün etməli olduğunuz şey:Əllə Saxlanılan Kimi PDF fayl

  1. Hesabatı açın.
  2. Giriş lentinə keçin: Xarici Məlumat > PDF və ya XPS.
  3. Saxlanılmasını istədiyiniz fayl adını və qovluq yolunu seçin.
  4. Nəşr et üzərinə klikləyin və işiniz bitdi.

Asan, hə? Bununla belə, hesabatları təkrar-təkrar ixrac etməyə ehtiyacınız varsa, deyək ki, gündəlik olaraq, bu, bir qədər vergi tələb edə bilər.

narahat olma. Daha asan bir yol var. Bir düyməyə bir kliklə, hesabatınız dərhal təyin etdiyiniz qovluğa ixrac edilə bilər. Bu, VBA-nın köməyi ilə edilə bilər. Sadəcə aşağıdakı addımları izləyin.

İndi Download

Funksiyadan ən qısa müddətdə istifadə etməyə başlamaq istəyirsinizsə, aşağıdakıları edə bilərsiniz:

İndi VBA Kodları ilə Nümunə Verilənlər Bazasını endirin

Əks halda, DIY etmək istəyirsinizsə, aşağıdakı məzmunu oxuya bilərsiniz.

Giriş Hesabatını Saxlayan VBA Funksiyasının Yaradılması Addımları PDF fayl

1. Hesabatınızın içərisinə əmr düyməsini əlavə edin

Bu məqalə sizin artıq Giriş Hesabatınızın yaradıldığını güman edir. Onu dizayn görünüşündə açın və Hesabat başlığına düymə əlavə edin (aşağıda göstərildiyi kimi).Hesabatınıza Əmr Düyməsi əlavə edin

Düymənin adını dəyişdirin cmd_exportPDF. Bunu etmək:

  1. Dizayn görünüşündə olarkən düyməni seçin.
  2. Mülkiyyət vərəqini açın (ALT + Enter).
  3. Digər sekmesine keçin > Ad.
  4. Ad dəyərini cmd_exportPDF olaraq dəyişdirin.

2. Komanda düyməsi üçün kod əlavə edin

Kodu əlavə etmək üçün əvvəlcə düyməyə On Click hadisəsini əlavə etməlisiniz.

  1. Komanda düyməsi seçilərək yenidən Mülkiyyət Vərəqinə keçin.
  2. Hadisə nişanına klikləyin.
  3. On Click axtarın və seçin ...
  4. Seçin Builder menyusu açıldıqda, Code Builder seçin və OK düyməsini basın.
  5. Bu, VBA Redaktorunu açacaq.

İndi aşağıdakı kodu kopyalayın.

Fayl adı və fldrPath üçün dəyərləri yeniləməyi unutmayın. Onların hər birinin şərh bölməsində ulduz (*) işarəsi var.

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

Bu kod sətirləri:

  1. Əvvəlcə a PDF eyni fayl adına malik fayl artıq müəyyən edilmiş qovluqda mövcuddur. Əgər belədirsə, onu yenisi ilə əvəz etmək istəmədiyinizi soruşan bir sorğu görünəcək.

Bəli seçsəniz, hesabat ixrac prosesi ilə davam edəcək. Əks təqdirdə, fayl PDF formatına çevrilməyəcək.

  1. Mövcud olmayan qovluq yolunu daxil etmisinizsə, kodda göstərilən qovluq yolunu yeniləməyinizi xahiş edən bir sorğu görünəcək. Bu düzəliş edilənə qədər ixrac prosesi davam etməyəcək.
  2. Hesabat uğurla ixrac edildikdən sonra, harada olduğunu göstərən bir sorğu görünəcək PDF fayl saxlanıldı.

Bu belədir! İndi düymənizi sınamağın vaxtı gəldi.

Giriş verilənlər bazasını açmaq mümkün deyil

Access istifadəçisinin başına gələ biləcək ən dəhşətli şey, bir gün oyanıb verilənlər bazasının artıq açıla bilməyəcəyini anlamaqdır. O, zədələnib. Daha da pisi odur ki, məlumatlarınızın ehtiyat nüsxəsini çıxara bilmədiyinizi anlayırsınız. Narahat olmayın. DataNumen Inc edə biləcək bir proqram yaratdı Girişi düzəldin verilənlər bazası. Sizin verilənlər bazanız hələ də həyata qaytarıla bilər.

Müəllif Giriş:

Jayme Stack məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc sql bərpa və excel bərpa proqram məhsulları. Ətraflı məlumat üçün ziyarət edin www.datanumen.com

İndi paylaş:

Şərhlər bağlıdır.