ابو جودي

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

يا سلام لو تتكرم علينا بمثال جميل زيك كده وياسلام تضيف كود استاذى الجليل ومعلمى القدير الاستاذ @رمهان

تدلل واصبح الان لديك اكثر من حل ومن طريقة الاكواد هى - على طريقة استاذى الجميل الأستاذ الرائع @essam rabea =Nz(IIf(IIf([t1]>[t2],[t1],[t2])>[t3],IIf([t1]>[t2],[t1],[t2]),[t3]),0) -على طريقة استاذى الجليل ومعلمى القدير المبجل الاستاذ @رمهان =Nz(IIf([t1]>[t2] And [t1]>[t3],[t1],IIf([t2]>[t1] And [t2]>[t3],[t2],[t3])),0)

------------------------------------------- طبعا انا امزح مع اخونا الجميل واليك طريقة على اللمسة الرمهانية لاختيار اكبر قيمة من بين قيم ثلاث حقول مختلفه كل منهم فى نموذج مختلف (على طريقة الاستاذ رمهان - اكثر من حقل فى اكثر من نموذج).accdb

يستطيع عمل هذا باى طريقة هههههههههه يا استاذى العزيز @essam rabea ههههههههه نيابة عن اخونا الحبيب صاحب المسألة ارد انا عليك السؤال كانا واضحا وجود ثلاث حقول مختلفة يعني كل حقل مختلف عن اخر في نموذج معين واريد حقل رابع يضهر اكبر حقل من بين هذه الحقول على الله تكونوا فهمتوا (الاستاذ رمهان) (1).accdb

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

رجل أعمال بنبغى عليه ان يلقي خطاب لخريجين السنة الأخيرة في قسم إدارة الأعمال، ولم يكن متجهزا بأي خطاب، وقال للطلبة كل اللي أقدر أقولهولكوا إني هفيدكوا في الخمس دقايق الجايين، بس تساعدوني! وسأل "مين مستعد للمساعدة؟" البعض بس رفعوا إيديهم، والباقيين مترددين! علّق رجل الأعمال بأول كلمة سر، #التراخي والتردد. بعدها خرّج الراجل شيك من جيبه، وقال مستعد يدي الشيك ده، لأكتر شخص هيرفع إيده لأعلى نقطة. بدأ الكل يرفع إيده، وهنا قال رجل الأعمال، كلمة السر التانية #التحفيز. الكل بدأ يبص على بعضه، وواحد منهم قرر يقف فوق الكرسي، وبقى أعلى من كل المنافسين. وظهرت كلمة السر التالتة #الإبداع. بعدها بدأ الكل، يطبّق نفس النظرية، ويقفوا ع الكراسي، لكن صاحب الكرسي الأول ماسكتش، وقرر يحط كرسي، فوق الكرسي، ومن هنا يظهر السر الرابع #التحسين_المستمر. بدأت المنافسة تزيد، لحد ما الموضوع اتحول لتحالفات، وكل فريق بدأ يتعاون، عشان يصنع أكبر برج،ويوصل لأطول نقطة، وهنا ظهر مفهوم #العمل_الجماعي. لما تقاربت المستويات، بدأ قائد كل فريق، يعيد ترتيب فريقه بشكل منظم، بحيث يقدر يستوعب ناس أكتر ويوصل لنقطة أعلى، وهنا يظهر المفهوم الأعم والأشمل #القيادة. ببساطة، القيادة كلها تكمن في الأسرار دي، التراخي يضيع الفرص، التحفيزبأنواعه هو اللي يشحن الفريق، السبيل الوحيد للتميز هو الإبداع، لكن مستحيل تفضل في القمة، إلا بالتحسين المستمر، وفي الآخر أفضل وسيلة للنجاح هي العمل الجماعي! وكل ده مش ممكن يتم من غير #قائد_جيد.

الحمد لله رب العالمين الحمد لله الذى تتم بنعمته الصالحات سبحانك اللهم لا علم لنا الا ما علمتنا يارب لك الحمد حمدا كثيرا طيبا طاهر مباركا يارب لك الحمد كما ينبغى لجلال وجهك ولعظيم سلطانك

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

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

'الجمعة Public Function TotalFriDays(pYear As Integer, pMonth As Integer, pDay As Integer) Dim xindex As Integer Dim endDate As Integer endDate = Day(DateSerial(pYear, pMonth + 1, 0)) For xindex = 1 To endDate If Weekday(DateSerial(pYear, pMonth, xindex)) = pDay Then TotalFriDays = TotalFriDays + 1 End If Next End Function وبنحصل من خلاله على طلب حضرتك بالطريقة دى من النموذج xx= TotalFriDays(Format(txtDate, "yyyy"), Format(txtDate, "m"), Format(txtDate, "dd")) حيث ان txtDate = التاريخ على شكل 1/3/2019 من الاستعلام Fri: TotalFriDays(2019,3,1) لاحظ شكل التاريخ وكيفية كتابته السنة ثم , الشهر ثم , اليوم ----------------------------------------------- انا مش مبرمج انا مجرد هاوى انا بحثت على الانترنت عن مشكلتك الى تخص الجمع علشان اساعد ان امكننى ذلك والحمد لاقيت الكود

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

اتفضل Calendar.mdb

كل الشكر والتقدير استاذى الجليل ومعلمى القدير

1-كنت نايم فى الاواخر ومكنتش مركز حلو حاضـــر جارى التعديل مش فاهم قصد حضرتك هههههه فى الجزء الثانى ان شاء الله لا تقلق هو مش مركز ومش قادر افهم قوى لكم ممكن بالتجربة افهم معلش فهمى تقيل جبتين صعيدى العفو منكم استاذى الفاضل انا اكيد غلط بش من قلة التركيــــز بآخر الوقت ومعلش سامحنى ان شاؤ يتم تدارك كل هذه النقاط ولكن لى سؤال اى الالوان اجمل الازرق ام الاحمر ههههههه هذا ذوق الاستاذ @SEMO.Pa3x

والله يا استاذ انا كنت بافكر فى اضافة التاريخ الهجرى وام القرى فعلا

ما ٱجْمّل ٱن تْسَتيّقظ فيٌ الصَبّاح شّاگرٱ لِرّبگ مُعّترَفا بَفْضّلہ فتَقوڵ: { الـحـمد اللھٌ الذيٌ عَافانيْ في جَسّديْ ۈرد علي رۈحِّي ۈأذْنٌ ليْ بَذگرہٌ } صّباحَ جَميّل معّطر بذگر اللہ .. لا إلہ آلٱ اللہ محمد رسول الله

تمام على بركة الله نبدأ - الجزء الأول التأكد من الاتصال بالجهاز الرئيسي بالشكبة والذى سوف يتم وضع قاعدة الجداول به واحضار التاريخ منه منعا من التلاعب -الجزء الثانى صلاحيات المستخدمين - القسم الاول ( شاشة الدخول وتسجيل مستخدمين جدد وتفعيلهم واسترجاع كلمة المرورو وتشفير البيانات )

Calendar.mdb

اتفضل الباس ورد 1 وصلحت لك نموذج الدخول وعملت لك استعلام لفك التشفير بس نصيخة انا واجهت مشاكل مع خوارزمية التشفير دى ان مهتم بموضوع الصلاحيات هاقولك سر ولا تحكى لحد تابع الموضوع ده New Microsoft Access Database.rar

السلام عليكم ورحمة الله تعالى وبركاته الجزء الاول من صلاحيات دخول المستخدمين الى البرنامج فى هذا الجزء - فى حالة عدم وجود مستخدم مسجل اى عند فتح القاعدة للمرة الأولى يتم انشاء المستخدم الأدمن اليا يا سلام يا سلام -البيانات فى الجداول مشفرة << -----------< تلبية ورغبة لطلب احبائى الكرام -تم إخفاء معظم كائنات قاعدة البيانات التى تخص دخول المستخدمين -نموذج الدخول يمكن من خلاله تسجيل مستخدم جديد فى انتظار الادمن للموافقة عليه وتصنيفه تبعا لمجموهة الصلاحيات << -----------< الادمن كده هيستريح الله الله الله -نموذج الدخول يمكن من خلاله استرجاع كلمة المرور فى حالة النسيان ولكن بعد ادخال بيانات التسجيل الصحيحة ( اسم الدخول - الاسم الرباعى - الايميل- سؤال الامان - اجابة السؤال) -امكانية كشف نجوم كلمة المرور ما تيجو نشوف كده قد يكون هناك اخطاء سهوا منى وقد تكون هناك لدى احد اساتذتى الكرام واحبائى فكرة افضل يسعدنى تلقى مقترحاتكم حول المرفق القاعدة مطروحة للتجربة ـــــــــــــــــــــــــــــــــــــــــــــ SecurityLevel group.accdb SecurityLevel group.mdb

abc.mdb هههههههههه بص هو ممكن يكون فى طريقة برمجية بالاكواد بس انا بحب افكر بره الصندوق

السلام عليكم ورحمة الله وبركاتة اعتذر عن التعديل الشامل الذى صار للقاعدة اولا برجاء عدم الاستخدام الحروف العربية لتسمية الجداول او الحقول مع الاخذ فى الاعتبار عدم استخدام المسافة للفصل بين الكلمات كذلك وذلك لسهولة التعامل مع الأكواد اترككم للاستمتاع بالقاعدة الجديدة اتمنى ان شاؤ الله ان تجدوا ضالتكم تقييم الطالبات 2003( الطى والتوسيع).mdb