تعديل على احد الأكواد

[figo82eg]

ارجو المساعدة  فى التعديل على الكود المرفق حيث اقوم بالضغط على حقل دبل كليك يظهر لدى الملف المحفوظ فى الفولدر المحدد بالكود 

فى نفس مسار البرنامج ( NEW FOLDER  ) ولكن المشكلة أنى أريد عند الضغط دبل كليك يقوم بالبحث فى أكثر من فولدر وليكن أسمه

فهل يوجد تعديل للكود ليبحث فى المسارين فى وقت واحد

 

Private Sub CRN_DblClick(Cancel As Integer)

File_Path = Application.CurrentProject.Path & "\CONTACT\"

File_Path = Application.CurrentProject.Path & "\NEW FOLDER\"

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

 

تم تعديل سبتمبر 3, 2021 بواسطه jjafferr
وضع الكود بالطريقة الصحيحة بإستخدام <> من القائمة

[jjafferr]

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

 

استعمل الكود مرتين:

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
  

  File_Path = Application.CurrentProject.Path & "\NEW FOLDER\"

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

 

جعفر

[figo82eg]

بارك الله فيك اخى الكريم هو المطلوب فعلا

  

 

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