wael_rafat

بارك الله فيك استاذنا ابو خليل اتفضل اخي محمد هذا المثال من استاذنا الجميل جعفر ضع الفولدر Prog والذي يحتوي علي الجداول المرتبطة علي الD كما هو .. ثم قم بفتح البرنامج الاساسي AA وقم بالخروج سوف ينشيء فولدر تلقائي باسم BAk علي الD وبه نسخة من الجداول المرتبطة بالتاريخ والوقت للاسف يوجد مشكلة بالموقع عند تحميل الملفات اتفضل هذا الكود لحين استطيع تحميل المرفقات On Error GoTo err_Form_Close 'make a backup of BE BE_or_FE = "D:\prog" Backup_Folder = "D:\BAK" 'Do a copy from a PC name wael ONLY 'If VBA.Environ("Computername") <> "wael" Then Exit Sub 'Delete the old saved accdb Kill Backup_Folder & "\AA_BE_*.accdb" 'Now lets work on saving the new accdb''Is this PC name = jj' ' BE_Address = BE_or_FE & "\AA_BE.accdb" BK_Address = Backup_Folder & "\AA_BE_" & Format(Date, "dd-mm-yyyy") & "-" & Format(Now(), "Hh-Nn-AMPM") & ".accdb*" 'Debug.Print "xcopy " & Chr(34) & BE_Address & Chr(34) & " " & Chr(34) & BK_Address & Chr(34) Call Shell("xcopy " & Chr(34) & BE_Address & Chr(34) & " " & Chr(34) & BK_Address & Chr(34), vbHide) Exit Sub err_Form_Close: If Err.Number = 2450 Or Err.Number = 53 Then 'ignor Resume Next Else MsgBox Err.Number & vbCrLf & Err.Description End If

انشاء الله حاضر

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

تم تعديل الرابط ....

اتفضل مثال لاستاذنا المبدع جعفر بارك الله فيه http://www.officena.net/ib/topic/63113-نسخ-ملف-خارجي-في-مجلد-خارجي/#comment-409726

استاذي واخي رمهان ربنا يوفقك لما فيه الخير لك

اخي منتظر حسب ما فهمت جرب هذا المرفق وانشاء الله يفي بالغرض Add to List.rar

يا سلالالام عليك استاذنا تماااام بارك الله فيك وجزاك الله كل خير وسامحني علي الاطالة والف شكر علي الاهتمام والمتابعة

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

اتفضل اخي الكريم وبارك الله فيك D:\prog\AA_BE.accdb

استاذي الكريم جعفر سامحني والله حاولت كتيييير وللاسف ما نجحت مع العلم ان حددت مسار الBeوback_folder علي الدرايف D ، وانشاء الفولدر Back_folder علي الدرايف D برجاء تجربة الكود واسف مرة اخري علي الاطالة

للرفع اخواني الكرام

السلام عليكم اخي واستاذي الكريم جعفر .. اسف علي التأخير فى الرد وذلك لكون الموقع تحت الصيانة للاسف بعد التجربة لم اتمكن من الوصول للمطلوب ، ولا ادري من اين المشكلة المطلوب ببساطة : عند الضغط على ( EXIT ) بالقاعدة الاساسية يقوم بعمل نسخة من قاعدة الجداول المرتبطة ( AA_BE ) الي الفولدر ( back_folder ) الموجود على الدرايف ( D ) مع التحديث ( اي الغاء النسخة القديمة ووضع الجديدة ) بكل مرة مع التاريخ والوقت مرفق القاعدتين ... وسامحني على الاطالة A.rar

السلام عليكم ورحمة الله وبركاته الاخوة الافاضل مشرفي واعضاء منتدانا الكريم سؤالي هو : طريقة نسخ ملف خارجي بمجلد خارجي ( اي خارج قاعدة البيانات ) داخل جهاز الكمبيوتر والغرض منه : هو عمل نسخة احتياطية للجداول المرتبطة بقاعدة البيانات في مجلد خارجي داخل الكمبيوتر ملخص الفكرة : هو عند الخروج من البرنامج يقوم الكود بنسخ قاعدة الجداول المرتبطة داخل مجلد خارجي ( محدد داخل الكمبوتر ) مع التحديث والاحلال ( اي الغاء القديم ووضع الجديد ) بالتاريخ والوقت مع خالص التقدير والحترام

انا لله وانا اليه راجعون .... البقاء لله اللهم اغفرلها وارحمها يا ارحم الراحمين

بارك الله فيكم جميعا

اتفضل اخي الكريم ابو خليل Requery.rar

للاسف استاذي ابو خليل لم تتم مع العلم ان النموذج A والمراد تحديثة مفتوحا ولكن ليس نشط حيث به خاصية pop up...yes

عندي استفسار وهو طريقة تحديث بيانات نموذج من خلال نموذج اخر بمعنى كيفية عمل ( Requery ) للنموذج ( أ ) من خلال النموذج ( ب ) مع كامل الشكر والتقدير

بارك اللة فيك استاذنا الجميل رمهان ومصدر الكود ..الاستاذة زهرة بارك الله فيها من منتدي الفريق العربي . مع الشكر

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

نعم اخي رمهان كلامك صحيح.. يقوم هذا الكود بالترقيم وايضا اعادة الارقام المحذوفة.. ..في انتظار الهدية الرمهانية... بارك الله فيك وجزاك الله كل خير

اتفضل استاذ رمهان KFC.rar

تسلم استاذنا الفاضل علي التفاعل والمشاركة يعني افهم من كلامك ان هذا الامر غير طبيعي ويوجد مشكلة بالرغم من الالاف السجلات الموجوده !!

السلام عليكم ورحمة الله وبركاته اخواني الكرام كل عام وانتم بخير باقتراب شهر رمضان الكريم ... اللهم بلغنا اياه جميعا استفساري هو.. حدوث بطئ شديد في تحميل نموذج يحتوي علي حقل رقم تلقائي حتي يصل الي الرقم الجديد ! حيث وضعت حوالي 30000 ثلاثون الف سجل للتجربه . هل هذا امر طبيعي لعدد السجلات الضخمة الموجودة ?? ام هناك مشكلة .. علما بان مصدر النموذج هو استعلام .. مع الشكر