الكتابة على PDF عن طريق اكسس

[RAIANESAMI]

السلام عليكم   لدي طلب لأخواني واخوات المنتدى وهو

لدي  بيانات  موظفين جاهزة في برنامج اكسس 2003  واريد طباعة هذه البيانات على صفحة PDF  جاهزة   خارج او داخل قاعدة البيانات تحمل مثلا

اللقب

الاسم

تاريخ الميلاد

تم تعديل الإثنين at 17:58 بواسطه RAIANESAMI

[kkhalifa1960]

تفضل استاذ @RAIANESAMI مرفق حسب مافهمت . ووافني بالرد . 

PDF Report.rar

[RAIANESAMI]

مشكور كثيرا انت قريب من فكرتي

وهو  ان ملف  PDF  يكون جاهز مكتوب عليه  فقط في البداية

الرقم:

اللقب:

الاسم:

تاريخ الميلاد:

و عندما ابحث اي  موظف  مثلا  رقم 1001  فانها صفحة PDF  تظهر المغلومات في مكانها

  مثل 

الرقم:1001

اللقب:ALI

الاسم:Hassan

تاريخ الميلاد:01/01/1999

[kanory]

في 28‏/4‏/2025 at 23:50, RAIANESAMI said:

مشكور كثيرا انت قريب من فكرتي

وهو  ان ملف  PDF  يكون جاهز مكتوب عليه  فقط في البداية

الرقم:

اللقب:

الاسم:

تاريخ الميلاد:

و عندما ابحث اي  موظف  مثلا  رقم 1001  فانها صفحة PDF  تظهر المغلومات في مكانها

  مثل 

الرقم:1001

اللقب:ALI

الاسم:Hassan

تاريخ الميلاد:01/01/1999

هل البيانات المنقولة باللغة الانجليزية ام العربية 

وهل ممكن مرفق كمثال للتطبيق عليه

[kkhalifa1960]

في 28‏/4‏/2025 at 23:50, RAIANESAMI said:

مشكور كثيرا انت قريب من فكرتي

وهو  ان ملف  PDF  يكون جاهز مكتوب عليه  فقط في البداية

انت تريد  ملف  PDF   يكون قالب وهذ مايصير  ممكن يصير بالاكسل والوورد .... والله أعلم ................  !!!!!

[RAIANESAMI]

الموضوع بالإنجليزية

[RAIANESAMI]

الموضوع بالإنجليزية

ملف PDF يكون صفحته فارعة يوجد به معلومات اساسية

 مثل

الرقم

اللقب

الاسم

تاريخ الميلاد

وبعد البحث عن  الموظف  يمتلئ صفحة PDF مثلا الموظف

الرقم 1001

اللقب ALI

الاسم Hassan

تاريخ الميلاد 01/01/1999

PDF Report.rar

[RAIANESAMI]

نرجوا من الإخوة مساعدتي

[Foksh]

اذا كان المقصود من كلام أخونا صاحب الموضوع هو الكتابة على ملف PDF يستعمله كقالب !!!!

فهذه نقطة لا ولم ولن يتم تطبيقها من خلال اكسيس إلا بإنشاء تقرير ثم تصديره كملف Pdf . غير ذلك فلن تحصل على إختراع يلبي حاجتك وفكرتك.

[kanory]

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

نرجوا من الإخوة مساعدتي

اخي ريان نحاول المساعدة ولكنك لم تكلف نفسك بادراج ملف PDF الموجود لديك لنرى التصميم لديك ولا قاعدة بياناتك ( انت ادرجت لنا مرة اخرى قاعدة بيانات الاستاذ @kkhalifa1960

لنقل بيانات من الاكسس الى PDF :

اولا يجب ان يكون لديك برنامج برنامج Adobe Acrobat Pro (وليس Adobe Reader فقط) او برنامج PDFtk

ثانيا ملف PDF يجب ان يكون استمارة فردية اي لعرض بيانات فردية وليس نموذج مستمر كما ارفقت انت في مثال اخونا خليفة

ثالثا تفعيل المرجع Adobe Acrobat xx.x Type Library (xx = رقم الإصدار مثل 10.0 أو 11.0)

رابعا يجب أن يحتوي ملف الـ PDF على الحقول المسماة مثلا : وهذه يم اضافتها عن طريق البرامج المذكورة في اولا

• "Text1"

• "Dropdown2"

• "todaysDate"

خامسا استخدام هذه الشيفرة اذا كان البرنامج المستخدم PDFtk :::::::::::::::::::::::::

Sub FillPDF()
    Dim tempFDF As String
    Dim pdfInput As String
    Dim pdfOutput As String
    Dim shellCmd As String
    Dim fso As Object
    Dim fdfContent As String
    Dim pdftkPath As String
    Dim appPath As String

    ' تحديد مسار البرنامج الحالي (نفس مجلد قاعدة البيانات أو ملف الإكسل)
    appPath = Application.CurrentProject.Path ' Access
    ' إذا كنت تستخدم Excel بدلاً من Access، استبدل بالسطر التالي:
    ' appPath = ThisWorkbook.Path

    ' تحديد مسار الملفات
    pdfInput = appPath & "\template.pdf"         ' اسم ملف PDF بجانب الملف
    pdfOutput = appPath & "\output_filled.pdf"   ' ملف الإخراج بجانب الملف
    tempFDF = appPath & "\temp_data.fdf"         ' ملف FDF مؤقت

    ' مسار برنامج PDFtk
    pdftkPath = """C:\Program Files (x86)\PDFtk Server\bin\pdftk.exe"""

    ' تحضير محتوى FDF
    fdfContent = "%FDF-1.2" & vbCrLf
    fdfContent = fdfContent & "1 0 obj<</FDF<< /Fields[" & _
        "<< /T (Text1) /V (" & Me.Text0.Value & ") >>" & _
        "<< /T (Dropdown2) /V (" & Me.Text2.Value & ") >>" & _
        "<< /T (todaysDate) /V (" & Me.Text4.Value & ") >>" & _
        "] >> >>endobj" & vbCrLf
    fdfContent = fdfContent & "trailer<</Root 1 0 R>>" & vbCrLf
    fdfContent = fdfContent & "%%EOF"

    ' إنشاء ملف FDF
    Set fso = CreateObject("Scripting.FileSystemObject")
    With fso.CreateTextFile(tempFDF, True)
        .Write fdfContent
        .Close
    End With

    ' تنفيذ الأمر باستخدام PDFtk
    shellCmd = pdftkPath & " """ & pdfInput & """ fill_form """ & tempFDF & """ output """ & pdfOutput & """ flatten"
    Shell shellCmd, vbHide

    MsgBox "تم إنشاء الملف: " & pdfOutput
End Sub

سادسا استخدام هذه الشيفرة اذا كان البرنامج المستخدم Adobe Acrobat Pro :::::::::::::::::::::::::

    Dim AcroApp As Acrobat.CAcroApp
    Dim theForm As Acrobat.CAcroPDDoc
    Dim jso As Object
    Dim path As String
    Dim field As Object
        Dim Text1, Dropdown2, todaysDate As String
        Dim Text0, Text2, Text4 As String
     Set AcroApp = CreateObject("AcroExch.App")
    Set theForm = CreateObject("AcroExch.PDDoc")
    theForm.Open (Me.Label16.Caption)
    Set jso = theForm.GetJSObject
    'write the values to corresponding pdf fields
        jso.getfield("Text1").Value = Me.Text0.Value
        jso.getfield("Dropdown2").Value = Me.Text2.Value
        jso.getfield("todaysDate").Value = Me.Text4.Value
    theForm.Save PDSaveIncremental, Me.Label16.Caption

    theForm.Close
     
    AcroApp.Exit
    Set AcroApp = Nothing
    Set theForm = Nothing

سابعا ::: انا دوري انتهى هنا بارك الله فيك

تم تعديل منذ 20 ساعات بواسطه kanory

[jjafferr]

السلام عليكم 

 

 

هل هذا ملف pdf اللي تريده؟

استعنت ببرنامج اخوي خليفة 🙂

 

جعفر

DD1Testdb2.mdb rpt_ST_Information.pdf

[RAIANESAMI]

السبلام عليكم

انا مبتدئ وارجوا المساعدة

الان قمت بارفاق الملف  علما عندما اضغط غلى زر    Aperçu état

بقوم بإستدعاء ملف PDF  الذي خارج قاعدة البيانات اكسس الذي عبارة عن وضيقة رسمية مكتوبة عليها معلومات رسمية وعند اختيار الموظف

فأن معلوماته نجدها مباشرة على وثيقة PDF .

DD1Testdb2.mdb

[jjafferr]

اذ اردت معلومات التقرير تظهر كاملة، احذف الكائن الذي داخل الدائرة الحمراء.

.

2 ساعات مضت, RAIANESAMI said:

ملف PDF  الذي خارج قاعدة البيانات اكسس الذي عبارة عن وضيقة رسمية مكتوبة عليها معلومات رسمية

 

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

[RAIANESAMI]

ملغ فبل الاستدعاء Document1.pdf

ملف بعد البحث عن الموDocument2.pdfظف واريد تمتلئ المعلومات المكتوبة بالأسود

[RAIANESAMI]

DD1Testdb2025.mdb

اريد ان تظهر صفحة pdf  مكتوب عليها المعلومات المكتوبة بالأسود فقط لان المعلومات  المكتوبة بالأزرق مكتوبة سابقا

[jjafferr]

سيدي الفاضل ، موضوعك جدا سهل ، ولو انك من البداية ارفقت ملف الـ pdf لحصلت على الجواب من زمان 🙂

انت لست بحاجة الى ملف pdf ، وانما بحاجة الى قالب المسميات ، حتى تضع البيانات في مكانها.

1. حولت ملف pdf الى صورة ، وارفقتها كخلفية للتقرير ،

2. اعدت ترتيب الحقول لمكانها الصحيح حسب الخلفية ،

3. الافضل حذف الخلفية (حتى يصبح البرنامج خفيفا) ، ولكن قبل الحذف ، اعمل مربعات تسمية لكل التسميات التي بالازرق ، وقد عملت لك نموذجا "شهادة عمل" ، فقم بنسخه وعمل بقية التسميات ، ووضعها في مكانها الصحيح.

 

والان يمكنك تصدير التقرير كملف pdf

.

والنتيجة:

 

DD1Testdb2025.mdb