kha9009lid

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

وفقا لمستندات الدعم الفني لقاعد بيانات اكسس الحد الاقصي للمستخدمين المتزامين 255 مستخدم وهذا العدد الكبير لقاعدة مخصصة اساسا للاعمال الصغيرة يمكن الوصول له في ظروف عمل محددة ولكن كما اشار الاستاذ الفاضل @sandanet نجد ان العدد الاقصى للمشاركة المتزامنة 20 مستخدم. ماهو الحل ? استخدام windows server وهو ايضا نظريا يتيح تزامن عدد 16777 مستخدم وايضا هذا العدد الكبير جدا في ظروف عمل معينة ولكن التعامل مع اصدارات ويندوز سيرفر تختلف عن نظام التشغيل العادي ويتطلب دارية ومعرفة كبيرة ومواصفات اكبر وتكلفة مادية ايضا سعر الرخصة يتراوح مابين 501 $ الى 6155 $ حسب نوع الترخيص وعدد المستخدمين

بعد اذن اخي محمد جرب المرفق تشغيل استعلام تحديث و اظهر تنبيه.accdb

مرحبا يوجد في الموقع برنامج من اعداد الاخ @Hosam Shehata ربما يحقق طلبك خصوصا وان البرنامج مفتوح المصدر وصاحبه اتاح التعديل عليه كلمة المرور للادارة 123 كلمة المرور للاستقبال 1 للصلاحيات الكاملة والتحاليل ادخل باسم المستخدم ادارة تحياتي لفتح البرنامج والاطلاع على الجداول والاكواد والتعديل اضع على مفتاح الشفت في لوحة وافتح البرنامج مع استمرار الضغط على الشفت

هذا الموضوع كان رد على طلب احد الاعضاء تأخير فتح نموذج لعدد معين من الثواني فكان رد استاذنا ابو جودي كود يقوم بتأخير الفتح وردي كان شريط التقدم كلا الردين يؤدي الهدف اما طلبك فيختلف عن طريقة عمل الملف المرفق ربما هذا الموضوع هو الاقرب لطلبك الملف خاص بالاستاذ الفاضل @Elsayed Bn Gemy وايضا طريقة اخرى باظهار رسالة "برجاء الإنتظار .. جارى معالجة البيانات" تظهر وتختفي لحين انتهاء تنفيذ الامر نفس الرد اعلاه 👆 يحقق نتيجة قد تكون جيدة

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

جزاك الله خير د.محمد 🌹

توجد عدة طرق لعمله لو بحث في الموقع ستجد العديد من الامثلة جرب المرفق ربما يحقق طلبك 11.accdb

وصلت متأخر اكيد وجدت الحل

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

رائع كعادتك اخي محمد نور الموقع بعودتك 🌹

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

المخفي هو الاساس والظاهر انت عملته ما حبيت احذفه ؟ ياليتنا من حجنا سالمين ***** كان الذنوب الى علينا خفيفات 😃😃 محبتي وتقديري لك اخي @ازهر عبد العزيز

ممكن عملها ولكن لماذا لا نجعلها صلاحيات للاضافة والتعديل والحذف على مستوى النموذج ولكافة النماذج ويمكن مستقبلا اضافة نظام مستخدمين وربطها معا ولكن دعنا حاليا في الصلاحيات الثلاث بحيث يكون لدينا جدول ياخذ اسم النموذج بشكل تلقائي من جدول النظام المخفي MSysObjects وثلاث خانات اختيار اضافة تعديل حذف وبالتالي عند فتح النموذج يتم التأكد من هذة الخيارات الثلاث جرب الملف المرفق ربما يكون افضل من زر امر مع الشكر والتقدير لاستاذنا الفاضل @osama ababneh New Microsoft Access Database(2).accdb

=DSum("[genome]";"استعلام1") micro.accdb

بالتوفيق اخي احمد والشكر لله ثم لاخي الفاضل @اشرف

مشاركة مع اخي اشرف بدون الحاجة الى تغيير وضع حجم الرسم عن طريق الكود في حدث عند الفتح ضع التالي Me.InsideHeight = 9200 ضع الرقم المناسب حسب رغبتك وانا افضل هذه الطريق حيث لا يمكن للمستخدم تغيير حدود النموذج عن طريق السحب Database701.accdb

Me.AllowAdditions = False Me.AllowDeletions = True Me.AllowEdits = True

انا فقط جربت لفترة بسيطة وخرجت 🌹

عالم ثاني متابع 👀

كلنا في نفس الطريق ههههههه كم خطأ املائي في مشاركتي السابقة هذا بعد التعديل 😭

في الحقل النموذج الرئيسي اجعل قيمته تساوي =IIf(Not IsNull([m]);DSum("[a]*[b]";"جدول3";"[المعرف1]=" & [المعرف] & "and [se]=-1");0) في حدث بعد التحديل للحقل se Forms![ÌÏæá2].Refresh النلف مرفق واختبرة زين راسي مصدع وعملتة بشكل سريع بدون اختبار للتأكد time(1).accdb

الشكر لله استاذ @warvin raviny 🌹

بالامكان التحكم بابعاد النموذج الطول والعرض عن طريق الكود في حدث عند الفتح Me.InsideHeight = 7500 Me.InsideWidth = 7000 او هكذا Me.Form.InsideHeight =7500 Me.Form.InsideWidth = 7000 غير الرقم وفقا للحجم المناسب للفورم ارتفاع.accdb