طلب تعديل على كود التحويل الى صيغة pdf

[pingo22]

السلام عليكم ورحمة الله وبركاته

لدي هذا الكود لاستخرج سجل من على نموذج الى هيئة ملف pdf

Private Sub Command527_Click()
On Error GoTo ErrorHandler
 Dim fs, cf, strFolder
strFolder = "C:\" & Format(Date, "dd-mm-yyyy")
Set fs = CreateObject("Scripting.FileSystemObject")
If fs.FolderExists(strFolder) = False Then
Set cf = fs.CreateFolder(strFolder)
End If

 Dim strForm As String
 Dim strFileName As String
 Dim kan As String
 strForm = "dataa"
 strFileName = "C:\" & Format(Date, "dd-mm-yyyy") & "\" & [Project] & ".pdf"
 DoCmd.OutputTo acOutputForm, strForm, acFormatPDF, strFileName, False
 MsgBox " Êã ÍÝÙ ÇáÊÞÑíÑ " & Format(Now(), " dd-mm-yyyy "), vbInformation, "   C - تم الحفظ في القسم"
 Exit Sub
ErrorHandler:
 MsgBox "لم يتم حفظ التقرير رجاء", 16, "تنبيه"
End Sub

 

السؤال عند اتمام ذلك يحتوي ملف ال pdf على جميع السجلات المخزنة بالنموذج والمطلب استخراج فقط السجل الحالي او الذي اريد استخراجه فقط كا pdf

فكيف يكون التعديل على الكود.. مرفق الكود

 

كود pdf.docx

تم تعديل مايو 18, 2022 بواسطه jjafferr
نسخ الكود من ملف الوورد ، ووضعه في المشاركة

[jjafferr]

وعليكم السلام 🙂

 

هذا السطر في الكود يخص تصدير الملف الى pdf ،

و مافي شيء في الكود يعمل فلترة/تصفية

DoCmd.OutputTo acOutputForm, strForm, acFormatPDF, strFileName, False

 

3 ساعات مضت, pingo22 said:

والمطلب استخراج فقط

1. السجل الحالي

او

2. الذي اريد استخراجه فقط

 

يجب ان تعمل طريقة لأخذ قيمة حقل فيه قيمة غير متكررة ، ثم تعمل التصفية على اساسها ، ثم تصدر الى pdf 🙂

 

جعفر