ادراج كان OLE

[بوحسين]

السلام عليكم 

عندي ملف يعرض ملفات pdfاريد عمل نسخة منه 

يعطي رسالة بعدم وجود الكائن 

اراج كائن.rar

[بوحسين]

للرفع 

[بوحسين]

up

[محمد أبوعبدالله]

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

لانك تحتاج ملفات

acrord32.dll

acroiehelper.dll

acropdf.dll

يمكنك البحث في جوحجل عن الملفات وتنزيلها ونسحها في مجلد

C:\Windows\System32

تحياتي

تم تعديل أبريل 4, 2019 بواسطه محمد ابوعبد الله

[ابو ياسين المشولي]

20 ساعات مضت, بوحسين said:

up

Dim StrFileParh As String
    'تحديد مسار الملف
    StrFileParh = CurrentProject.Path & "\booksindex\"
    With Me.List1
        ' فتح الملف بعد أخذ اسمه من قائمة التحرير والسرد
        Me.AcroPDF1.Object.LoadFile (StrFileParh & Trim(Str(.Column(0))) & ".PDF")
        ' الانتقال إلى الصفحة المطلوبة
        lngPageNo = CLng(Mid(.Column(2), 1, 3))
        Me.AcroPDF1.setCurrentPage (lngPageNo)
    End With

 

[أبو عبدالله الحلوانى]

في ٤‏/٤‏/٢٠١٩ at 20:53, محمد ابوعبد الله said:

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

لانك تحتاج تلك الملفات  ( acrord32.dll  - acroiehelper.dll - acropdf.dll )

في ٤‏/٤‏/٢٠١٩ at 20:53, محمد ابوعبد الله said:

يمكنك البحث في جوحجل عن الملفات وتنزيلها ونسحها في مجلد

C:\Windows\System32

 

في ٤‏/٤‏/٢٠١٩ at 20:53, محمد ابوعبد الله said:

تحياتي

وتحياتى أنا أيضا 

 

[بوحسين]

في ٤‏/٤‏/٢٠١٩ at 21:53, محمد ابوعبد الله said:

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

لانك تحتاج ملفات

acrord32.dll

acroiehelper.dll

acropdf.dll

يمكنك البحث في جوحجل عن الملفات وتنزيلها ونسحها في مجلد

C:\Windows\System32

تحياتي

اولا اعتذر على التأخر في الرد وذلك لانشغالي في الفترة الماضية

واتوجه بالشكر الجزيل للاخوين محمد ابوعبدالله و أبو عبدالله الحلواني 

بالنسبة للملفات قمت بتحميلها ووضعها في المكان المحدد ولكن للاسف ما في فائدة 

في ٥‏/٤‏/٢٠١٩ at 17:16, ابو ياسين المشولي said:

Dim StrFileParh As String
    'تحديد مسار الملف
    StrFileParh = CurrentProject.Path & "\booksindex\"
    With Me.List1
        ' فتح الملف بعد أخذ اسمه من قائمة التحرير والسرد
        Me.AcroPDF1.Object.LoadFile (StrFileParh & Trim(Str(.Column(0))) & ".PDF")
        ' الانتقال إلى الصفحة المطلوبة
        lngPageNo = CLng(Mid(.Column(2), 1, 3))
        Me.AcroPDF1.setCurrentPage (lngPageNo)
    End With

 

الاخ ابو ياسين المشولي هذا الكود نفس الكود الذي في المرفق 

ممكن توضح لاي كيف يمكن الاستفادة منه 

 

تم تعديل أبريل 13, 2019 بواسطه بوحسين

[ابو ياسين المشولي]

3 ساعات مضت, بوحسين said:

اولا اعتذر على التأخر في الرد وذلك لانشغالي في الفترة الماضية

واتوجه بالشكر الجزيل للاخوين محمد ابوعبدالله و أبو عبدالله الحلواني 

بالنسبة للملفات قمت بتحميلها ووضعها في المكان المحدد ولكن للاسف ما في فائدة 

الاخ ابو ياسين المشولي هذا الكود نفس الكود الذي في المرفق 

ممكن توضح لاي كيف يمكن الاستفادة منه 

 

نعم هو نفس الكود ولكن كا ينقصه هذا المتغير
Dim StrFileParh As String

 

[jjafferr]

السلام عليكم اخوي بوحسين 🙂

 

خلينا من الاكروبات ، واخبرنا شو اللي تريد تعمله ، وبالتفصيل لوسمحت 🙂

 

جعفر

[jjafferr]

بعد النظر في الملف ،

عندك مجلد خارجي فيه ملفات PDF وتريد تعرض الملف حسب رقمه ، بعد النقر على List1 🙂

 

النتيجة ، وبدون الاكروبات ومكتباتها 🙂

.

نستخدم IE WebBrowser ، والموجود على كل كمبيوتر ، وبدون اضافة ملفات 🙂

 

وهذا كود العرض:

Option Compare Database

    Dim web As Object
    
    
Private Sub Form_Load()
'On Error GoTo err_Form_Load

    DoCmd.Maximize

    'specify that the browser is an object in the Form
    Set web = Me.WebBrowser_PDF.Object
    
    'give the initial web page name
    web.Navigate "about:blank"
    'don't show web page errors
    web.Silent = True

   
Exit Sub
Err_Form_Load:
    
    If Err.Number = 2447 Then
        MsgBox "Please Enter a Site Name for starting this Page"
        Exit Sub
    End If
    Resume Next
    
End Sub


Private Sub List1_Click()
    'تحديد مسار الملف
    StrFileParh = CurrentProject.Path & "\booksindex\"

    web.Navigate StrFileParh & Me.List1 & ".pdf"
    web.Visible = True

End Sub

 

جعفر

1032.db2.zip

[بوحسين]

عليكم السلام الاخ جفر 

المطلوب بالضبط زي ما ذكرت 

ولكن كيف نطبق الكود على الملف 

[بوحسين]

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

[jjafferr]

الملف يظل مثل ما هو ، ولا استبدال عنصر ولا شيء ،

بس خلي ملفات PDF في المجلد booksindex ، ويكون هذا المجلد في نفس مجلد البرنامج (يعني مثل ما ارفقته انت في ملفك)

 

🙂

جعفر

[ابو جودي]

الان, jjafferr said:

الملف يظل مثل ما هو ، ولا استبدال عنصر ولا شيء ،

بس خلي ملفات PDF في المجلد booksindex ، ويكون هذا المجلد في نفس مجلد البرنامج (يعني مثل ما ارفقته انت في ملفك)

 

🙂

جعفر

استاذى الجليل ومعملى القدير ووالدى الحبيب استاذ @jjafferr 

بعد كل الشكر والتقدير انا قرات عن هذا قبل قترة على احد المنتديات الاجنبية وبالفعل قمت بتصميمه
ولكن واجهتنى مشكله انه لا يفتح ملفات الأكروبات بل يقوم بعمل دونلود لها وكاننى دخلت على موقع وطلبت لينك للتحميل
 

لا اعلم هل هذا بسبب ويندوز 10 او إن هذه مشكلة عندى انا فقط اعتقدت وقتها اننى أخطأت بالتصميم
ولكن بعد تجربة ما تفضلتم به صار لى نفس الشئ 

تم تعديل أبريل 15, 2019 بواسطه ابا جودى

[jjafferr]

1 ساعه مضت, ابا جودى said:

لا اعلم هل هذا بسبب ويندوز 10 او إن هذه مشكلة عندى

انا كذلك عندي وندوز 10 وكله تمام ،

نعم اذكر انه صارت هذه الحاله على احد الكمبيوترات سابقا ، واعتقد تنصيب Adobe Acrobat reader حل المشكلة 🙂

 

جعفر

[ابو جودي]

15 دقائق مضت, jjafferr said:

انا كذلك عندي وندوز 10 وكله تمام ،

نعم اذكر انه صارت هذه الحاله على احد الكمبيوترات سابقا ، واعتقد تنصيب Adobe Acrobat reader حل المشكلة 🙂

 

جعفر

نعم والدى الحبيب واستاذى الجليل ومعلمى القدير استاذ @jjafferr 
اعتقد لابد من التنصيب للاكروبات ريدر فعلا او تدرى السبب

ان فى الويندوز 10   خاصية تتحكم بكل امتداد على حدة وعلى ماذا يفتح
وهذا اجبارى واعتقد انه مضبوط اتوماتيكيا على التعامل مع المتصفح Microsoft Edge

ساحاول تجربة شئ ما واوافيكم ان نجحت بدون تنصيب الاكروبات ريدر

[بوحسين]

عندما حاولت تطبيق ذلك على فورم

ward Form1

طلعت هذه الرسالة

[ابو جودي]

ممكن ارفاق المثال تبعك

 

عذرا الصورة صغيرة جدا وغير واضحه

[jjafferr]

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

 

عذرا بوحسين ، انا فقط اشتغلت على النموذج Form1 ، فيجب عليك عمل تغيير على الكود في النموذج الآخر ليتماشى مع متغيرات النموذج الآخر 🙂

 

جعفر

[بوحسين]

ما شاء الله 

مظبوط تمام 

ولكن باقي ملاحظة بسيط اسمح لي 

وهي ان يفتح ملف بي دي اف من صفحة معينة

اي مثلا لما يفتح يكون على الصفحة رقم 7

مثل ما هو في المرفق الاول

تقبل تحياتي 

[jjafferr]

في ١٥‏/٤‏/٢٠١٩ at 23:46, ابا جودى said:

ولكن واجهتنى مشكله انه لا يفتح ملفات الأكروبات بل يقوم بعمل دونلود لها

وهنا الحل:

https://helpx.adobe.com/acrobat/using/display-pdf-in-browser.html

 

 

1 ساعه مضت, بوحسين said:

وهي ان يفتح ملف بي دي اف من صفحة معينة

اي مثلا لما يفتح يكون على الصفحة رقم 7

 

وهنا الحل ، في كيفية التحكم بالواجهة ، والصفحة والتكبير ووو :

https://www.adobe.com/content/dam/acom/en/devnet/acrobat/pdfs/pdf_open_parameters.pdf

 

وعلى اساسه ، يصبح الكود:

Private Sub List1_Click()
    'تحديد مسار الملف
    StrFileParh = CurrentProject.Path & "\booksindex\"

' الانتقال إلى الصفحة المطلوبة
    Dim lngPageNo As Long
    lngPageNo = CLng(Mid(List1.Column(2), 1, 3))
        
    web.Navigate StrFileParh & Me.List1 & ".pdf" & "#page=" & lngPageNo
    web.Visible = True

End Sub

 

🙂

جعفر

[بوحسين]

وفيت وكفيت اخي جعفر 

بصراحة الأمور الآن اصبحت تمام التمام 

بارك الله فيك ونفع بعلمك 

والشكر موصول للاخ ابا جودي على 

اثرائه للموضوع