figo82eg قام بنشر أغسطس 4 مشاركة قام بنشر أغسطس 4 (معدل) ارجو المساعدة حيث لدى كود فتح مستندات PDF داحل فولدر بمسارقاعدة البيانات الكود يعمل بشكل ممتاز عدا جزئية خطيرة بالنسبة لى وهى : عند يكون الحقل المربوط به زر فتح المستند خالى من البيانات يقوم الكود بفتح جميع المستندات داخل الفولدر وبالتالى لدى الاف المستندات مخزنة داخل الفولدر مما يجعل الجهاز يهنج الكود كالتالى : ارجو التعديل عليه للتغلب على هذه المشكلة Private Sub OpenFiles_Click() 'Dim File_Path As String, File_Name As String, Name_Path As String File_Path = Application.CurrentProject.path & "\Edit\" File_Name = Dir(File_Path & Me.رقم_الخطاب & "*.pdf") If File_Name = "" Then DoCmd.OpenForm "sms1", acMaximize Exit Sub End If While File_Name <> "" Name_Path = File_Path & File_Name Application.FollowHyperlink Name_Path File_Name = Dir() Wend End Sub تم تعديل أغسطس 4 بواسطه figo82eg رابط هذا التعليق شارك More sharing options...
أفضل إجابة Foksh قام بنشر أغسطس 4 أفضل إجابة مشاركة قام بنشر أغسطس 4 تفضل اخي الكريم @figo82eg هذا التعديل يتأكد مما اذا كان هناك ملف بنفس رقم الخطاب الحالي أو لا . وأيضاً من أن مربع النص "رقم الخطاب" غير فارغ . Private Sub OpenFiles_Click() If IsNull(Me.رقم_الخطاب) Or Me.رقم_الخطاب = "" Then MsgBox "الرجاء إدخال رقم الخطاب.", vbExclamation, "خطأ" Exit Sub End If Dim File_Path As String, File_Name As String, Name_Path As String File_Path = Application.CurrentProject.path & "\Edit\" File_Name = Dir(File_Path & Me.رقم_الخطاب & "*.pdf") If File_Name = "" Then MsgBox "ملف الخطاب غير موجود.", vbInformation, "تنبيه" DoCmd.OpenForm "sms1", acMaximize Exit Sub End If While File_Name <> "" Name_Path = File_Path & File_Name Application.FollowHyperlink Name_Path File_Name = Dir() Wend End Sub 1 رابط هذا التعليق شارك More sharing options...
figo82eg قام بنشر أغسطس 5 الكاتب مشاركة قام بنشر أغسطس 5 شكراُ استاذى الكريم هو المطلوب 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان