figo82eg

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

جزاك الله عنا خير الجزاء استاذى الكريم @Moosakهذا هو المطلوب

هل يوجد حل من اساتذة المنتدى

للمساعدة

ارجو المساعدة ف حيث لدى مثال من استاذنا @Moosak يتم انشاء فولدرات للصور بناء على حقول بالنموذج يتم حفظ الصور بها وما اريده هو حذف الفولدرات المرتبطة بالنموذج فى حالة حذف السجل الخاص بها بنموذج ارشيف صادر ووارد مرفق مثال AttachFilesToDB.rar

للمساعده

ارجو الا تنزعجك منى استاذى واعذرنى لسهوى وخطأى لقد عدلت المثال فى المشاركة التالية وارفقة لحضرتك ومعه المثال الاخر الذى حاولت تطبيقه على مثالى ولم افلح test.rar ارشيف - Moosak.rar

شكرا استاذى لإهتمامك ولكن المثال الذى الذى ارفقته غير المثال الموجود بمشاركتى السابقة والمرفق معه مثال لما اريد

وجدت بالمنتدى مثال عسى أن يوضح لحضراتكم الفكرة حيث حاولت تطبيقها ولم استطيع على مثالى هذا مثالى للتطبيق عليه ومرفق معه ما وجدته بالمنتدى ارشيف - Moosak.rar test.rar

ارجو المساعدة

ارجو المساعدة فى تطبيق كود يتيح لى عند تحميل المرفقات الى برنامجى من خلال نموذج فرعى يتم نسخ صورة المرفق الى مسار الخطاب الرئيسى . وكذلك عند الضغط على زر سكانر فى النموذج الفرعى يتم سحب الصورة تلقائيا الى مسار الخطاب الرئيسى الذى تم انشائها. مرفق مثال ارشيف - Moosak.rar

بارك الله فيك استاذى بحاول اشتغل على النسخ الجديدة بالتوزاى مع شغلى الى ان اتعلم على النسخ الجديده. وفى انتظار تحديثك جعله الله فى ميزان حسناتك

بارك الله فيك استاذى الغالى وجعله الله فى ميزان حسناتك وزادك الله من فضله وعلمه .

انا عاوز مسار ملف pdf مش انا الى احدده عاوز المسار لانه متغير حسب حقول النموذج زى الكود ده . بمعنى مسار الملف يتم تحديده بناءا على الملفات الى انشائها البرنامج كما هو بمثال استاذنا @Moosak واريد ان يتم فتحها اذا كانت الملفات موجودة بنفس مسار حقل crn حيث يكون ملف pdf داخله بنفس رقم crn ومرفق مثال لما اريد ارشيف - Moosak.rar

المطلوب زر يفتح ملف pdf فى مسار الوارد او الصادر على اى مستعرض pdf بمجرد الصغط عليه . حيث ان ملف pdf موجود ومرقم برقم crn داخل مسار الوارد او الصادر . حاولت لهذا الكود ولكن لابد من من تحديد الفولدرات يدوى داخل الكود وهذا ما لا اريده اريد الكود يفتح الملف اذا كان مرقم بنفس رقم crn داخل مسار المستند الموجود بالنموذج

استزيد من علمكم اساتذتى الكبار فى تصحيح هذا الكود لمحاولة استكمال برنامجى بعد الإستفادة من مشاركتكم العظيمة Private Sub OpenFile_Click() Dim File_Path As String, File_Name As String, Name_Path As String File_Path = Application.CurrentProject.Path & "\وارد\" 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 ويتم تغير مسار فتح الملف بالمسار التالى Application.CurrentProject.Path & D & [Text10] & D & [نوع_الخطاب] & D & [Combo1] & D & [crn] & D)

@rockjone33بارك الله فيك اخى الكريم وزادك الله من فضله وعلمه

شكرا استاذى الكريم على اهتمامك وسعة وصدرك تنفيذ المطلوب فعلا ولكن اثقل عليك هل يمكن بعد فتح الملف من خلال اى مستعرض لملفات pdf بالغط على زر يتم انشائه بجزار الزر الذى قام بنسخ الملفات الى المسار المحدد

@Moosak @rockjone33 عند تنفيذ حل استاذى @Moosak فى برنامجى يتظهر لدى هذه الرسالة على الرغم من نجاحها فى المثال المرفق الذى تم تنفيذه

@Moosak اشكرك استاذى الكريم على سعة صدرك ولكن الجزء الاول الخاص بإنشاء الفولدرات تمام ولكن الجزء الثانى لما اريده هو ( فتح ملف بصيغة pdf موجود بنفس مسار الفولدرات التى تم انشائها من خلال الجزء الاول من الكود وليس عرضها فى نفس النموذج ) اريد ان يتم فتحها من خلال اى برنامج عرض ملفات pdf اذا كان ملف pdf محفوظ فى نفس المسار الذى انشائها واذا لم يكن موجود فى نفس المسار يتم نسخه الى المسار وفتحه.

ارجو من اساتذتى الكرام مساعدتى

ارجو المساعدة فى المشكلة التى تقابلنى حيث أقوم بحفظ المخاطبات على هيئة ملفات pdf دخل فولدرات متنوعة حسب الجهات الصادرة والواردة منها ويتم انشائها من خلال نموذج وما اريده هو عند الضغط على زر بالنموذج يتم فتح ملف pdf المرقم بنفس الرقم بالنموذج مرفق مثال لما اريد ارشيف.rar

اشكر جميع اساتذتى الكرام على مساهمتهم فى الوصول لأفضل حلول وتم بفضلكم الوصول لما اريد جعله الله فى ميزان حسناتكم

اشكركم جمعيا على الاهتمام ولكن اريد معرفة كيفية تفعيل مكتبة اوفيس ١٦ مع العلم انى اعمل على اوفيس ٢٠٠٣

شكرا اخى الكريم ولم تنفع مرفق مثال لتجربة عليه New Microsoft Office Access Application.zip