pingo22 قام بنشر مايو 18, 2022 قام بنشر مايو 18, 2022 (معدل) السلام عليكم ورحمة الله وبركاته لدي هذا الكود لاستخرج سجل من على نموذج الى هيئة ملف 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 قام بنشر مايو 18, 2022 قام بنشر مايو 18, 2022 وعليكم السلام 🙂 هذا السطر في الكود يخص تصدير الملف الى pdf ، و مافي شيء في الكود يعمل فلترة/تصفية DoCmd.OutputTo acOutputForm, strForm, acFormatPDF, strFileName, False 3 ساعات مضت, pingo22 said: والمطلب استخراج فقط 1. السجل الحالي او 2. الذي اريد استخراجه فقط يجب ان تعمل طريقة لأخذ قيمة حقل فيه قيمة غير متكررة ، ثم تعمل التصفية على اساسها ، ثم تصدر الى pdf 🙂 جعفر
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.