pdf في الاكسس فتح ملف

[ابو عبد الله العراقي]

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

الاخوة الاعزاء في منتدى اوفيسنا في الملف المرفق نموذج بسيط لربط بيانات الاكس بملفات pdf   حيث قمت بعمل list box  تحتوي على بيانات من استعلام ، المطلوب هو فتح ملف الـــ pdf  المرتبط بالـــــ بهذه االبيانات الموجود في list box  والذي موجود أي ملف الـ pdf  موجود في بارتش معين في فلودر معين في الكمبيوتر ، وذلك عن طريق الضغط على السجلات الموجودة في الـــ list box  ، يعني دبل كل على الاسم في الـــlist box   يفتح ملف الـــpdf  و جزاكم الله كل خير .

pdf.rar

[ابو جودي]

الحل الاول 

Application.FollowHyperlink CurrentProject.Path & "\" & List1.Column(1) & ".pdf"

 

الحل الثانى 

Dim OpnPdf As Variant
OpnPdf = Shell("explorer.exe " & CurrentProject.Path & "\" & List1.Column(1) & ".pdf", vbNormalFocus)

------------------------

لتلافى الخطأ فى حالة عدم وجود ملف الـ PDF 

اضافة الروتين الاتى 

Function IsFile(ByVal fName As String) As Boolean
    On Error Resume Next
    IsFile = ((GetAttr(fName) And 16) <> 16)
End Function

وفى حدث عند النقر على الـ ListBox

ضع الكود الاتى 

 Dim pdfPath As String
 pdfPath = CurrentProject.Path & "\" & List1.Column(1) & ".pdf"
 
 If IsFile(pdfPath) Then
  Dim OpnPdf As Variant
  OpnPdf = Shell("explorer.exe " & pdfPath, vbNormalFocus)
 Else
  MsgBox "File Not found "
 End If

وهذا ملفك بعد التعديل 

 

pdf.zip

[ابو عبد الله العراقي]

8 hours ago, ابو جودي said:

الحل الاول 

Application.FollowHyperlink CurrentProject.Path & "\" & List1.Column(1) & ".pdf"

 

الحل الثانى 

Dim OpnPdf As Variant
OpnPdf = Shell("explorer.exe " & CurrentProject.Path & "\" & List1.Column(1) & ".pdf", vbNormalFocus)

------------------------

لتلافى الخطأ فى حالة عدم وجود ملف الـ PDF 

اضافة الروتين الاتى 

Function IsFile(ByVal fName As String) As Boolean
    On Error Resume Next
    IsFile = ((GetAttr(fName) And 16) <> 16)
End Function

وفى حدث عند النقر على الـ ListBox

ضع الكود الاتى 

 Dim pdfPath As String
 pdfPath = CurrentProject.Path & "\" & List1.Column(1) & ".pdf"
 
 If IsFile(pdfPath) Then
  Dim OpnPdf As Variant
  OpnPdf = Shell("explorer.exe " & pdfPath, vbNormalFocus)
 Else
  MsgBox "File Not found "
 End If

وهذا ملفك بعد التعديل 

 

pdf.zipUnavailable

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

💯 عاشت اخوي العزيز ممنون منك وهو المطلوب 🌹

في ميزان حسناتك ان شاء الله 

8 hours ago, ابو جودي said:

الحل الاول 

Application.FollowHyperlink CurrentProject.Path & "\" & List1.Column(1) & ".pdf"

 

الحل الثانى 

Dim OpnPdf As Variant
OpnPdf = Shell("explorer.exe " & CurrentProject.Path & "\" & List1.Column(1) & ".pdf", vbNormalFocus)

------------------------

لتلافى الخطأ فى حالة عدم وجود ملف الـ PDF 

اضافة الروتين الاتى 

Function IsFile(ByVal fName As String) As Boolean
    On Error Resume Next
    IsFile = ((GetAttr(fName) And 16) <> 16)
End Function

وفى حدث عند النقر على الـ ListBox

ضع الكود الاتى 

 Dim pdfPath As String
 pdfPath = CurrentProject.Path & "\" & List1.Column(1) & ".pdf"
 
 If IsFile(pdfPath) Then
  Dim OpnPdf As Variant
  OpnPdf = Shell("explorer.exe " & pdfPath, vbNormalFocus)
 Else
  MsgBox "File Not found "
 End If

وهذا ملفك بعد التعديل 

 

pdf.zipUnavailable

💯 عاشت اخوي العزيز ممنون منك 🌹

في ميزان حسناتك ان شاء الله 

[jjafferr]

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

 

بالاضافة الى فتح ملف pdf خارج الاكسس ،

يمكننا فتح الملف داخل نموذج الاكسس ، ويكون اسرع في التحميل:

.

و

 

جعفر

[ابو جودي]

5 ساعات مضت, jjafferr said:

بالاضافة الى فتح ملف pdf خارج الاكسس ،

يمكننا فتح الملف داخل نموذج الاكسس ، ويكون اسرع في التحميل:

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

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

[jjafferr]

4 ساعات مضت, ابو جودي said:

لانه لابد من تنصيب الـ Acrobat Reader  على الجهاز

انا انزلت الملف من الرابط اعلاه ، ووضعت بعض ملفات pdf حسب الاسماء الموجودة في البرنامج ، واشتغلت الملفات 🙂

ولا يوجد عندي Acrobat Reader في الكمبيوتر 🙂

 

جعفر

[ابو جودي]

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

ولا يوجد عندي Acrobat Reader في الكمبيوتر 🙂

 

هأعمل تصوير لحضرتك حالا من جهازى 

[ابو جودي]

هذه صورة من واقع التجربة 

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

 

PDF.zip

[jjafferr]

صحيح اني ما استعمل Adobe Acrobat Reader ، ولكني استخدم Foxit PDF Reader 

والظاهر انهم الاثنين يؤدون العمل ، ويسمحون بإظهار الملف في المتصفح في النموذج

.

جعفر

[ابو عبد الله العراقي]

الاخوة الاعزاء في منتدى اوفيسنا 

pdf اريد تعديل كود فتح ملفات الـــــ 

يعني اذا كانت الملفات خارج ملف الاكسس بدون فولدر يكون الكود الاتي 

Dim pdfPath As String
 pdfPath = CurrentProject.Path & "\" & List1.Column(1) & ".pdf"
 
 If IsFile(pdfPath) Then
  Dim OpnPdf As Variant
  OpnPdf = Shell("explorer.exe " & pdfPath, vbNormalFocus)
 Else
  MsgBox "File Not found "
 End If

 كيف يكون الكود ؟؟   reseacher في ملف مستقل مثلاً اسم الفولدر  pdfأما اذا كانت ملفات الــــ

 

 

تم تعديل سبتمبر 3, 2022 بواسطه jjafferr
استعمال <> من القائمة ، ثم وضع الكود في نافذته

[عمر ضاحى]

3 ساعات مضت, ابو عبد الله العراقي said:

الاخوة الاعزاء في منتدى اوفيسنا 

pdf اريد تعديل كود فتح ملفات الـــــ 

يعني اذا كانت الملفات خارج ملف الاكسس بدون فولدر يكون الكود الاتي 

Dim pdfPath As String
 pdfPath = CurrentProject.Path & "\" & List1.Column(1) & ".pdf"
 
 If IsFile(pdfPath) Then
  Dim OpnPdf As Variant
  OpnPdf = Shell("explorer.exe " & pdfPath, vbNormalFocus)
 Else
  MsgBox "File Not found "
 End If

 كيف يكون الكود ؟؟   reseacher في ملف مستقل مثلاً اسم الفولدر  pdfأما اذا كانت ملفات الــــ

 

 

اذا كان ملفات ال PDF داخل مجلد اسمه PDF كل ما عليك هتضيف اسم المجلد فى مسار الملف 

pdfPath = CurrentProject.Path & "\" & "PDF" & "\" & List1.Column(1) & ".pdf"

 

[ابو عبد الله العراقي]

🌹 عاشت ايدك يا استاذ 🌹

ممنون منك وجزاك الله كل خير