كل الانشطه

مشاركة مع الزملاء .. من أسباب البطئ عند كثرة السجلات أيضاً ، بنية الاستعلامات نفسها .. أيضاً الاعتماد على حقل المرفقات لإرفاق الملفات داخل الجداول بدلاً من اعتماد مسارها .. أيضاً وباعتقادي عدم استخدام الفهرسة في الجداول قد يكون له أثر رجعي في التعامل مع البيانات عند تراكم البيانات داخل الجداول . وأخيراً ، ما خطر ببالي هو تقسيم قاعدة البيانات الى أمامية وخلفية ..

السبب هو خيار طباعة البيانات في مربع حوار إعداد الصفحة كما بالصورة ومرفق لك الملف بعد تعديل الخيار إصدار الفواتير.accdb

وعليكم السلام ورحمه الله وبركاته استاذ احمد اضافه الي ما ذكره معلمنا الجليل @jjafferr ممكن قاعده البيانات تتقل لاكتر من سبب - منها انه ممكن يكون في احداث فيها مشاكل او فارغه وخصوصا حدثي on current و on load للنماذج اتاكد منها كويس - منها انك ممكن تعمل Requery في جداول مرتبطه بالنموذج كتير - منها النماذج الفرعيه متحاولش تكتر فيها او عالاقل خلي مصدر بيناتها فارغ واستدعيها عند الحاجه دول اللي علي بالي دلوقتي

وعليكم السلام ورحمة الله وبركاته .. ارفق ملفك أخي الكريم ، وستجد الحل بإذن الله تعالى

السلام عليكم عندي مشكلة في الملف المرفق عند الطباعة لا تظهر اللبيانات اللون الاصفر هل يمكن المساعدة وحل المشكلة

اشكرك أخى جعفر على ردك كما ذكرت لا يوجد أخطاء فى تطبيقاتى أما بخصوص Auto Compact فإنى أستخدمه دائماً حتى يدوياً المشكلة فى تناقص السرعة عن سابقتها مع ذلك قمت بتجربة برامجك الرائعة .. لكنها لم تعمل عندى إلا على أكسس 2010 فما أعلى كمثال : النسخة التى ذكرت أنها متوافقة مع mdb ونسخة Decompile_4.accdb قد كان لها هذا الخطأ عندى سواء على 2003 أو 2007 لكن هذا الخطأ غير موجود بـ 2010

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

وعليكم السلام اخوي احمد رجاء قرأة هذا الرابط ، واستخدم الاداة اللي فيه ، فانا لا استغني عنه وبإستمرار خلال عمل اي برنامج ، وقبل ان اعطيه الزبون

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

ابشر لكن لديا مشروع لازم انجزه ومعلوماته برأسي لو تركته سيتركني وابدأ من جديد.

الحمد لله الذي بنعمته تتم الصالحات

أخي الكريم السلام عليكم ورحمة الله وبركاته ممكن طلب بعد إذنك أنا حابب أسوي إضافة صغير على البرنامج ألا وهي إصافة خانات لبند اسمه بطاقة تشغيل السيارة وبجانبه تاريخ انتهاؤه وأيضا بجانبه الحالة ، وأيضا بند آخر بنفس الطريقة اسمه بطاقة السائق ويوجد مرفق يوضح الطريقة أو الشكل ، أرجو ألا أكون ازعجتك بطلبي هذا ومرفق لسيادتكم أيضا نموذج البرنامج بعدما أضفت فيه بيانات أخرى أرجو النظر فيه إن كنت خربت أشياء بداخله أم لا . تحياتي الحارة لكم ولطيب اخلاقكم Ahmed ElShahat.rar

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

بارك الله فيك اخي ربي جازيك اخي وشكرا جزيلا

طريقة حفظ الملف بعد وضع الكود في الملف قم باغلاق الملف ستاتى رسالة كما بالصورة اخت اختر حفظ ستاتى رسالة اخرى كما بالصورة اختر لا ستفتح واجهة كما بالصورة قم بالاختيار حسب الصف المحدد ثم حفظ casse 2026 .xlsb

ممكن تشرح كيفية حفظ ملف ماكرو بارك الله فيك

صيغة الملف XLSX وهذه الصيغة لا تحتفظ بالكود بل تحذفه في اي شيت تريد اظافة الكود

السلام عليكم اخي هذا الملف نرجو منكم حماية الخلايا في ورقة :ادخال نفقات Private Sub Worksheet_Change(ByVal Target As Range) Dim protectedRange As Range Set protectedRange = Union( _ Range("E10:I10"), _ Range("E13:I13"), _ Range("E20:I20"), _ Range("E27:I27"), _ Range("E33:I33"), _ Range("E46:I46"), _ Range("E56:I56"), _ Range("E62:I62"), _ Range("E68:I68") _ Range("E74:I74") _ ) If Not Intersect(Target, protectedRange) Is Nothing Then كمال نرجو منكم الشرح كيفية حفظ الملف لكي يكون الماكرو فعال وشكرا Application.EnableEvents = False Application.Undo MsgBox "لا يمكن تعديل هذه الخلية، يرجى فك حماية الورقة للقيام بذلك" Application.EnableEvents = True End If End Sub casse 2026 .xlsx

الاسباب كثيرة منها عدم تفعيل او تمكين المحتوى او لم يتم حفظ الملف بصيغة XLSM-XLSB ارفاقك للملف يختصر الوقت ويحدد ما السبب

شكرا اخي لكن عندما ادخل كود ماكرو في الملف واغلق الملف وعند فتح الملف لا يعمل ما الحل اخي

ان شاء الله وبأمر الله تعالى تجد من يستطيع مد يد العون ويقدم لكم الخير تحياتى

السلام عليكم ورحمة الله وبركاته بعد اذن استاذنا الفاضل عبدللرحيم طريقة ادخال النطاقات للكود Private Sub Worksheet_Change(ByVal Target As Range) Dim protectedRange As Range Set protectedRange = Union( _ Range("E10:I10"), _ Range("E13:I13"), _ Range("E20:I20"), _ Range("E27:I27"), _ Range("E33:I33"), _ Range("E46:I46"), _ Range("E56:I56"), _ Range("E59:I59"), _ Range("E62:I62"), _ Range("E68:I68") _ ) If Not Intersect(Target, protectedRange) Is Nothing Then Application.EnableEvents = False Application.Undo MsgBox "لا يمكن تعديل هذه الخلية، يرجى فك حماية الورقة للقيام بذلك" Application.EnableEvents = True End If End Sub

هحاول احط ملف word لشكل التقرير النهائي

جيد