figo82eg

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

ارجو المساعدة فى تطبيق كود يتيح لى عند تحميل المرفقات الى برنامجى من خلال نموذج فرعى يتم نسخ صورة المرفق الى مسار الخطاب الرئيسى . وكذلك عند الضغط على زر سكانر فى النموذج الفرعى يتم سحب الصورة تلقائيا الى مسار الخطاب الرئيسى الذى تم انشائها. مرفق مثال ارشيف - 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

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

ارجو المساعدة فى معرفة المشكلة بالكود التالى حيث أن الكود يقوم بتنفيذ نصف المطلوب فقط بمعنى يقوم بإنشاء فولدرات برقم 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