في المرفق ارجو تعديل الامر التالي :
If BrowseForFolder(dhcCSIdlDesktop, dhcBifReturnAll, _
A, hWndAccessApp, "اختر مكان النسخ الاحتياطي") Then
A = Left(A, Len(A) - 1) & "\" & Val(sh)
ليكون النسخ مباشرة الى الدرايف d
بدون ان يقوم المستخدم بتحديد مكان الحفظ
وبعدها عند الخروج نهائيا يتم تشغيل الامر تلقائيا كما في المرفق
مع جزيل الشكر
طيب ممكن تفهمنى
زر النسخ يضع ملف dat فى المجلد المختار
هل هذا الملف هو نسخة إحتياطية من بيانات البرنامج ؟
و كيف يتم تحويلة إلى الأكسيس مرة ثانية ؟
helmy_foad كتب:طيب ممكن تفهمنىزر النسخ يضع ملف dat فى المجلد المختار
هل هذا الملف هو نسخة إحتياطية من بيانات البرنامج ؟
و كيف يتم تحويلة إلى الأكسيس مرة ثانية ؟
مرحبا بك اخي
بالطبع الملف ناقص وهو لاحد الاخوة في المنتدى فقط اردت التعديل عليه ليناسب مطلبي
وهو بالفعل لاجراء نسخة احتياطية من البيانات
فقط ما اريده ان يقوم بوضع النسخة على ال d دون تدخل المستخدم في تحديد المكان كما
هم المرفق الحالي حيث بقوم المستخدم بتحديد المكان ليتم الحفظ
شكرا مرة اخرى
السلام عليكم ورحمة الله
تم عمل المطلوب عند الضغط على زر نسخ ينسخ الى الدرايف D وعند الخروج ينسخ نسخة على الدرايف D لكن بدون رسالة جرب
وأخبرني بما وجدت
أعتقد أن الكود ليس بغريب علي ؟
أخوك اكسير الحياة
ekseer كتب:السلام عليكم ورحمة اللهتم عمل المطلوب عند الضغط على زر نسخ ينسخ الى الدرايف D وعند الخروج ينسخ نسخة على الدرايف D لكن بدون رسالة جرب
وأخبرني بما وجدت
أعتقد أن الكود ليس بغريب علي ؟
أخوك اكسير الحياة
وعليكم السلام ورحمة الله وبركاته
استاذي العزيز اكسير
بارك الله فيك وحفظك ومن يلوذ بك من كل مكروه ..اللهم آمين
أجمل تحية :)
نسيت القول بان الكود يعمل 100 % بارك الله فيك
الحمد لله
تستاهل أخي فرقدي كل خير وأتمنى أن أراك من عمالقة مبرمجي الأكسس
في يوم ما - إن شا ء الله في القريب العاجل - تحياتي
أخوك اكسير
تم تعديل هذه المشاركة بواسطة ekseer في 27 أبريل 2007 في 20:32
هذا الموضوع مغلق.