Қатынас туралы есепті a-ға қалай экспорттауға болады PDF VBA арқылы файл

Қол жеткізу шешімдері Қыркүйек 29, 2025
Қазір бөлісу:

Қалай есеп беруді қалай сақтауға мүмкіндік беретін VBA функциясын құруға болатындығын біліңіз PDF бір түймені басу арқылы. Әрқашан Access таспасына барудың қажеті жоқ!

Қатынау есептерін қолмен сақтауға болады PDF файл Сізге бар болғаны:Қолмен сақтау әдісі PDF файл

  1. Есепті ашыңыз.
  2. Access таспасына өтіңіз: сыртқы деректер> PDF немесе XPS.
  3. Сақталғыңыз келетін файл атауын және қалта жолын таңдаңыз.
  4. Жариялау түймесін басыңыз, сіз аяқтадыңыз.

Оңай, иә? Алайда, егер сізге күнделікті есептерді бірнеше рет экспорттау қажет болса, бұл аздап салық салуы мүмкін.

Уайымдамаңыз. Оңай жол бар. Бір түймені басу арқылы сіздің есепті дереу белгіленген қалтаға экспорттауға болады. Мұны VBA көмегімен жасауға болады. Тек төмендегі қадамдарды орындаңыз.

Енді жүктеп

Егер сіз бұл мүмкіндікті мүмкіндігінше тезірек пайдалана бастағыңыз келсе, онда сіз:

VBA кодтары бар дерекқор үлгісін қазір жүктеп алыңыз

Әйтпесе, егер сіз өзіңіздің қолыңызбен жасағыңыз келсе, төмендегі мазмұнды оқи аласыз.

Қол жетімділік есебін сақтайтын VBA функциясын құрудың қадамдары PDF файл

1. Есептің ішіне пәрмен түймесін қосыңыз

Бұл мақалада сізде қол жетімділік туралы есеп бұрыннан бар деп болжанады. Оны дизайн көрінісінде ашыңыз және Есеп тақырыбындағы түймені қосыңыз (төменде көрсетілгендей).Есептің ішіне пәрмен түймесін қосыңыз

Батырманың атауын өзгертіңіз cmd_exportPDF. Ол үшін:

  1. Дизайн көрінісінде түймесін таңдаңыз.
  2. Меншік парағын ашыңыз (ALT + Enter).
  3. Басқа қойындысына өтіңіз> Аты.
  4. Атау мәнін cmd_exportPDF етіп өзгертіңіз.

2. Командалық батырманың кодын қосыңыз

Кодты қосу үшін алдымен түймеге On Click оқиғасын қосу керек.

  1. Пәрмен түймесі таңдалған кезде, қайтадан сипаттама парағына өтіңіз.
  2. Оқиға қойындысын нұқыңыз.
  3. Басу бойынша іздеңіз және таңдаңыз ...
  4. Құрушы таңдау мәзірі пайда болған кезде Code Builder тармағын таңдап, OK түймесін басыңыз.
  5. Бұл VBA редакторын ашады.

Енді төмендегі кодты көшіріңіз.

Файл атауы мен fldrPath мәндерін жаңартуды ұмытпаңыз. Олардың әрқайсысында түсініктеме бөлімінде жұлдызша (*) бар.

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

Бұл код жолдары:

  1. Алдымен а PDF сол файл атауы бар файл көрсетілген қалтада бұрыннан бар. Олай болса, оны жаңасына ауыстырғыңыз келе ме деген сұрау пайда болады.

Егер сіз «иә» деп таңдасаңыз, есеп экспорттау процесімен жалғасады. Егер олай болмаса, файл PDF форматына түрлендірілмейді.

  1. Егер сіз жоқ қалта жолын енгізсеңіз, кодта көрсетілген қалта жолын жаңартуды сұрайтын шақыру пайда болады. Бұл түзетілмейінше экспорт процесі жалғаспайды.
  2. Есеп сәтті экспортталғаннан кейін, қай жерде екенін көрсететін шақыру пайда болады PDF файл сақталды.

Міне бітті! Енді түймені тексеру уақыты келді.

Қатынас дерекқорын ашу мүмкін емес

Access пайдаланушысының басынан өтетін ең қорқынышты нәрсе - бір күні оянып, дерекқорды ашу мүмкін емес екенін түсіну. Ол бүлінген. Одан да жаманы, деректеріңіздің сақтық көшірмесін жасай алмағаныңызды түсінесіз. Алаңдамаңыз. DataNumen Inc бағдарламалық қамтамасыз етуді құрды Access бағдарламасын түзету дерекқор. Сіздің дерекқорды әлі де жандандыруға болады.

Автордың кіріспесі:

Джейм Стек - деректерді қалпына келтіру бойынша сарапшы DataNumen, Соның ішінде деректерді қалпына келтіру технологиялары бойынша әлемдік көшбасшы болып табылатын Inc. SQL қалпына келтіру және excel қалпына келтіру бағдарламалық жасақтама өнімдері. Қосымша ақпарат алу үшін кіріңіз WWW.datanumen.com

Қазір бөлісу:

Пікірлер жабылды.