wael_rafat

استاذى الجميل جعفر .. بعد التجربة الكود يعمل بشكل ممتااااااز مع اشارتي الزيادة والنقصان ولكن للاسف لا يعمل مع ايقونات الاصناف ... حيث انني لابد من انتقال لسجل اخر حتي يتغير الاجمالي وسامحني علي التأخير والاطالة ،،،،

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

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

بارك الله فيك استاذنا الكريم رمهان الفكرة انني عامل كود تحديث للنموذج الفرعي بمعدل كل ثانية ، والغرض منه تحديث الاجمالي بمجرد ادخال الصنف اي لا انتظر الانتقال الي السجل الجديد حتي يتم تحيث الاجمالي ... والموضوع ماشي تمام لكن المشكلة التي اواجهها هو اهتزاز او وميض بالنموذج الفرعي ناتج عن عملية التحديث التي تتم كل ثانية KFC.rar

نقطة هامة واضم صوتي لصوت الاخ عزيز

بارك الله فيك استاذنا ابو خليل اتفضل اخي محمد هذا المثال من استاذنا الجميل جعفر ضع الفولدر 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 ) للنموذج ( أ ) من خلال النموذج ( ب ) مع كامل الشكر والتقدير

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