ادراج كان OLE

بوحسين · أبريل 3, 2019

السلام عليكم

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

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

اراج كائن.rar

بوحسين · أبريل 4, 2019

للرفع

بوحسين · أبريل 4, 2019

up

**محمد أبوعبدالله** · أبريل 4, 2019

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

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

acrord32.dll

acroiehelper.dll

acropdf.dll

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

C:\Windows\System32

تحياتي

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

**ابو ياسين المشولي** · أبريل 5, 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

أبو عبدالله الحلوانى · أبريل 5, 2019

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

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

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

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

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

C:\Windows\System32

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

تحياتي

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

بوحسين · أبريل 13, 2019

في ٤‏/٤‏/٢٠١٩ 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 بواسطه بوحسين

**ابو ياسين المشولي** · أبريل 13, 2019

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

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

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

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

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

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

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

**jjafferr** · أبريل 13, 2019

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

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

جعفر

**jjafferr** · أبريل 13, 2019

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

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

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

1032.Clipboard01.jpg.c292824c0fa3463d09e73b0be7774dc8.jpg

.

نستخدم 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

بوحسين · أبريل 15, 2019

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

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

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

بوحسين · أبريل 15, 2019

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

**jjafferr** · أبريل 15, 2019

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

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

🙂

جعفر

**ابو جودي** · أبريل 15, 2019

الان, jjafferr said:

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

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

🙂

جعفر

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

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

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

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

**jjafferr** · أبريل 15, 2019

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

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

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

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

جعفر

**ابو جودي** · أبريل 15, 2019

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

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

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

جعفر

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

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

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

بوحسين · أبريل 16, 2019

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

ward Form1

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

**ابو جودي** · أبريل 16, 2019

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

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

**jjafferr** · أبريل 16, 2019

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

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

جعفر

بوحسين · أبريل 17, 2019

ما شاء الله

مظبوط تمام

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

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

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

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

تقبل تحياتي

**jjafferr** · أبريل 17, 2019

في ١٥‏/٤‏/٢٠١٩ 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

🙂

جعفر

بوحسين · أبريل 18, 2019

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

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

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

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

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

تسجيل الدخول

ادراج كان OLE

الردود الموصى بها

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

من فضلك سجل دخول لتتمكن من التعليق

تصفح هذا الموضوع مؤخراً 0 اعضاء متواجدين الان

Important Information