jo_2010 قام بنشر منذ 22 ساعات قام بنشر منذ 22 ساعات السادة الخبراء الافاضل بعد التحية اعتذر لكم لكثرة طلباتى ولكن كرم اخلاقكم هو ما يدفعنى للتعلم والاستفادة من خبراتكم لى اكثر من طلب مدرجين بالصورة اليكم المرفق للتعديل علية LAB.rar
دروب مبرمج قام بنشر منذ 11 ساعات قام بنشر منذ 11 ساعات في البداية لا يجب حفظ المسار كامل في قاعدة البيانات و مع ذلك هذه ليست مشكلة سوف نقوم بالإعلان عن ثلاث متغييرات لغرض تخزين اسم المجلد و مسار الملف Dim strPath As String, fileName As String, sFile As String و هنا سنقوم بإستخلاص اسم المجلد لكل مسار في قاعدة البيانات strPath = DLookup("[Attachment_Path]", "[tbl_AttachmentList]", "[Attachment_NO]=" & MyList.Column(0)) و هنا سنقوم بإستخراج اسم الملف من المسار المخزن في قاعدة البيانات fileName = Right$(strPath, Len(strPath) - InStrRev(strPath, "\")) و الآن نقوم بجمع النتائج اعلاه في مسار واحد sFile = CurrentProject.Path & "\MY_Files\" & P_NAMES.Column(1) & "\" & fileName و الآن سنقوم بإضافة المسار الجديد للمستعرض [Forms]![Attacheds]![Show_Files]![MY_PDF].ControlSource = "=""" & sFile & """" و النتيجة تفضل التعديل LAB2.zip
jo_2010 قام بنشر منذ 52 دقائق الكاتب قام بنشر منذ 52 دقائق الخبير الفاضل دروب مبرمج شكرا لاهتمام حضرتك بمشكلتى حضرتك قمت باظهار الملفات فى المتصفح خالص الشكر ماذا عن باقى المطلوب اللى فى الصورة اود ان الف نظر حضرتك ان زر حذف المرفقات تعطل عن العمل ارجو المساعدة او تكرمت
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.