نجوم المشاركات

الاكسس يعمل بهذه الطريقة حياك الله اخي محمد جعفر

مثال بسيط يوضح احدى الطرق لرصد درجات مادة حسب الصف مع بعض اللمسات على نموذج الادخال اتمنى تجدوا الفائدة ادخال درجات مادة وفصل.rar

طيب ، ونتائج البحث وين تطلع؟ في النموذج الفرعي ، صح؟ اذن المثال في الرابط ينطبق على طلبك 100%

إخواني إليكم هذا الملف المرفق وأتمنى لكم الفائدة مع خالص تحياتي أخوكم رضا عقيل p4.rar

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

انا عملت لك الوحدة النمطية في تقريرك ، ونتيجة عمل الوحدة النمطية تشوفها في الحقل Me.iTime في المرفق في مشاركتي السابقة.

السلام عليكم بعض الاوقات نحتاج عمل معادلة/كود لحقل ما في نموذج/تقرير ، فلاحظت بعض المبرمجين يضع الكود في مصدر بيانات الحقل في النموذج ، مما يسبب ان ينفتح النموذج ، وبعد لحظات نرى نتيجة المعادلة في الحقل (اي ان نتيجة المعادلة لا تظهر بفتح النموذج) ، بينما لو انهم وضعوا هذه المعادلة في اي من الاحداث السابقة التي يقوم بها النموذج ، لوجدوا نتيجة المعادلة جاهزة مع فتح النموذج. عليه ، رأيت ان اضع بين يديكم تجربة لمعرفة تسلسل الاحداث في النموذج ، ومتى يقوم النموذج بعمل معادلة الحقل. يمكن ان نرى تسلسل احداث اي عمل في الاكسس ، من رابط المايكروسوفت هذا : https://support.office.com/en-us/article/Order-of-events-for-database-objects-e76fbbfe-6180-4a52-8787-ce86553682f9 النموذج ، وبه نموذج فرعي ، ونرى ان النموذج الرئيسي به معادلة ادخال رقم عن طريق InputBox ، والنموذج الفرعي كذلك ، ولكن لحرف ، ونرى اني عملت كود خلف جميع الاحداث في النموذجين الرئيسي والفرعي . . وهذا شكل الكود . هذه البيانات في الجدول ، مصدر النموذج الفرعي . وهذه كائنات البرنامج ، حيث يأخذ النموذج الرئيسي بياناته من الاستعلام qry_Names . وهنا نرى تسلسل الاحداث: . هذا معناه ، انه المعادلة يمكن عملها في اي من التسلسل التالي (كل حدث يستطيع اخذ بياناته من الحدث الذي يسبقه) : في الاستعلام مصدر البيانات > حدث فتح النموذج > حدث تحميل النموذج > حدث تغيير حجم النموذج > حدث الحالي > في مصدر بيانات الحقل. جعفر Order_of_Events.mdb.zip

السلام عليكم أخي الكريم سليم، أرى أن المعادلة في الخلية M4 (عدد الأيام المشتركة بين العاملين) بها خلل، مثلا لو قمت بتغيير تاريخ البداية للعامل "جميل" إلى 25/12/2016 فالمعادلة تعطي 27 يوم والصحيح هو 20 يوم (وهي كل أيام عمل الموظف "شادي" من 01/01/2017 إلى 20/01/2017) ولتصحيح هذا الخلل أقترح عليك المعادلة التالية: =MIN($D$3:$D$4)-MAX($C$3:$C$4)+1 أخوك بن علية حاجي

السلام عليكم هذا الرابط به جواب على سؤال البطء: . هذا التفكير غير صحيح ، حيث انك تضع الكود مرة واحدة في برنامجك ، بغض النظر عن طوله ، انا استخدم هذه الوحدة النمطية في جميع برامجي ، لربط الواجهة مع الجداول ، وطولها 1000 سطر : . بالاضافة الى المكتبات الاخرى جعفر

السلام عليكم أخي وضاح ومرشد ارجو تستفيدوا من هذا الرابط: جعفر

السلام عليكم جزاكم الله خيرا..... كل شئ تمام

جرب المرفق التالي فتح أو إلغاء الشفت.zip

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

نبتغي وجه الله ونريد نشر العلم النافع .. . ادعو الله ان يكون في كفة الحسنات للجميع لكل من له بصمه في الخير وشكرا لك استاذ احمد الحاوي

وعليكم السلام انا اعرف انك ما تريد هذا الجواب ، لكن مافي جواب ثاني انا اعرفه للذي تريده ، استعمل السطرين القبل الاخير في حدث قبل التحديث لحقل الخصم: MsgBox " اعـلـى درجـة خـصـم الـمسـمـح لـهـذا الـمـسـتـخـدم هـو " & " ( " & Me.n1 * DrXes & " ) ", , " لــيــس لــديــك صــلا حــيــة بـالخــصـم اكـثـر " ', , vbOKOnly, "وضــاح الـنـوبـه : الصــــلاحيــات " Cancel = True Me.Alhasm.Undo Else جعفر 804.التركيز.mdb.zip

شكرا اخوي حربي ، انت الآن تأكد ان الرابط ينطبق على طلبك ، حاول فيه ، تراه مو صعب ، ولما تعلق معاك القضيه ، نكون في خدمتك ان شاء الله جعفر

الاستاذ عبد الباري متميز كالعادة ...جزاه الله خيرا وشكرا للاستاذ ناصر على الى جهوده ..بارك الله فيكم جميعا

المعادلة من توع CSE (اي معادلة صفيف) و لتطبيقها يجب بعد كتابتها الضغط على CRTL+SHIFT+ENTER وليس ENTER وحدها

ربما كان المطلوب salimالمصنف1.rar

اشكرك اخي الكريم كلك ذووق

وعليكم السلام تفضل هذه طريقة جعفر

لو فرضنا ان الرقم عندك في الخلية A2 انسخ هذه المعادلة : مع تنسيق الحلية "mmm-yyyy-d" =DATE(MID(19&RIGHT(A2,LEN(A2)-1),1,4),MID(19&RIGHT(A2,LEN(A2)-1),5,2),MID(19&RIGHT(A2,LEN(A2)-1),7,2)) مرفق الملف dates.rar

جرب هذا المرفق لوسمحت 798.very1.mdb.zip

صلاحيات المستخدمين تجدها في الشيت ID راشد 12345 يحق له التعديل والتغيير والبحث حمد 123 يحق له البحث فقط أخي أرجو منك أن تصمم الفورم وأنا بحول الله أضع البرمجة تفضل جرب المرفق Data base3.rar

دكتور محمد صلاح الملف المرفق صراحة لا يطاق استغرق حوالي 4 دقائق لفتحه عندي والتعامل صعب داخل المصنف رغم أنه لا يحوي إلا ورقة عمل واحدة عموماً بعد ما طلع روحي في ملفك جرب الكود التالي ستظهر النتائج في العمود المجاور العمود L Sub MissingNumbers_YK_B() 'يقوم الكود باستخراج الأرقام الناقصة في تسلسل للأرقام ولا يشترط الترتيب '------------------------------------------------------------------- 'تعريف المتغيرات Dim InputRange As Range Dim X As Long, lRow As Long 'تعيين النطاق الذي سيحتوي على سلسلة الأرقام المراد استخراج الأرقام الناقصة منها Set InputRange = Range("M7:M" & Cells(Rows.Count, "M").End(xlUp).Row) 'مسح محتويات النطاق الذي سيتم استخراج النتائج به Range("L7:L1000").ClearContents 'حلقة تكرارية من أقل قيمة بالنطاق لأكبر قيمة بالنطاق For X = WorksheetFunction.Min(InputRange) To WorksheetFunction.Max(InputRange) 'استخدام دالة البحث فإذا كانت القيمة المراد البحث عنها غير موجودة يعطي خطأ 'وبناءً على الخطأ يتم تنفيذ السطر التالي If IsError(Application.Match(X, InputRange, 0)) Then '[L] الرقم 7 هو رقم صف البداية في العمود '[L7] يتم وضع الرقم الناقص في الخلية في الصف المحدد في الخلية Cells(lRow + 7, "L") = X 'زيادة المتغير بمقدار واحد للانتقال لصف جديد لإدراج الأرقام الناقصة lRow = lRow + 1 End If Next X End Sub طبعاً الكود سيستغرق دقائق لأن عدد الأرقام الناقصة في ملفك حوالي 16000 وشوية تقبل تحياتي