كل الانشطه

السلام عليكم الصحيح اني فقط قرأت بسرعة وتذكرت اني نزلت من النت برنامج يخص هذا الموضوع ربما تستفيد من هذا البرنامج 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 لشكل التقرير النهائي

جيد

قم بنسخ انواع الخطوط الموجودة في 21 والصقها في 7 والسلام عليكم

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

في الواقع هو مشروع كان في بالي واتمنى ان اقوم به ، وفيه يجب ان اعتمد على الساعة لقراءة الوقت من سجلات ، فعرضت جزء من الفكرة مسبقا. حاليا انا وسط مجموعة من التعديلات في بعض البرامج ، وان شاء الله لما افضى ارجع للموضوع وارفق لك قاعدة بيانات صغيرة بس للعمل الحقيقي

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

انا فقط مجرد طويلب علم هاو لا اكثر ولا اقل من ذلك ولو صادفت اجابتى الحل الصحيح او النتيجة المرغوبة فهو فقط فضل الله تعالى لا اريد اى بيانات حقيقية انا فقط اريد الهيكل ومن اجل ذلك طلبت الاطلاع على الملف لان الاجابة تحتمل طريقتين تعديل على ملف مرفق او انشاء التقرير بشكل يماثل ويحاكى شكل الملف ولا يتم الاعتماد فى هذه الحالة على اى وسيط خارجى ولانه كما تعلمت من اساتذتى العظماء ان شطر الجواب هو فهم السؤال فالمعطيات الموجودة والمجرات المطلوبة تعد جزء اصيل من بنيان السؤال ان كنت تريد انت تنفيذ الحل على افضل طريقة تناسبك الحل يتمثل فى نقطة واحدة من اثنتان فلتختر ما يناسب متطلباتك 1- تعديل على ملف ورد مرفق بفتح المف وارسال البيانات 2- انشاء التقرير بشكل يماثل ويحاكى شكل الملف ولا يتم الاعتماد فى هذه الحالة على اى وسيط خارجى وفى النهاية : الخيار الثاني هو الأصح — إنشاء التقرير داخل الاكسس بشكل يحاكي الوثيقة الأصلية ليه مش الخيار الأول (Word)؟ الاعتماد على Word كوسيط معناه: تبعية خارجية — لو Office اتحدث أو تغير مسار الملف الكود بيتكسر - على الرغم من اننا ممكن نحل المشكلة دى بفكرة برمجية بطء في الأداء — فتح Word من Access بيأكل resources وبيحتاج وقت مشاكل Automation — غير مستقر خصوصا على أجهزة مختلفة أو بيئات 32/64-bit مختلفة مفيش تحكم حقيقي — لو حد عنده Word مختلف أو مش مفعل الكل بيقف الملف بيفضل مفتوح أحيانا ويعمل تعارض مع المستخدمين التانيين تقرير الاكسس = القرار الاستراتيجي الصح للمشروع ده تحديدا للاسباب الاتية: متعدد المستخدمين فيه صلاحيات وأدوار فيه ختم رقمي لكل شخص محتاج تتبع وبحث لاحقا الجهد في بناء التقرير لمرة واحدة يستاهل مقارنة بمشاكل Word Automation المتكررة

انا عارف ومتاكد بصفتك خبير ودكتور في اكسس اني لو حطيت مرفق هتجيبها وتحل الموضوع ولكن انا للاسف طرحت الموضوع بشكل يحاكي تماما ما اريده لاني صعب احط اي مرفق لاحتوائها علي درجات سريه عشان كده طرحت الموضوع بمسميات تشبه الموضوع الاصلي وانتظر افكار فأنا اريد من يعلمني كيف اصطاد افضل من ان يعطني سمكه

هذه ليست قاعدة بيانات صغيرة 😅 هذه على ما يبدو مشروع كامل 😉