الإخوة مشرفي هذا المنتدى السلام عليكم ورحمة الله وبركاته وبعد
بين أيديكم مرفق عبارة عن القاعدة الأم وقاعدة فرعية
المطلوب وضع أمر في القاعدة الأم لنسخ القاعدة الفرعية برمجياً على سيدي أو فلاش ممري أو غير ذلك على أن يكون موقع المجلد في /:C
و الله الموفق
أخوكم القادم من بعيد ابو حمد الصغير
FileCopy "c:\", "cd rom path"
ان شاء الله يكون بالمرفق طلبك
والشكر للاخ masa-sy
Dim SourceFile, DestinationFile
SourceFile = "C:\الملف المنسوخ برمجياً.mdb"
DestinationFile = "k:\الملف المنسوخ برمجياً.mdb"
FileCopy SourceFile, DestinationFile
MsgBox "تم النسخ بنجاح"
ضع هذا الكود بالزر لقد قمت بذلك
السطر الاول تعريف متغييرين
السطر الثاني اعطاء المتغير مسار الملف المراد نسخه
السطر الثالث اعطاء المتغير المسار الجديد للنسخ
السطر الرابع عملية النسخ
والسطر الاخير رسالة بسيطه بنجاح النسخ
سبحان الله وبحمده سبحان الله العظيم
سبحان الله . الحمد لله . لا اله الا الله . الله اكبر
استغفر الله . استغفر الله . استغفر الله
أخي m2drsh_ansaak شكراً على هذا الجهد المتميز و الشكر موصول للجميع
كل هذا العمل جميل وهو المطلوب ولكن أرغب أن أتعرف على جعل عملية نسخ القاعدة المبرمجة توجه يدوي إلى اما إلى السيدي أو الفلاش ممري
DestinationFile = "k:\الملف المنسوخ برمجياً.mdb"
DestinationFile = "k:\الملف المنسوخ برمجياً.mdb"
FileCopy SourceFile, DestinationFile
MsgBox "تم النسخ بنجاح"
انا في انتظار الحل وشكرا
يااخي نفس العملية تماما اعمل زر اخر مثلا للنسخ على السيدي روم
وفقط غير حرف الهارد ديسك عندك
يعني الميموري كارد شو الحرف عندك
والسيدي روم شو الحرف عندك وتنتهي القصه
طبعا الحرف يتغير فقط في الdestinationfile هنا:
DestinationFile = "k:\الملف المنسوخ برمجياً.mdb"
يعني بالمثال اعلاه انا عندي الميموري حرفها k
وهكذا ارجو ان تكون فهمت علي
سبحان الله وبحمده سبحان الله العظيم
سبحان الله . الحمد لله . لا اله الا الله . الله اكبر
استغفر الله . استغفر الله . استغفر الله
جزاكم الله خير يا جماعة الخير على هذه المعلومات القيمة
وانا شخصيا استفدت منها كثيرا
وللجميع تحياتي
الإخوة المشرفون السلام عليكم ورحمة الله وبركاته وبعد
حاولت أن اعمل تعديلات على المرفق و أستطعت إلى حد ما الوصول إلى ما أريد و أحببت أن أطلعكم على ما وصلت إليه و أخذ رأيكم في ذلك
واجهتني مشكلتين أثناء التعديلات :
المشكلة الأولى : هي كيف أتعدى مربع الحوار الذي برمج فيه القاعدة التي سوف تنقل التي تظهر فبل ظهور مربع الحوار الذي يطلب مني تحديد المسار .
المشكلة الثانية : انني لم طبقته في مشروعي ونقلت النموذج و الوحدة النمطية ظهر لي رسالة بمجرد تشغيل النموذج .. هي مرفقه في هذه المشاركة .
أرجو منكم الإهتمام بهذه المشاركة كما عرفته منكم من خلال مشاركاتكم الفعالة .
أخوكم القادم من بعيد ابو حمد الصغير
أخي mrnooo2000 شكرا على هذه المشاركة الجميلة والرائعة جعلها الله في ميزان حسناتك
المرفق يظهر رسالة يفيد أنه بحاجة إلى مرجع لتشغيله ما أسم هذا المرجع كي أثبته
وشكرا
هذا النموذج الممتاز من عمل الاخ Koao.. رائع مع الشكر الجزيل والتقدير له
يقوم بعمل نسخة من الملفات اي ملفات تريدها وملفات قاعدة البيانات كذلك بعد الضغط والاصلاح وغيرها
كل ما عليك اختيار مجلد وقرص الحفظ وضغط زر النسخ
طبعا اطلع على الكود حتى تعرف كيف تتم العلمة وباذن الله تكون اسهل
تحياتي
وَمِنَ النَّاسِ مَن يُعْجِبُكَ قَوْلُهُ فِي الْحَيَاةِ الدُّنْيَا وَيُشْهِدُ الله عَلَى مَا فِي قَلْبِهِ وَهُوَ أَلَدُّ الْخِصَامِ
يبدو اننى اول من حمل البرنامج
حقاً عمل رائع
بارك الله فى مقدمه وصانعه
وجزاكم الله خيرااااا
ولكن يبدو لى انه يحتاج ملف ليس موجودا عندى وهو ACEDAO.Dll الاصدار 12.0 فكيف لى بهذا الملف
وشاشة النسخ عند غلقها علام اظن كانت تفتح نموذج اخر
وشكرا لكم
وجزاكم الله خيرااااااا
سبحان الله وبحمده سبحان الله العظيم .. سبحان الله . الحمد لله . لا اله الا الله . الله اكبر .. استغفر الله . استغفر الله . استغفر الله
يارب احمى دينى وبلدى من كيد الاعداء والخائنين بحبك يا مصر بحبك يا مصر بحبك يا مصر
لا اعرف لم يطلي من شي كهذا
بخصوص نموذج اخر نعم هو نموذج اسمه bas لكن لا اتذكر ان المثال الاصلي به هذا الشي..سابحث عن الاصل وارفقه
تحياتي
وَمِنَ النَّاسِ مَن يُعْجِبُكَ قَوْلُهُ فِي الْحَيَاةِ الدُّنْيَا وَيُشْهِدُ الله عَلَى مَا فِي قَلْبِهِ وَهُوَ أَلَدُّ الْخِصَامِ
ABTH4000 كتب:اخي mrnooo2000 تفضل
أخى كل ماتحتاج اليه هو تعريف المرجع
microsoft office 12 object liberary
لاحظ أخى office و ليس access
