السلام عليكم ورحمة الله وبركاته
مرفق ملف به جدول ونموذج مخصص لعملية نسخ الجدول وامر اخر لاسترجاع النسخ
وهو كود سابق يحمل الداتا إلى الدرايف a مباشرة وكذلك في الاسترجاع
والمطلوب عند الضغط على زر النسخ تفتح نافذة الاستعراض الخاصة بالوندوز لتعطي المستخدم الخيار في مكان النسخ وكذلك في الامر الاخر الاسترجاع وعلى المستخدم الخيار في موضع الداتا
والنموذج في المثال مشروح الطلب
وفقكم ورعاكم في طاعته
الاخ العزيز المثال المرفق لا يعمل ،عندما اقوم بالضغط على زر النسخ تظهر رسالة خطأ
في الوحدة النمطية ويتم تحديد المتحول wrkDefault ...
()Public Function Disk2
Dim wrkDefault As Workspace
ما السبب برأيك
jmt
ابحث في مشاركات الأخ ابو هاجر ففيها حلا لمشكلتك باذن الله
اذكر انه تطرق لمثل هذه العملية
وعذرا لضيق الوقت .
===
هي من مشاركة ابوهاجر وهو من عمل هذا الكود
تفضل أخي الكريم هذا هو طلبك
أخي ابن مسقط دائماً سباق للخير ..
يبدو أننا أضفنا الرد في نفس الوقت :)
أخي العزيز/ مهند عبادي
الكود الذي أتبعته أنت جداً عملي ومختصر وواضح وهو الأنسب
وفقك الله وأعانك على فعل الخيرات.
الاخوة الكرام
السلام عليكم ورحمة الله وبركاته
أولا اشكركم شكرا جزيلا على سرعة الاستجابة والتعاون وهذا ليس غريب عليكم
ولكن بتحميل الحلول الجيدة فقد اكون اخطات في ايصال المطلوب
فالمثال الذي وضعته يقوم بتحول الجداول الى امتداد dat وعملية النسخ محددة لجداول معينة يتم تحديدها في الكود للاسترجاع ونفس الجداول في النسخ عن طريق الماكروا ومحدد فيه توجيه النسخ الى a
والمطلوب تعديل كود النسخ والاسترجاع الموجود في المثال بدلا من a إلى استعراض
فمثالك أخي مهند رائع لكن يحول النسخ الى قاعدة بيانات بدلا من dat واعتقد انها تنسخ جميع الجداول بينما المطلوب تحديد لجداول معينة
أخي طلال البرنامج المرفق لا ينسخ جميع الجداول بل ينسخ فقط الجدول xxcc وتجد سطر النسخ في الكود هذا هو :
DoCmd.TransferDatabase acExport, "Microsoft Access", Mydb, acTable, "xxcc", "xxcc"
وعليك أن تكرر هذا السطر عند رغبتك بنسخ أكثر من جدول واحد
كما أنني عملت لك التعديل حتى يكون الملف الناتج امتداده .dat
أخي مهند
السلام عليكم ورحمة الله وبركاته
جزاك الله خير
هل ممكن جعل الكود لا يطلب تسمية النسخ ويسترجع دون طلب اختيار الاسم
حيث عند النسخ تفتح نافذة الاختيار الاستعراض وعند التحديد لمكان الحفظ يتم النسخ آليا دون أن يكتب المستخدم اسم الملف
شكرا لك وفقك الله ننتظر الاجابة
الف شكر أخي مهند على هذه الخدمة وهذا هو المطلوب وجزاك الله خير
هذا الموضوع مغلق.
