ابو عبد الله العراقي قام بنشر فبراير 15, 2022 مشاركة قام بنشر فبراير 15, 2022 السلام عليكم ورحمة الله وبركاته الاخوة الاعزاء في منتدى اوفيسنا في الملف المرفق نموذج بسيط لربط بيانات الاكس بملفات pdf حيث قمت بعمل list box تحتوي على بيانات من استعلام ، المطلوب هو فتح ملف الـــ pdf المرتبط بالـــــ بهذه االبيانات الموجود في list box والذي موجود أي ملف الـ pdf موجود في بارتش معين في فلودر معين في الكمبيوتر ، وذلك عن طريق الضغط على السجلات الموجودة في الـــ list box ، يعني دبل كل على الاسم في الـــlist box يفتح ملف الـــpdf و جزاكم الله كل خير . pdf.rar رابط هذا التعليق شارك More sharing options...
ابو جودي قام بنشر فبراير 15, 2022 مشاركة قام بنشر فبراير 15, 2022 الحل الاول 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 1 رابط هذا التعليق شارك More sharing options...
ابو عبد الله العراقي قام بنشر فبراير 16, 2022 الكاتب مشاركة قام بنشر فبراير 16, 2022 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 💯 عاشت اخوي العزيز ممنون منك 🌹 في ميزان حسناتك ان شاء الله رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر فبراير 16, 2022 مشاركة قام بنشر فبراير 16, 2022 وعليكم السلام 🙂 بالاضافة الى فتح ملف pdf خارج الاكسس ، يمكننا فتح الملف داخل نموذج الاكسس ، ويكون اسرع في التحميل: . و جعفر 1 رابط هذا التعليق شارك More sharing options...
ابو جودي قام بنشر فبراير 16, 2022 مشاركة قام بنشر فبراير 16, 2022 5 ساعات مضت, jjafferr said: بالاضافة الى فتح ملف pdf خارج الاكسس ، يمكننا فتح الملف داخل نموذج الاكسس ، ويكون اسرع في التحميل: استاذى الجليل ومعلمى القدير و والدى الحبيب الاستاذ @jjafferr لقد فكرت بوضع الحل بتلك الالية ولكن ترددت لانه لابد من تنصيب الـ Acrobat Reader على الجهاز والا لن يتم استعراض الملف فبدلا من ذلك سوف يتم تحميل الملف رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر فبراير 16, 2022 مشاركة قام بنشر فبراير 16, 2022 4 ساعات مضت, ابو جودي said: لانه لابد من تنصيب الـ Acrobat Reader على الجهاز انا انزلت الملف من الرابط اعلاه ، ووضعت بعض ملفات pdf حسب الاسماء الموجودة في البرنامج ، واشتغلت الملفات 🙂 ولا يوجد عندي Acrobat Reader في الكمبيوتر 🙂 جعفر 1 رابط هذا التعليق شارك More sharing options...
ابو جودي قام بنشر فبراير 16, 2022 مشاركة قام بنشر فبراير 16, 2022 39 دقائق مضت, jjafferr said: ولا يوجد عندي Acrobat Reader في الكمبيوتر 🙂 هأعمل تصوير لحضرتك حالا من جهازى رابط هذا التعليق شارك More sharing options...
ابو جودي قام بنشر فبراير 16, 2022 مشاركة قام بنشر فبراير 16, 2022 هذه صورة من واقع التجربة وايضا تم وضع المرفق بالتعديل على طريقتكم استاذى الجليل ومعلمى القدير ووالدى الحبيب استاذ @jjafferr PDF.zip رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر فبراير 16, 2022 مشاركة قام بنشر فبراير 16, 2022 صحيح اني ما استعمل Adobe Acrobat Reader ، ولكني استخدم Foxit PDF Reader والظاهر انهم الاثنين يؤدون العمل ، ويسمحون بإظهار الملف في المتصفح في النموذج . جعفر 1 رابط هذا التعليق شارك More sharing options...
ابو عبد الله العراقي قام بنشر سبتمبر 3, 2022 الكاتب مشاركة قام بنشر سبتمبر 3, 2022 (معدل) الاخوة الاعزاء في منتدى اوفيسنا 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 استعمال <> من القائمة ، ثم وضع الكود في نافذته رابط هذا التعليق شارك More sharing options...
عمر ضاحى قام بنشر سبتمبر 3, 2022 مشاركة قام بنشر سبتمبر 3, 2022 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" رابط هذا التعليق شارك More sharing options...
ابو عبد الله العراقي قام بنشر سبتمبر 3, 2022 الكاتب مشاركة قام بنشر سبتمبر 3, 2022 🌹 عاشت ايدك يا استاذ 🌹 ممنون منك وجزاك الله كل خير رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.