ابو جودي

مش كنت تقول من الاول قبل ما اكتب كل ده هههههه استاذى الجليل ومعلمى القدير ووالدى الحبيب ساحر الاكسس الاستاذ @jjafferr كل الشكر والتقدير والعرفان والامتنان لكم شكر الله لكم واحسن اليكم كما تحسنون دائما لكل طلاب العلم

تدلل يا استاذ @SEMO.Pa3x

اعرض الملف Officena Date Picker صاحب الملف ابا جودى تمت الاضافه 25 أبر, 2019 الاقسام قسم الأكسيس

التاريخ الهجرى Officena DatePicker.mdb

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

فطعا اسلوب البرمجة داخل القاعدة له تأثير على سرعة تناول ومعالجة البيانات

ممكن مشكلة بالنيتورك ممكن انتى فايروس على الجهاز الرئيسى

نعم اكسس 2019 اسف المرفق مرة اخرى بتنسيق 2003 get data of tbl in db.mdb

وضعت الكود خلف زر امر get data of tbl in db.accdb

c - 12....0 اسف جدا ولكن ما هى مدلولات الارقام هذه هل تدل على نوع الحقل ؟ tblName=c - 12....0

متابع باستمتاع

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

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

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