سعيد صواب قام بنشر سبتمبر 6, 2015 مشاركة قام بنشر سبتمبر 6, 2015 السلام عليكم ورحمة الله وبركاته.. لدي قاعدة بيانات accdb على سيرفر( طبعا هي القاعدة التي تحتوي على الجداول ) وحاولت استخدام العمل المقدم من الأخ ابو خليل جزاه الله خير في هذا الرابط http://www.officena.net/ib/topic/29214-نسخة-احتياطية-آلية-لقاعدة-البيانات-الحالية-أو-لأخرى-منفصلة/ ولكن لم يفلح .. حولت القاعدة الخلفية إلى mdb فنجحت الطريقة .. المطلوب هل من الممكن التعديل على الوحدة النمطية لتعمل مع الـ accdb .. ولو وجد وحدة نمطية اخرى فلا مانع . وفقنا الله وإياكم لما يحب ويرضى . رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر سبتمبر 6, 2015 مشاركة قام بنشر سبتمبر 6, 2015 وعليكم السلام في مكتبتي امثلة كثيرة متنوعة للنسخ ولكني عثرت لك على هذا الكود الصغير يقوم بنسخ اي شيء باي اسم واي امتداد وصيغة ولصقه على اي اسم نختاره واي امتداد وصيغة Private Sub zer1_Click() CopyFile CurrentProject.Path & "\xx.accdb", "D:\xx.accdb" End Sub Function CopyFile(vPathSource As String, vPathDestination As String) As Boolean FileCopy vPathSource, vPathDestination CopyFile = True End Function اخي آخر الارض .. جرب ووافنا بالنتائج 2 رابط هذا التعليق شارك More sharing options...
رمهان قام بنشر سبتمبر 6, 2015 مشاركة قام بنشر سبتمبر 6, 2015 وعليكم السلام في مكتبتي امثلة كثيرة متنوعة للنسخ ولكني عثرت لك على هذا الكود الصغير يقوم بنسخ اي شيء باي اسم واي امتداد وصيغة ولصقه على اي اسم نختاره واي امتداد وصيغة Private Sub zer1_Click() CopyFile CurrentProject.Path & "\xx.accdb", "D:\xx.accdb" End Sub Function CopyFile(vPathSource As String, vPathDestination As String) As Boolean FileCopy vPathSource, vPathDestination CopyFile = True End Function اخي آخر الارض .. جرب ووافنا بالنتائج يقول المثل ابا خليل قديمك نديمك لذلك شغلك القديم اصح ! واسمح لي باختصاره الى الكود التالي Shell "cmd.exe /C copy " & """" & CurrentProject.FullName & """" & " " & """" & CurrentProject.Path & "\abc.mdb" & """" حيث الانتباه الى تساوي الامتداد بين الملف الحالي والوجهة ! تحياتي 2 رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر سبتمبر 6, 2015 مشاركة قام بنشر سبتمبر 6, 2015 السلام عليكم وهذه محاولة مني :-) http://www.officena.net/ib/topic/63113-نسخ-ملف-خارجي-في-مجلد-خارجي/ جعفر 2 رابط هذا التعليق شارك More sharing options...
سعيد صواب قام بنشر سبتمبر 6, 2015 الكاتب مشاركة قام بنشر سبتمبر 6, 2015 اخواني الكرام جزاكم الله كل خير .. هذا هو امتداد القاعدة الخلفية : D:\saeedbacta واسم الملف : personnel نوعه accdb وهذا امتداد ملف الذي اريد ان احفظ النسخة فيه . D:\prog ====================== جربت كود الأخ ابو خليل ويظهر لي رسالة خطاء (( bad file name or number )) في هذا السطر FileCopy vPathSource, vPathDestination وجربت كذلك كود الأخ رمهان وكود الأخ جعفر ... ولكن لاتظهر اخطاء .. ولا تقوم بالحفظ كذلك. وفقنا الله واياكم. رابط هذا التعليق شارك More sharing options...
رمهان قام بنشر سبتمبر 6, 2015 مشاركة قام بنشر سبتمبر 6, 2015 بالنسبة للكود السابق ضعه خلف زر امر عند النقر والتاكد من تمكين المحتوى مع ملاحظة : - اذاكان ملف قاعدتك جديد من النوع accdb غير فقط abc.mdb الى abc.accdb وهنا ستجد ملف اكسس abc موجود في نفس مسار برنامجك الحالي - اذا لم يحدث شي قد تكون المشكلة صلاحية الكتابة على المجلد او المسار الذي به القاعدة الحالية بالتوفيق 1 رابط هذا التعليق شارك More sharing options...
سعيد صواب قام بنشر سبتمبر 6, 2015 الكاتب مشاركة قام بنشر سبتمبر 6, 2015 حياك الله اخي رمهان .. جربت ماذكرت في المشاركة الأخيرة .. قام بعمل نسخ للبرنامج نفسه وليس للقاعدة الخلفية. جربت ووضعت مسار القاعدة الخلفية ... ولم يحدث شئ جزاك الله كل خير رابط هذا التعليق شارك More sharing options...
أبو عبدالله الحلوانى قام بنشر سبتمبر 6, 2015 مشاركة قام بنشر سبتمبر 6, 2015 لو تسمح حصرتك بمرفق صغير للتعديل عليه ورئية المشكلة لديك عيانا - فليس من رئا كمن سمع 1 رابط هذا التعليق شارك More sharing options...
رمهان قام بنشر سبتمبر 6, 2015 مشاركة قام بنشر سبتمبر 6, 2015 حياك الله اخي رمهان .. جربت ماذكرت في المشاركة الأخيرة .. قام بعمل نسخ للبرنامج نفسه وليس للقاعدة الخلفية. جربت ووضعت مسار القاعدة الخلفية ... ولم يحدث شئ جزاك الله كل خير تمام هل تريد نسخ القاعدة الخلفية على نفس مسارها وباسم مختلف ؟ 1 رابط هذا التعليق شارك More sharing options...
سعيد صواب قام بنشر سبتمبر 6, 2015 الكاتب مشاركة قام بنشر سبتمبر 6, 2015 مشكور على التجاوب اخ رمهان ... واسف على الإزعاج اريدها على مسار آخر ... اهم شئ المسار أما التسمية فلا تهم. رابط هذا التعليق شارك More sharing options...
رمهان قام بنشر سبتمبر 6, 2015 مشاركة قام بنشر سبتمبر 6, 2015 (معدل) قبل ما اواصل معاك حبيت الفت الانتباه الى كود الاستاذ ابا خليل في الرابط السابق ! واستنتاجا من ما ذكرت بانه تمام معك على mdb ! الانتباه : في كود ابا خليل يوجد السطر: NewFile = [DBNew] & "\" & DBwithoutEXT & "-" & (Format(Date, "yyyy") - 1) & "-" & Format(Date, "yyyy") & Right(DBwithEXT, 4) لاحظ الملون بالاحمر ! فهو يخص ال mdb ! جرب ان تعدل الرقم 4 الى 6 ! ثم جرب وطبق على accdb بالتوفيق لم يتم التلوين اقصد الجزئية: Right(DBwithEXT, 4) وكذلك في السطر التالي ومن الرابط السابق: DBwithoutEXT = Left(DBwithEXT, Len(DBwithEXT) - 4) عدل 4 الى 6 تم تعديل سبتمبر 6, 2015 بواسطه رمهان 1 رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر سبتمبر 6, 2015 مشاركة قام بنشر سبتمبر 6, 2015 (معدل) جميع اكواد ومحاولات الاخوة الاعزاء لم تعمل معك .. اكيد المسألة فيها إنّ يمكن الخلل عندك فقط تفضل وضعت الكود في مثال حسب الامتدادات والاسماء التي طرحتها تمت التجربة ويعمل على اكمل وجه فك المرفقات داخل قرص D المرفقات عبارة عن مجلدين وبرنامج ، و داخل احد المجلدات النسخة الخلفية انسخ اي شيء.rar استدراك : اخي آخر الارض انتبه عند فك الملفات ان تفقد شيئا من عملك حيث يوجد لديك مجلدات بالاسم نفسه تم تعديل سبتمبر 6, 2015 بواسطه ابوخليل 2 رابط هذا التعليق شارك More sharing options...
رمهان قام بنشر سبتمبر 7, 2015 مشاركة قام بنشر سبتمبر 7, 2015 جميع اكواد ومحاولات الاخوة الاعزاء لم تعمل معك .. اكيد المسألة فيها إنّ يمكن الخلل عندك فقط تفضل وضعت الكود في مثال حسب الامتدادات والاسماء التي طرحتها تمت التجربة ويعمل على اكمل وجه فك المرفقات داخل قرص D المرفقات عبارة عن مجلدين وبرنامج ، و داخل احد المجلدات النسخة الخلفية انسخ اي شيء.rar استدراك : اخي آخر الارض انتبه عند فك الملفات ان تفقد شيئا من عملك حيث يوجد لديك مجلدات بالاسم نفسه جميل جدا وتنبيه بسيط : يجب ان تكون جميع الجداول المرتبطه في القاعدة الامامية مغلقة حتى يسمح بنسخ القاعدة الخلفية كما انه يمكن الاستغناء عن الدالة الموجودة ومباشرة التعامل مع الامر filecopy تحياتي 2 رابط هذا التعليق شارك More sharing options...
سعيد صواب قام بنشر سبتمبر 7, 2015 الكاتب مشاركة قام بنشر سبتمبر 7, 2015 (معدل) السلام عليكم ورحمة الله وبركاته ... الأخ ابو خليل قمت بتجربة ماذكرته في المشاركة الأخيرة ويعمل 100% .... . جزاك الله كل خير. كان الخطاء في هذا السطر ... فعند وضع مسار الحفظ لم اضف اليه اسم القاعدة وصيغتها .... CopyFile "D:\saeedbacta\personnel.accdb", "D:\prog\personnel.accdb" الأخ ابو عبدالله الحلواني اعتذر لأني لم اشاهد مشاركتك الا الآن .. وجزاك الله خير الأخ رمهان بارك الله فيك ...شكرا على تعاونك وجزاك الله كل الخير. الأخ جعفر .... جزاك الله كل خير . وبالتوفيق للجميع. تم تعديل سبتمبر 7, 2015 بواسطه آخر الأرض 2 رابط هذا التعليق شارك More sharing options...
صالح حمادي قام بنشر يونيو 18, 2016 مشاركة قام بنشر يونيو 18, 2016 جازاكم الله خير الجزاء 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.