ابوخليل

تفضل تاريخ اخر حركه3.rar

لم اطلع على مثالك لاني اعمل على اصدار 2003 ولكن انظر هنا فقد تجد فائدة علما ان مشروعك اتصور انه اسهل من الموجود في الرابط لانك توزع صنف واحد

هذا ما قلته لك الكود يعمل فقط في القاعدة غير المنقسمة

=DMax("Atarih";"AfwtIar";"Nwaha=11") =DMax("Atarih";"AfwtIar";"Nwaha=13") تاريخ اخر حركه2.rar

في المثال المرفق يتم التطبيق على القاعدة والجداول الحالية اذا تعمل على قاعدة منقسمة فيجب تغيير CurrentDb الى مسار قاعدة الجداول

CLng للتحويل الى قيمة رقمية ‘ واعتقد ان المثال يمكن ان يعمل بدونها ، ولكني وضعتها من اجل هذا السطر في الحدة النمطية : i=DMin("monthx", "qryScnd", " nID =" & uid) وهو التغيير الجديد ويرجع بأصغر قيمة من عمود الشهر حسب الموظف كان الوضع السابق انه يعتبر الشهور كأرقام تبدأ من 1 وتنتهي بـــ 12 الآن يأخذ الارقام الموجودة ابتداء بالاصغر ويستمر الى مالا نهاية i = DMin("monthx", "qryScnd", " nID =" & uid) ii = mnthID For z = i To ii فـــ i تمثل الشهر الاصغر و ii تمثل آخر شهر و z تمثل الشهر الذي تتم معالجته

يتم هذا التطبيق بتجاهل رقم الشهر الموجود في الجدول واستبداله برقم مصنوع من الشهر والسنة داخل الاستعلام احتساب التأخر بالدقائق .rar

وعليكم السلام المعالجة هي في تغيير قيمة الشهر في الجدول ، وجعله ( yyyymm) ستة خانات فيصبح شهر 1 هكذا 201801 باستخدام الدالة : format([txtDate];"yyyymm")

هل هذ التعديل ممكن على ملفات mde ?

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

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

الم تلاحظ ,, شيئا ؟ انا عرضت عليك الحلول المتاحة ، اذا كان احدها هو ما تبحث عنه ، ولم تجبني ويفترض لو فكرتك تختلف على الاقل تبينها هذه اشكالية بحد ذاتها ندور حولها من عدة ايام

لم تختر شيئا ؟ لاحظت ان الجداول ضمن قاعدة البيانات اي ليست منقسمة ؟ هل صحيح ؟

اخي الربط الحاصل هو فعلا تغيير الجداول بل هو تغيير قاعدة البيانات كاملا ولكن مكانها اختلف عن القاعدة القديمة وحتى لو فتحت البرنامج لن يرتبط بالقديمة اذا في برنامجك كود يعيد القديمه قم بتعطيله اما : اذا تريد تغيير القديمة بالجديدة فيلزم اكثر من عملية وستكون كالتالي : 1- فك الارتباط بالقديمة 2- جلب القاعدة الهدف ولصقها مكان القديمة (وهذا خطير ) 3- اعادة الربط او انك تعمل برنامج مساعد بحيث ينسخ ويلصق بشرط برنامجك مقفل شيء آخر ايضا : اذا تريد حذف الجداول في القديمة وجلب جداول من النسخة البعيدة فهو ممكن ايضا ولكن هذا العمل غير احترافي وخطير اختر من هذه الحلول

تفضل عدلت على النسخ بحيث يكون بشكل يومي اي يحدث النسخة طيلة اليوم وفي الغد يضع بجانبها نسخة جديدة الآن يمكنك استيراد النسخة (كما هي التسمية في البرنامج ) من مجلد النسخ بدلا من القاعدة الاساسية بمعنى ان الاستيراد هو ارتباط بقاعدة اخرى ملحوظة : يمكنك جعل العملية اكثر تطورا ,, بحيث تجعل خيار الربط عند فتح البرنامج Backup.rar

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

تقدر تستبدل قاعدة الجداول بأخرى ولكن من خارج البرنامج والسبب : لما يكون البرنامج مفتوح يكون مرتبط بالقاعدة ، وهنا تكون القاعدة محمية ولا يمكن اللصق فوقها

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

توصلت للمشكلة وحلها المشكلة في الخطأ الحاصل ، والغريب ان هذا الخطأ يمسح الذاكرة والحل هو معالجة الخطأ بكود من صناعة اكسس : On Error GoTo Errx_Click rgm = DMax("Hrk_ID", "tblHaRas") Dim stDocName As String stDocName = "resarf" DoCmd.OpenReport stDocName, acNormal Exitx_Click: Exit Sub Errx_Click: MsgBox err.Description Resume Exitx_Click لاني في مثالي السابق استخدم فقط سطر امر الطباعة فقط ولاحظت ان هذا قد يحدث في بعض الاحيان بسبب او بآخر من أكسس والداليل انه عندكم لم يظهر

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

السلام عليكم في المثال المرفق : عند فتح التقرير للمعاينة ثم قفله تبقى قيمة المتغير ثابتة = 48 ولكن بمجرد فتح التقرير للطباعة تصبح قيمة المتغير = صفر ما السبب في ذلك ؟ ، وكيف يمكن الاحتفاظ بقيمة المتغير لما بعد الطباعة Oq.rar

تمام واحيانا يكون الخلل بسبب نموذج او تقرير معين لذا يجب الملاحظة بدقة متى واين يحدث الخلل

رائع شكرا لك

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

معذرة .. اقصد بــ ايام العطل : يومي الجمعة والسبت