figo82eg

@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

لدى نموذج به خانة رقم وأريد عند ادخال الرقم مكرر تظهر رسالة بأن الرقم مكرر وإستخدم الكود التالى ولكن عند وضع القاعدة على سيرفر تكون قاعدة البيانات ثقيلة جدا فارجو المساعدة فى تعديل الكود Private Sub crn_BeforeUpdate(Cancel As Integer) WriteAuditUpdate txtTableName, Me.crn, "crn", Me.crn.OldValue, Me.crn.Value If Not IsNull(DLookup("[crn]", "BASIC_DATE", "[crn]= '" & Me![crn] & "'")) Then MsgBox "الرقم" & Me![crn] & " سبق إدخاله! يرجى إدخال رقم أخر.", vbOKOnly, "الرقم مستخدم" DoCmd.CancelEvent End If End Sub

هل يمكن ان تكون هذه الواجهات بصيغة ٢٠٠٣ لأن برنامجى مصمم بأكسس ٢٠٠٣

وانا أيضا انضم اليكم بتقديم الشكر والتقدير والاحترام للأستاذ الكريم د.كاف يار الله يحفظه ويحميه من كل شر وبلاء اللهم أمين يارب العالمين