figo82eg

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

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

شكرا اخى الكريم ولم تنفع مرفق مثال لتجربة عليه 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

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

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

بارك الله فيكم أساتذتى الكرام @د.كاف يار@أبو إبراهيم الغامدي على تنوع الإجابات والحلول وهذا ما تعودنا عليه فى هذا المنتدى العظيم دائماً جزاكم الله عنا كل خير وجعله فى ميزان حسناتكم

مرفق مثال لما أريد New folder (2).rar

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

ارجو المساعدة فى تنفيذ هذه الفكره من حيث التعديل على هذا الكود حيث لدى ملفات محفوظة بصيغة بى دي اف لمجموعة من العملاء وكل عميل ممكن ان يظهر له أكثر من ملف محفوظ بنفس الصيغة مثال الملفات المحفوظ لدى أسمه : حسام حسام ( 2 ) حسام ( 3 ) ما اريده هو عند الضغط على الحقل دبل كليك يفتح جميع ملفات حسام وليس ملف حسام فقط Private Sub CRN_DblClick(Cancel As Integer) File_Path = Application.CurrentProject.Path & "\CONTACT\" File_Name = Me.crn & ".pdf" Name_Path = File_Path & File_Name If Dir(Name_Path) <> "" Then Application.FollowHyperlink Name_Path Else MsgBox "المستندات غير محفوظة" End If End Sub