figo82eg

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

مرفق مثال لما أريد 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

بارك الله فيك اخى الكريم هو المطلوب فعلا

ارجو المساعدة فى التعديل على الكود المرفق حيث اقوم بالضغط على حقل دبل كليك يظهر لدى الملف المحفوظ فى الفولدر المحدد بالكود فى نفس مسار البرنامج ( NEW FOLDER ) ولكن المشكلة أنى أريد عند الضغط دبل كليك يقوم بالبحث فى أكثر من فولدر وليكن أسمه فهل يوجد تعديل للكود ليبحث فى المسارين فى وقت واحد Private Sub CRN_DblClick(Cancel As Integer) File_Path = Application.CurrentProject.Path & "\CONTACT\" File_Path = Application.CurrentProject.Path & "\NEW FOLDER\" 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

بارك الله فيك أخى الكريم هو المطلوب فعلاجزالك الله عنا خير إن شاء الله

الرقم المدخل ثابت حيث ان الحقل الرئيسى وهو حقل ١٦ رقم والحقل المراد التعديل اليه ثابت ايضا ١٣ رقم بمعنى الرقم الذى سيتم كتابته هو : ٠٤٠١٢٥٢٥٢٦٢٧٢٨٠٠ :سيتحول بمجرد الخروج من الحقل ليكتب فى الحقل المطلوب التحديث به الى ٠٤٠١٢٥٢٦٢٧٠٢٨

فعلا اخى الكريم الأكسس عملها لو حضرتك ضغط على الماكرو الموجود ستجد أنه قام بتشغيل 4 إستعلامات الإلحاق ونتج عنه المطلوب فعلا ولكن ما اريده هو تنفيذ الإستعلامات دون الحاجة الى الضغط على الماكرو بمجرد الإنتهاء من كتابة الكود المطاوب يتحول الى التعديل الذى اريده تم تحديث المطلوب ليكون واضح أكثر تعديل.mdb

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

ارجو المساعدة فى تنفيذ فكرتى حيث أريد تشغيل ماكروا تلقائى بعد الإنتقال من حقل بالنموذج الى حقل جديد بنفس النموذج دون التعديل على الحقل الأصلى ومرفق مثال لما اريد للمساعدة تعديل.mdb

هل يمكن المثال السابق بصيغة ٢٠٠٣

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

هو فعلاً ما اريده ولكن أسماء الملفات تظهر بإمتدادها فهل يوجد امكانية للتنفيذ دون ظهور امتداد الملفات الموجودة بالفولدر بمعنى إسم الملف فقط دون إمتداده

اشكرك اخى الكريم على اهتمامك وردك وارفق اليك ما اريده حيث ان مشكلة الملف السابق انه لابد ان يكون الجدول به ارقام الملفات سابقة والمشكلة لدى ان الفولدر بها الاف من ملف واريده سحب اسمائها تلقائى داخل الجدول emp5.rar

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

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

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

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

أشكركم جميعاَ اساتذتى الكرام على إهتمامكم طبقت المثال أستاذى محمد أبو عبدالله ولكن ظهر مشكلة لدى مرفق مثال لما قد حاولت تنفيذه Desktop.rar

المشكلة اخى الكريم ان الملف المرقم المراد نقله مرتبط بجدول أخر له نفس الترقيم فلا يجوز تغير أسمه إلا بنفس الأسلوب الذى ذكرته مثل ١_١ و ١_٢ و ٢_١ و ٢_٢وهذا

قام الأخ الكريم @أبو ابراهيم الغامدى بتعديل هذا الكود المرفق والخاص بنقل ملف من مكان الى أخر Sub CopyFile() Dim rs As DAO.Recordset Dim fso, sSourceFile, sDestinationFile Set fso = CreateObject("Scripting.FileSystemObject") Set rs = CurrentDb.OpenRecordset("SELECT crn FROM BASIC_DATE") If rs.RecordCount = 0 Then Exit Sub End If rs.MoveFirst Do Until rs.EOF sSourceFile = Application.CurrentProject.Path & "\CONTACT\" & rs!crn & ".pdf" sDestinationFile = Application.CurrentProject.Path & "\CONTACT\old\" '-- تحقق من أن الملف موجود قبل إجراء عملية النسخ If fso.FileExists(sSourceFile) Then fso.CopyFile sSourceFile, sDestinationFile, True fso.DeleteFile sSourceFile End If rs.MoveNext Loop End Sub ولكن فى حالة وجود ملف بنفس الإسم فى الفولدر المنقول اليه يتم حذف الملف الموجود هل فى امكانية لنقل الملف مع وضع إسم أخر له مثال : الملف المراد نقله أسمه 1 اريد عند وجود ملف بنفس الإسم فى فولدر أولد يتم تسميته 1_1 وعند وجود ملف إسمه 1_1 يتم تمسه الملف المنقول الجديد 1_2 وهكذا

ارجو المساعدة من الأعضاء الكرام

اشكرك اخى ابو ابراهيم على ردك واعذرنى لتأخرى فى الرد على مشاركتك نظرا لضعف النت لدى الكود السابق أتم حل جزء الأول من مشكلتى جزاك الله عنى خيراَ ولكن فى حالة وجود ملف بنفس الإسم فى الفولدر المنقول اليه يتم حذف الملف الموجود هل فى امكانية لنقل الملف مع وضع إسم أخر له مثال : الملف المراد نقله أسمه 1 اريد عند وجود ملف بنفس الإسم فى فولدر أولد يتم تمسته 1_1 وعند وجود ملف إسمه 1_1 يتم تمسه الملف المنقول الجديد 1_2 وهكذا

ارجو المساعدة فى تعديل أحد الأكواد التى أحاول إستخدامها : عند وضعها فى حدث ضغط على زر تظهر الرسالة التاليه Dim rs As DAO.Recordset Dim fso Set fso = VBA.CreateObject("Scripting.FileSystemObject") Set rs = CurrentDb.OpenRecordset("SELECT crn FROM BASIC_DATE") If Not (rs.EOF And rs.BOF) Then rs.MoveFirst Do Until rs.EOF = True sSourceFile = Application.CurrentProject.Path & "\CONTACT\" & rs!crn & ".pdf" sDestinationFile = Application.CurrentProject.Path & "\CONTACT\old\" fso.CopyFile sSourceFile, sDestinationFile, True fso.DeleteFile sSourceFile rs.MoveNext Loop End If