• 0
abth4000

النسخ على سيدي أو فلاش برمجياً

سؤال

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

بين أيديكم مرفق عبارة عن القاعدة الأم وقاعدة فرعية

المطلوب وضع أمر في القاعدة الأم لنسخ القاعدة الفرعية برمجياً على سيدي أو فلاش ممري أو غير ذلك على أن يكون موقع المجلد في /:C

و الله الموفق

أخوكم القادم من بعيد ابو حمد الصغير

ابوحمد.rar

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

15 إجابة على هذا السؤال .

  • 0

FileCopy "c:\", "cd rom path"

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

FileCopy "c:\", "cd rom path"

مشكور يا أخي masa-sy

بس ممكن ايضاح اكتر اذا ممكن

وشكرا مرة اخرى

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

ان شاء الله يكون بالمرفق طلبك

والشكر للاخ masa-sy

Dim SourceFile, DestinationFile

SourceFile = "C:\الملف المنسوخ برمجياً.mdb"

DestinationFile = "k:\الملف المنسوخ برمجياً.mdb"

FileCopy SourceFile, DestinationFile

MsgBox "تم النسخ بنجاح"

ضع هذا الكود بالزر لقد قمت بذلك

السطر الاول تعريف متغييرين

السطر الثاني اعطاء المتغير مسار الملف المراد نسخه

السطر الثالث اعطاء المتغير المسار الجديد للنسخ

السطر الرابع عملية النسخ

والسطر الاخير رسالة بسيطه بنجاح النسخ

ابوحمد.rar

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

أخي m2drsh_ansaak شكراً على هذا الجهد المتميز و الشكر موصول للجميع

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

DestinationFile = "k:\الملف المنسوخ برمجياً.mdb"

DestinationFile = "k:\الملف المنسوخ برمجياً.mdb"

FileCopy SourceFile, DestinationFile

MsgBox "تم النسخ بنجاح"

انا في انتظار الحل وشكرا

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

يااخي نفس العملية تماما اعمل زر اخر مثلا للنسخ على السيدي روم

وفقط غير حرف الهارد ديسك عندك

يعني الميموري كارد شو الحرف عندك

والسيدي روم شو الحرف عندك وتنتهي القصه

طبعا الحرف يتغير فقط في الdestinationfile هنا:

DestinationFile = "k:\الملف المنسوخ برمجياً.mdb"

يعني بالمثال اعلاه انا عندي الميموري حرفها k

وهكذا ارجو ان تكون فهمت علي

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

جزاكم الله خير يا جماعة الخير على هذه المعلومات القيمة

وانا شخصيا استفدت منها كثيرا

وللجميع تحياتي

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

الإخوة المشرفون السلام عليكم ورحمة الله وبركاته وبعد

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

واجهتني مشكلتين أثناء التعديلات :

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

المشكلة الثانية : انني لم طبقته في مشروعي ونقلت النموذج و الوحدة النمطية ظهر لي رسالة بمجرد تشغيل النموذج .. هي مرفقه في هذه المشاركة .

أرجو منكم الإهتمام بهذه المشاركة كما عرفته منكم من خلال مشاركاتكم الفعالة .

أخوكم القادم من بعيد ابو حمد الصغير

ابوحمد.rar

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

المرفق يظهر رسالة يفيد أنه بحاجة إلى مرجع لتشغيله ما أسم هذا المرجع كي أثبته

وشكرا

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

ارفق الرسالة كى يمكننا الافادة

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

اخي mrnooo2000 تفضل

post-136897-048995000 1277892198_thumb.g

تم تعديل بواسطه ABTH4000
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

هذا النموذج الممتاز من عمل الاخ Koao.. رائع مع الشكر الجزيل والتقدير له

يقوم بعمل نسخة من الملفات اي ملفات تريدها وملفات قاعدة البيانات كذلك بعد الضغط والاصلاح وغيرها

كل ما عليك اختيار مجلد وقرص الحفظ وضغط زر النسخ

طبعا اطلع على الكود حتى تعرف كيف تتم العلمة وباذن الله تكون اسهل

تحياتي

CopyfilesKOAO.rar

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

يبدو اننى اول من حمل البرنامج

حقاً عمل رائع

بارك الله فى مقدمه وصانعه

وجزاكم الله خيرااااا

ولكن يبدو لى انه يحتاج ملف ليس موجودا عندى وهو ACEDAO.Dll الاصدار 12.0 فكيف لى بهذا الملف

وشاشة النسخ عند غلقها علام اظن كانت تفتح نموذج اخر

وشكرا لكم

وجزاكم الله خيرااااااا

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

لا اعرف لم يطلي من شي كهذا

بخصوص نموذج اخر نعم هو نموذج اسمه bas لكن لا اتذكر ان المثال الاصلي به هذا الشي..سابحث عن الاصل وارفقه

تحياتي

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

اخي mrnooo2000 تفضل

أخى كل ماتحتاج اليه هو تعريف المرجع

microsoft office 12 object liberary

لاحظ أخى office و ليس access

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .