figo82eg قام بنشر سبتمبر 5, 2021 مشاركة قام بنشر سبتمبر 5, 2021 (معدل) ارجو المساعدة فى تنفيذ هذه الفكره من حيث التعديل على هذا الكود حيث لدى ملفات محفوظة بصيغة بى دي اف لمجموعة من العملاء وكل عميل ممكن ان يظهر له أكثر من ملف محفوظ بنفس الصيغة مثال الملفات المحفوظ لدى أسمه : حسام حسام ( 2 ) حسام ( 3 ) ما اريده هو عند الضغط على الحقل دبل كليك يفتح جميع ملفات حسام وليس ملف حسام فقط Private Sub CRN_DblClick(Cancel As Integer) File_Path = Application.CurrentProject.Path & "\CONTACT\" File_Name = Me.crn & ".pdf" Name_Path = File_Path & File_Name If Dir(Name_Path) <> "" Then Application.FollowHyperlink Name_Path Else MsgBox "المستندات غير محفوظة" End If End Sub تم تعديل سبتمبر 6, 2021 بواسطه figo82eg رابط هذا التعليق شارك More sharing options...
د.كاف يار قام بنشر سبتمبر 6, 2021 مشاركة قام بنشر سبتمبر 6, 2021 هل اسماء الملفات موجودة في جدول ؟؟ رابط هذا التعليق شارك More sharing options...
figo82eg قام بنشر سبتمبر 6, 2021 الكاتب مشاركة قام بنشر سبتمبر 6, 2021 (معدل) 4 hours ago, د.كاف يار said: هل اسماء الملفات موجودة في جدول ؟؟ الملفات محفوظة داخل فولدر مع البرنامج اسمه كونتاكت كما هو موضح بالكود المرفق تم تعديل سبتمبر 6, 2021 بواسطه figo82eg رابط هذا التعليق شارك More sharing options...
figo82eg قام بنشر سبتمبر 6, 2021 الكاتب مشاركة قام بنشر سبتمبر 6, 2021 مرفق مثال لما أريد New folder (2).rar رابط هذا التعليق شارك More sharing options...
أفضل إجابة د.كاف يار قام بنشر سبتمبر 6, 2021 أفضل إجابة مشاركة قام بنشر سبتمبر 6, 2021 تفضل التعديل New folder (2).zip 2 1 رابط هذا التعليق شارك More sharing options...
أبو إبراهيم الغامدي قام بنشر سبتمبر 6, 2021 مشاركة قام بنشر سبتمبر 6, 2021 17 ساعات مضت, figo82eg said: ارجو المساعدة فى تنفيذ هذه الفكره من حيث التعديل على هذا الكود حيث لدى ملفات محفوظة بصيغة بى دي اف لمجموعة من العملاء وكل عميل ممكن ان يظهر له أكثر من ملف محفوظ بنفس الصيغة مثال الملفات المحفوظ لدى أسمه : حسام حسام ( 2 ) حسام ( 3 ) ما اريده هو عند الضغط على الحقل دبل كليك يفتح جميع ملفات حسام وليس ملف حسام فقط Private Sub CRN_DblClick(Cancel As Integer) File_Path = Application.CurrentProject.Path & "\CONTACT\" File_Name = Me.crn & ".pdf" Name_Path = File_Path & File_Name If Dir(Name_Path) <> "" Then Application.FollowHyperlink Name_Path Else MsgBox "المستندات غير محفوظة" End If End Sub أهلا بك.. عدل الشفرة التي أشرت إليها لتصبح كالتالي Private Sub crn_DblClick(Cancel As Integer) Dim File_Path As String, File_Name As String, Name_Path As String File_Path = Application.CurrentProject.Path & "\CONTACT\" File_Name = Dir(File_Path & Me.crn & "*.pdf") If File_Name = "" Then MsgBox "لا توجد مستندات محفوظة" Exit Sub End If While File_Name <> "" Name_Path = File_Path & File_Name Application.FollowHyperlink Name_Path File_Name = Dir() Wend End Sub النجمة في سطر المتغير File_Name تعود بأسماء جميع الملفات التي في بدايتها ذات الرقم. راجع ملف التعليمات لمزيد من التوضح حول التابع Dir 3 رابط هذا التعليق شارك More sharing options...
figo82eg قام بنشر سبتمبر 6, 2021 الكاتب مشاركة قام بنشر سبتمبر 6, 2021 بارك الله فيكم أساتذتى الكرام @د.كاف يار@أبو إبراهيم الغامدي على تنوع الإجابات والحلول وهذا ما تعودنا عليه فى هذا المنتدى العظيم دائماً جزاكم الله عنا كل خير وجعله فى ميزان حسناتكم رابط هذا التعليق شارك 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.