Kirish hisobotingizni qanday eksport qilish mumkin a PDF VBA orqali fayl

Kirish echimlari Sentyabr 29, 2025
Hozir ulashing:

Kirish hisobotini shunday saqlashga imkon beruvchi VBA funksiyasini qanday yaratishingiz mumkinligini bilib oling PDF bir tugmani bosish bilan. Har safar Access Ribbon-ga o'tish shart emas!

Kirish hisobotlarini qo'lda sifatida saqlash mumkin PDF fayl. Siz qilishingiz kerak bo'lgan yagona narsa:Qo'lda saqlangan PDF Fayl

  1. Hisobotni oching.
  2. Kirish lentasiga o'ting: Tashqi ma'lumotlar > PDF yoki XPS.
  3. Saqlanishi kerak bo'lgan fayl nomi va papka yo'lini tanlang.
  4. Nashr qilish-ni bosing va ish tugadi.

Oson, to'g'rimi? Biroq, agar siz hisobotlarni qayta-qayta eksport qilishingiz kerak bo'lsa, masalan, kundalik ravishda, bu biroz soliqqa tortilishi mumkin.

Xavotir olmang. Buning osonroq yo'li bor. Bir tugmani bosish bilan hisobotingiz darhol belgilangan papkaga eksport qilinishi mumkin. Buni VBA yordamida amalga oshirish mumkin. Quyidagi amallarni bajaring.

Hozir yuklab olmoq

Agar siz ushbu funksiyadan iloji boricha tezroq foydalanishni boshlamoqchi bo'lsangiz, quyidagilarni qilishingiz mumkin:

VBA kodlari bilan namunaviy ma'lumotlar bazasini hozir yuklab oling

Aks holda, agar siz DIY qilishni istasangiz, quyidagi tarkibni o'qishingiz mumkin.

Kirish hisobotini saqlaydigan VBA funksiyasini yaratish qadamlari PDF Fayl

1. Hisobotingizga buyruq tugmasi qo'shing

Ushbu maqolada sizda allaqachon kirish hisoboti yaratilgan deb taxmin qilinadi. Uni dizayn ko'rinishida oching va Hisobot sarlavhasiga tugma qo'shing (quyida ko'rsatilganidek).Hisobotingizga buyruq tugmachasini qo'shing

Tugma nomini o'zgartiring cmd_exportPDF. Buning uchun:

  1. Dizayn ko'rinishida tugmani tanlang.
  2. Xususiyatlar varaqini oching (ALT + Enter).
  3. Boshqa yorlig'iga o'ting > Ism.
  4. Ism qiymatini cmd_exportPDF ga o'zgartiring.

2. Buyruq tugmasi uchun kod qo'shing

Kodni qo'shish uchun avval tugmachaga On Click hodisasini qo'shishingiz kerak.

  1. Tanlangan buyruq tugmasi bilan yana Xususiyatlar sahifasiga o'ting.
  2. Voqealar yorlig'ini bosing.
  3. "Klik" ni toping va tanlang ...
  4. “Choose Builder” menyusi ochilganda Code Builder-ni tanlang va “OK” tugmasini bosing.
  5. Bu VBA muharririni ochadi.

Endi quyidagi koddan nusxa oling.

Fayl nomi va fldrPath uchun qiymatlarni yangilashni unutmang. Ularning har birining sharh qismida yulduzcha (*) mavjud.

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

Ushbu kod qatorlari:

  1. Avval tekshiring, agar a PDF bir xil nomdagi fayl belgilangan papkada allaqachon mavjud. Agar shunday bo'lsa, uni yangisiga almashtirishni xohlaysizmi degan so'rov paydo bo'ladi.

Agar "ha" ni tanlasangiz, hisobot eksport jarayoni bilan davom etadi. Agar yo'q bo'lsa, fayl PDF ga o'zgartirilmaydi.

  1. Agar siz mavjud bo'lmagan papka yo'lini kiritgan bo'lsangiz, kodda ko'rsatilgan papka yo'lini yangilashingizni so'rash uchun taklif paydo bo'ladi. Bu tuzatilmaguncha eksport jarayoni davom etmaydi.
  2. Hisobot muvaffaqiyatli eksport qilingandan so'ng, qaerda ekanligini ko'rsatadigan so'rov paydo bo'ladi PDF fayl saqlandi.

Bo'ldi shu! Endi tugmani sinab ko'rish vaqti keldi.

Access ma'lumotlar bazasini ochib bo'lmadi

Access foydalanuvchisi bilan sodir bo'lishi mumkin bo'lgan eng dahshatli narsa - bu bir kuni uyg'onib, ma'lumotlar bazasini endi ochib bo'lmasligini anglash. U buzilgan. Bundan ham yomoni, siz ma'lumotlaringizning zaxira nusxasini yarata olmaganingizni anglashdir. Xavotir olmang. DataNumen mumkin bo'lgan dasturiy ta'minot yaratdi Access-ni tuzatish ma'lumotlar bazasi. Sizning ma'lumotlar bazasi hali ham hayotga qaytarilishi mumkin.

Muallif kirish:

Jayme Stack - ma'lumotlarni qayta tiklash bo'yicha mutaxassis DataNumenMa'lumotlarni qayta tiklash texnologiyalari bo'yicha jahon yetakchisi bo'lgan , Inc sqlni tiklash va excel tiklash dasturiy mahsulotlar. Qo'shimcha ma'lumot olish uchun tashrif buyuring www.datanumen.com

Hozir ulashing:

Comments are closed.