صالح حمادي

السلام عليكم و رحمة الله تعالى و بركاته هل يمكن إنشاء ماكرو لضغط و صيانة قاعدة بيانات كيف يمكن إنشاء كود لضغط و صيانة قاعدة بيانات من داخل قاعدة بيانات أخرى

شكرا جزيلا أستاذي القدير جعفر لقد تمت الفائدة بارك الله لك و عليك و جعل مثواك الجنة إن شاء الله أنت و جميع أعضاء هذا المنتدى الرائع

السلام عليكم و رحمة الله تعالى وبركاته أخوتي و أساتذتي الكرام حياكم الله. هذا الكود يقوم بالإستكشاف عن هل الملف موجود أم لا في المسار المحدد و يطلع رسالة في حالة وجودة و في حالة عدم و جوده يقوم بإنشاءه Dim curPath As String curPath = "f:\1997" If Dir(curPath) = "" Then MkDir (curPath) Else MsgBox "المجلد موجود مسبقا" End If لكن المشكلة أن هذا الكود يقوم بتنفيذ الأمر الأول فقط إنشاء مجلد و عندما جربته على ملفات أخرى (xlxs) مثلا يعمل بشكل جيد Kill (curPath) و هذا الكود يقوم بحذف المجلد لكنه لم يشتغل معي أنا في إنتظار مساعدتكم جزاكم الله خير الجزاء انشاء مجلد و حذفه.rar

بالشفاء و الهناء

شكرا أستاذ جعفر إن شاء الله يكون وصل الغذاء. بالتوفيق

ما شاء الله عليك يا أستاذنا جعفر على سرعة الرد جزاك الله و ماذا عن التراجع الخاص بتغيير لون النموذج

السلام عليكم و رحمة الله تعالى و بركاته أخوتي الكرام حياكم الله من المعروف أن الكود me.undo يقوم بالتراجع عن تسجيل البيانات في النموذج. أنا ما أبحث عنه هو : هل بالإمكان وضع كود يقوم بالتراجع عن حدث معين في الفورم مثل تلوين النموذج أو أحد العناصر أو الكتابة في مربع نص غير منظم جزاكم الله عنا كل خير

و فيك بارك الله

تفضل التعديل المطلوب Conger.rar

فكرة ممتازة أستاذ جعفر

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

السلام عليكم و رحمة الله تعالى و بركاته. تفضل أخي. الترقيم التلقائي.rar

السلام عليكم و رحمة الله تعالى و بركاته: هذا كود المعاينة DoCmd.OpenReport "اسم التقرير", acViewPreview و هذا كود الطباعة DoCmd.OpenReport "اسم التقرير", acViewNormal

ما شاء الله عليك أستاذ جعفر إذا حضر الماء غاب التيمم فكرة ممتازة جدا جدا و خاصة فكرة إستعمال الدالة dlookup التي أشرت إليها جزاك الله عنا كل خير أستاذي الكريم جعفر

هل نقلت الكود كاملا

شكرا بارك الله فيك

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

لقد تمت الإجابة على طلبك

السلام عليكم تفضل التعديل المطلوب Fiamlies.rar

العفو أخي

السلام عليكم و رحمة الله تعالى و بركاته تفضل التعديل المطلوب Listbox.rar

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

السلام عليكم و رحمة الله تعالى و بركاته أستاذنا جعفر مرحبا بك. لقد توصلت إلى حل نوعا ما يؤدي الغرض المطلوب. أنا أريد أن أجعل شاشة التقرير في الأكسس مثل شاشة كريستال ريبورت. مثل هذا الشكل: لقد وجدت أمثلة في بعض المنتديات و أجريت عليها تغييرا طفيفا. وغيرت خاصية مشروط إلى نعم كما ذكر الأستاذ أبا جودي. فأصبح شريط الطباعة يظهر و يختفي مع التقرير و لا يختفي و التقرير مفتوح report.rar أستاذ رمهان أنا أريده في طريقة عرض النموذج. فقط بقي لدي مشكل و هو هل بالإمكان وضع كود لزر الزوم (تكبير و تصغير) دون اللجوء إلى وحدة نمطية. يعني أضع كود مباشر على الزر

مرحبا بك أستاذي و أخي القدير رمهان أريد أن أضع حلا لمشكلة أزرار الطباعة في النموذج المنبثق يعني إذا وجدت طريقة عرض النموذج دائما في المقدمة فسوف أضيفه لتقرير منبثق فتصبح الأزرار دائما ظاهرة. لقد وجدت بعض الحلول في منتديات أخرى لكنها تحول النموذج من منبثق إلى غير منبثق. لما نخفي شاشة الأكسس لا أريد إظهارها مجددا من أجل التقرير. و هناك طريقة أخرى و هي أن أجعل لون تفصيل النموذج (detail) شفاف و أضع الأزرار في رأس النموذج و عند فتح التقرير يفتح فوقه النموذج و لكن يبقى التقرير ظاهر لأن لون النموذج شفاف. و يمكن الطباعة و التكبير و التصغير و الفرز للتقرير بسهولة. رغم ذلك فإنها تبقى مجرد أفكار إلى حين الوصول إلى حلول عرض النموذج في المقدمة أو شفافية النموذج. هذا و الله أعلى و أعلم.