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

[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]

  في 6‏/9‏/2021 at 05:35, د.كاف يار said:

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

Expand  

 

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

 

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

[figo82eg]

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

New folder (2).rarFetching info...

[د.كاف يار]

تفضل التعديل

New folder (2).zipFetching info...

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

  في 5‏/9‏/2021 at 22:48, 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

 

Expand  

 

أهلا بك..

عدل الشفرة التي أشرت إليها لتصبح كالتالي

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]

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

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