figo82eg قام بنشر سبتمبر 2, 2021 مشاركة قام بنشر سبتمبر 2, 2021 (معدل) ارجو المساعدة فى التعديل على الكود المرفق حيث اقوم بالضغط على حقل دبل كليك يظهر لدى الملف المحفوظ فى الفولدر المحدد بالكود فى نفس مسار البرنامج ( 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 وضع الكود بالطريقة الصحيحة بإستخدام <> من القائمة رابط هذا التعليق شارك More sharing options...
أفضل إجابة jjafferr قام بنشر سبتمبر 3, 2021 أفضل إجابة مشاركة قام بنشر سبتمبر 3, 2021 وعليكم السلام 🙂 استعمل الكود مرتين: 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 جعفر 1 رابط هذا التعليق شارك More sharing options...
figo82eg قام بنشر سبتمبر 5, 2021 الكاتب مشاركة قام بنشر سبتمبر 5, 2021 (معدل) بارك الله فيك اخى الكريم هو المطلوب فعلا تم تعديل سبتمبر 5, 2021 بواسطه figo82eg رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان