figo82eg

استزيد من علمكم اساتذتى الكبار فى تصحيح هذا الكود لمحاولة استكمال برنامجى بعد الإستفادة من مشاركتكم العظيمة 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

حذفتها ولكن نفس المشكلة الكود ينفذ الجزء الاول فقط

ارجو المساعدة فى معرفة المشكلة بالكود التالى حيث أن الكود يقوم بتنفيذ نصف المطلوب فقط بمعنى يقوم بإنشاء فولدرات برقم crn عند اختيار من الكومبو 1 فقط ولكن عند الاختيار من الكومبو 2 لا يتم انشاء اى فولدر Private Sub crn_AfterUpdate() On Error Resume Next If Dir(CurrentProject.Path & "/" & "ارشيف" & "/" & "/وارد" & "/" & Me.[نوع_الخطاب] & "/" & "/" & Me.Combo1 & "/" & Me.crn, vbDirectory) <> "" Then Else MkDir CurrentProject.Path & "/" & "ارشيف" & "/" & "/وارد" & "/" & Me.[نوع_الخطاب] & "/" & "/" & Me.Combo1 & "/" & Me.crn End If End If Dir(CurrentProject.Path & "/" & "ارشيف" & "/" & "/وارد" & "/" & Me.[نوع_الخطاب] & "/" & "/" & Me.Combo2 & "/" & Me.crn, vbDirectory) <> "" Then Else MkDir CurrentProject.Path & "/" & "ارشيف" & "/" & "/وارد" & "/" & Me.[نوع_الخطاب] & "/" & "/" & Me.Combo2 & "/" & Me.crn End If End End Sub

بارك الله فيك استاذى الكريم وجعله الله فى ميزان حسناتك هو المطلوب فعلا

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

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

أرجو المساعده منكم أخوتى الكرام : ما اريده هو عند إضافة صورة من خلال الماسح الضوئى يتم حفظ الصورة فى نفس المسار الموضح بالشكل المقابل وبنفس الترتيب الفولدرات التى قام البرنامج بإنشائها تلقائى ويكون الحفظ بنفس رقم crn مرفق مثال PIC.zip

@د.كاف يارممكن أستاذى الكريم الملف بصيغة 2003

بارك الله فيك اخى الكريم

ممكن الملف بصيغة 2003

أشكرك اخى الكريم ممكن تفسير Me.Combo28.Column(1) ماهو Column(1)

أشكرك اخى الكريم على المساعدة وجعله الله فى ميزان حسناتك ولكن هل استطيع طلب مساعدة أخر حيث اريد انشاء فولدرات بناء على اختيار من لستة متغيرة وليس ثابتة ومرفق مثال New Microsoft Office Access Application.zip

ارجو المساعدة فى حل هذه المشكلة حيث أريد إنشاء فولدرات بناء على حقول معينة فى نموذج أرشيف صادر ووارد ومرفق مثال New Microsoft Office Access Application (2).zip

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

شكرا اخى الكريم على اهتمامك ومساعدتك ولكن عند علق النموذج وفتحه مرة أخرى يتم فتح الحقول التى تم قفلها من قبل فهل من حل

ارجو المساعدة فى المثال الأتى حيث أريد غلق حقل فى نموذج بناء على بيانات يتم كتابتها فى حقل أخر بنفس النموذج ومرفق مثال للتوضيح New Microsoft Office Access Application.zip