ازهر عبد العزيز

زادك الله علما وعافية

صحيح استاذ حاولت تغير اسم الموضوع الى (التعامل مع المجلدات في اكسس) لكني لم استطيع ارجو من ادرارة المنتدى تغييرة ليكون مرجع مفيد لمن يبحث عن موضوع مشابة

الاستاذ @Foksh , @محمد احمد لطفى , @kkhalifa1960 طلب اخير او قبل الاخير هل يوجد كود لحذف الفلولدر الذي يتم انشائة اي كود تحت زر لحذف الفولد بحسب اسم الكتاب الموجود في حقل BookName

جدا صحيح استاذ لكن المشكلة في رسالة التنبية من اكسس التي لايمكن تغيررها

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

تمام استاذ لمشكلة عندي انتم وضعتم MkDir CurrentProject.Path & "\Libraries\Library1\BOOKS\" & FolderA غيرتة الى MkDir CurrentProject.Path & "\Library1\BOOKS\" & FolderA الان تمام الاستاذ @محمد احمد لطفى الاستاذ @Foksh تعجز الكلمات عن الشكر لكن طلب اخر ارجو ان يتسع لي احتاج كو تحت زر لفتح هذا الفولدر الذي بتم انشائة

اسف استاذ لم يعمل لا اعرف السبب هل قمت بتجربتة

لم يعمل الكود عندي @Foksh ارجو حل المشكلة

ظهرت لي هذة المشكلة

ما شاء الله عليك اخي احسنت زادك الله علما وعافية طلب اخر يا اخي القلولدرات Libraries , Library1 , BOOKS دائما ستكون موجودة بجانب القاعدة لا احتاج الى التاكد من وجودهن ممكن اختصار الكود الاخير لو تفضلت بحسب المطلوب

اتعبتك يااخي لكن ممكن شرح لهذا الكود If Len(Dir(FolderA, vbDirectory)) = 0 Then MkDir CurrentProject.Path & "\" & FolderA

جزاك الله كل خير اخي ماذا لو تم نغير المسار بالكامل مستقبلا C:\Libraries\Library1\BOOKS الى D:\Libraries\Library1\BOOKS هل هناك طريقة لجعل الكود ياخذ المسار بحسب وجود قاعدة البيانات

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

If DCount("*", "ÇáØÇáÈ", "ÇÓã_ÇáØÇáÈ = '" & Me.xxx & "'") <> 0 Then Call Undo MsgBox "ÇÓã ÇáßÊÇÈ ãæÌæÏ ÓÇÈÞÇ" DoCmd.CancelEvent If DCount("*", "ÇáØÇáÈ", "ÇÓã_ÇáØÇáÈ = '" & Me.xxx & "'") <> 0 Then Call Undo MsgBox "ÇÓã ÇáßÊÇÈ ãæÌæÏ ÓÇÈÞÇ" DoCmd.CancelEvent منع تكرار الاسم.accdb