تعديل على أحد الأكواد لفتح اكثر من ملف

[figo82eg]

ارجو المساعدة فى تنفيذ هذه الفكره من حيث التعديل على هذا الكود حيث لدى ملفات محفوظة بصيغة بى دي اف لمجموعة من العملاء

وكل عميل ممكن ان يظهر له أكثر من ملف محفوظ بنفس الصيغة

مثال الملفات المحفوظ لدى أسمه : حسام

حسام ( 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

[د.كاف يار]

هل اسماء الملفات موجودة في جدول ؟؟

[figo82eg]

4 hours ago, د.كاف يار said:

هل اسماء الملفات موجودة في جدول ؟؟

 

الملفات محفوظة داخل فولدر مع البرنامج اسمه كونتاكت كما هو موضح بالكود المرفق

 

تم تعديل سبتمبر 6, 2021 بواسطه figo82eg

[figo82eg]

مرفق مثال لما أريد

New folder (2).rar

[د.كاف يار]

تفضل التعديل

New folder (2).zip

[أبو إبراهيم الغامدي]

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

[figo82eg]

بارك الله فيكم أساتذتى الكرام @د.كاف يار@أبو إبراهيم الغامدي على تنوع الإجابات والحلول وهذا ما تعودنا عليه فى هذا المنتدى العظيم دائماً

جزاكم الله عنا كل خير وجعله فى ميزان حسناتكم