jjafferr

الله يطول في عمرك أخوي ، لا ما قرأت المرفق انت ماشاء الله عليك مادمت كتبت الكود ، قلت اعطيك الجواب ، وانت تحطه في المكان اللي تريده بس مادمت مصر اني احط الجواب في الكود ، بدل هذا: Me.acpt20 بهاي: left(Me.acpt20,1) جعفر

سهله msgbox left([acpt20 ],1) جعفر

السلام عليكم أخي محمد انا لن اتطرق لطريقة عمل النموذج الجديد ، "لأننا" لم نلحظ المشكلة في النموذج الاصل ولكني دخلت في كود Combopn_AfterUpdate : pn = DLookup("pn", "code", "[pn]=forms!frm_dataentry!Combopn") size = DLookup("Size", "code", "[pn]=forms!frm_dataentry!Combopn") vendor = DLookup("Vendor", "code", "[pn]=forms!frm_dataentry!Combopn") Description = DLookup("Description", "code", "[pn]=forms!frm_dataentry!Combopn") Maxrl = DLookup("Maxrl", "code", "[pn]=forms!frm_dataentry!Combopn") Maxrlegyptair = DLookup("Maxrlegyptair", "code", "[pn]=forms!frm_dataentry!Combopn") ACType = DLookup("actype", "code", "[pn]=forms!frm_dataentry!Combopn") Pos = DLookup("pos", "code", "[pn]=forms!frm_dataentry!Combopn") BiasRadial = DLookup("biasradial", "code", "[pn]=forms!frm_dataentry!Combopn") code = DLookup("code", "code", "[pn]=forms!frm_dataentry!Combopn") لاحظت انك تنادي الجدول (اي تعمل استعلام للجدول) 10 مرات !! انا دائما لما اعمل برامجي ، اعمل البرنامج على اساس انه سيكون عبارة عن جزئين ، الواجهة FE ، والجداول BE ، وان الجداول BE ، ستكون في شبكة ، وان الواجهة FE ستكون لأكثر من مستخدم. لهذا السبب ، فيجب ان نقلل الزحمة في الشبكة ، وذلك بتقليل زيارة/استعلام الجداول قدر الإمكان ، وعند كل زيارة ، يجب ان نأخذ اكبر كمية من البيانات المطلوبة ، ثم نتعامل معها محليا في FE. لذلك ، فانا هنا اعطيك احد البدائل (والتي لا يعرفها الكثير ، لأنها تعمل على الاكسس 2003 فما فوق) ، فالكود التالي ، يقوم بزيارة/استعلام الجدول عن طريق DLookup مرة واحدة ، ويأخذ 10 بيانات مرة واحدة ، فلذا يمكن ان يستبدل كودك اعلاه: Dim x() As String A = Nz(DLookup("[pn] & '|' & [Size] & '|' & [Vendor] & '|' & [Description] & '|' & [Maxrl] & '|' & [Maxrlegyptair] & '|' & [actype] & '|' & [pos] & '|' & [biasradial] & '|' & [code]", "code", "[pn]=forms!frm_dataentry!Combopn"),"|||||||||") 'ويمكن استعمال اي شيء بدل عن | فمثلا الفاصلة 'A حتى اذا لم هناك قيمة للمتغير Nz نستعمل الدالة 'عدد مرات وضع العلامة | في نهاية السطر ، يكون نفس عددها في المعادلة 'لهذا السبب نرى اننا وضعنا 9 منها في نهاية السطر x = Split(A, "|") ' For i = LBound(x) To UBound(x) ' Debug.Print x(i) ' Next i Me.pn = x(0) Me.size = x(1) Me.vendor = x(2) Me.Description = x(3) Me.Maxrl = x(4) Me.Maxrlegyptair = x(5) Me.ACType = x(6) Me.Pos = x(7) Me.BiasRadial = x(8) Me.code = x(9) جعفر

نعم ممكن في الكود بس اللي بيصير (حسب فهمي): اذا انت دخلت التواريخ التالية للموظف لحساب مساهمته: من 1-1-1993 الى 1-1-2000 1. لازم نحسب الفترة من 1-1-1993 الى 1-8-1994 (عدد الايام ، وعدد الاشهر ، وعدد السنين) ، ثم نحسب مساهمة الراتب مال هذه الفترة ، 2. لازم نحسب الفترة من 1-8-1994 الى 1-1-2000 (عدد الايام ، وعدد الاشهر ، وعدد السنين) ، ثم نحسب مساهمة الراتب مال هذه الفترة ، 3. نجمع مساهمة الراتب 1 + 2 سؤال: هل طريقتي صحيحة؟ اذا كانت صحيحة ، فلا يوجد معنى لوجود عدد الايام ، وعدد الاشهر ، وعدد السنين في النموذج ، لأنك ما بتعرف هي حال اي مجموعة ، واللي يزيد الطين بلّه ، رقم 4 في الاسفل كذلك 4. مساهمة البدلات ، قبل تاريخ 2-11-1996 شو نسوي ابها؟ جعفر

عذرا على الخطأ جرب هذه النسخة ، وقد عملت الاستعلام qry_Loans ، وتفتحه من النموذج (شوف الصورة): طبعا تقدر تمسح كل شئ من الجداول وتبدأ من جديد ، جربه لوسمحت 1. انت تريد ان تعطي الاختيار للمموظف في عملية سداد المبلغ ، وهو يختار الاشهر؟ اذا كان الموضوع كذلك ، فيجب ان تقوم بالعملية يدويا ، فالبرنامج لا يستطيع معرفة الاشهر بهذه الطريقة!! 2. بالنسبة لتوزيع المبلغ ، فاعتقد بأن يوزع على الاشهر ، بقيمة قسط الشهر ، وليس أكثر (هذا سيسهل عملية التقرير ، وكل رقم سيكون بشهره) ، اما اذا لم نلتزم بتوزيع الاشهر حسب القسط ، فمعناه مثلا: قسط 8-2015 هو 2000 ، ولكنه دفع 4000 ، فمعناه يجب علينا ان نجمع الارقام تراكميا للحصول على الرقم النهائي ، بينما الطريقة الاولى جاهزة وبدون ارقام تراكمية بالنسبة لدمج الجدولين ، فرجاء إخباري (في صورة او اكسل) عن الحقول المتشابهة في الجدولين جعفر 11.3.FrmDiscountReport.mdb.zip

رحم الله والديك أخوي أبوخليل ، صرت في فريقنا أخي محمد ، صرنا ثلاثه (انا وراعي الغنم وأبوخليل) نقول النسخة مافيها شئ جعفر

طيب انا ما شايف اي تغيير في السجلات في هذه النسخة!!

أستاذ محمد خلينا في موضوع واحد ونحاول نحل المشكلة ، ومافي داعي لفتح موضوع جديد !! عفوا أخوي أبوخليل ، اذا ممكن لوسمحت تشاركنا في الرابط ، علشان نحل الموضوع مع بعض: http://www.officena.net/ib/index.php?showtopic=61152&p=393969 جعفر

يا فنان يا أبوخليل ، تسلم ايدك هالأفكار ما تيجيني ، ولا حتى بالفيتامينات جعفر

الظاهر في فرق بين قاعدة البيانات اللي انت شغال عليها ، وبين اللي انت ارفقته!! رجاء انك تجرب المرفق اللي وضعته لنا. جعفر

بعد الرد على سؤالي السابق ، وهل ممكن دمج جدول Cridi وجدول ElectroMeng ، مع إضافة نوع القرض (وستكون Cridi او ElectrMeng او حتى اي شئ جديد في المستقبل) ، فاذا تم هذا ، فالمسألة ستقلل من عملك بين النماذج والجداول والتقارير ، وسيكون نموذج واحد وجدول واحد جعفر

كما قلت سابقا ، انا لا يحصل عندي هذا الشئ ولكن ، غير اعدادات النموذج من All Records الى Current Record مثل الصورة: جعفر

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

مثلا: موظف عنده قرض 20,000 ، لمدة عشر اشهر ، بسداد 2,000 لكل شهر. الشهر السداد 11-2014 2000 12-2014 2000 1-2015 2000 2-2015 2000 3-2015 2000 4-2015 2000 5-2015 6-2015 7-2015 8-2015 سدد 2,000 لكل شهر ، وبقي عليه 8,000 ، الآن يريد ان يدفع 5,000 : هل اسدد من النهاية: 8-2015 2000 7-2015 2000 6-2015 1000 او اسدد من الشهر التالي للدفع: 5-2015 0 6-2015 1000 7-2015 2000 8-2015 2000 او كيف؟ جعفر

هلا والله بأصحابنا شخباركم ، شعلومكم ، ان شاء الله في خير وعافية انا تطرقت لهذا الموضوع ، كجزئية من موضوع آخر ، ووضعت رابط للقائمة ascii code الحروف العربية ، هنا: http://www.officena.net/ib/index.php?showtopic=59183&p=393754 جعفر

السلام عليكم أخي كريمو الجدول السابق tbl_Avoid تم إحالته الى التقاعد ، فلذلك فهو غير موجود في البرنامج ، العمل كله وببساطة في الجدول tbl_Loans اعمل قرض لكريمو ، وستلاحظ ان البرنامج عمل سجل كل شهر بطريقة مستقله في الجدول tbl_Loans ، قم بإعادة ترتيب الاقتطاع ، وعند الانتهاء من التنفيذ ، سترى ان السجلات في الجدول tbl_Loans تتمتشى مع التغيرات. رجاء تجربة هذه الخطوة ، لأن هذه الخطوة هي الاساس في البرنامج الان. أضف موظف آخر ، أضف نوع آخر من القروض للموظف ، ... الخطوات التاليه عليّ: 1. عندما يريد موظف تسديد اي مبلغ ، فيجب ان تخبرني كيف اقوم بالعمل ، الخطوات التاليه عليك: 1. عمل استعلام (ومن ثم تقرير) لحساب موعد دفع القروض ، والمتبقي منها ، 2. ان تعمل نفس الشئ بالنسبة لبقية القروض (اي استعمل الكود الذي عملناه لـ Cridi ، استعمله لـ Elect و بقية انواع القروض ، وطبعا انا معك للمساندة ) جعفر 11.3.FrmDiscountReport.mdb.zip

السلام عليكم ولد بلادي ادري ما سويلك سالفة ، بس السموحة التواريخ اللي انا علّمتها بالاحمر ، كيف نحسبها؟ انت عندك في النموذج: التاريخ من ، والتاريخ الى ، فكيف نحسبها ، او من اي حقل نأخذها؟ جعفر

وعليكم السلام انظر الى هذا الرابط ، فهو مشابه لسؤالك: http://www.officena....showtopic=60971 واذا عندك سؤال لاحقا ، فنحن في الخدمة جعفر

وعليكم السلام انظر الى هذا الرابط ، فهو مشابه لسؤالك: http://www.officena.net/ib/index.php?showtopic=60971 جعفر

تفضلي انا عملت الاستعلام qry_Main ، واللي النمذج الاساسي يعتمد عليه. طريقة العمل: 1. عند اختيار اي لوحة من القائمة المنسدلة ، فالنموذج يعطي سجل هذه اللوحة ، 2. وعندما تريدين جميع اللوحات ، انقري على القائمة المنسدلة مرتين Double click جعفر 68.قاعدة بيانات السيارات.accdb.zip

عفوا ، حل لأيش؟ جعفر

حيا الله أخوي 1. لأن كان فيه شوية اشياء تعقد عمل البرنامج ، واشياء ما ممكن تشغل البرنامج ، مثل انك جعلت حقل ID غير مسموح تكراره في الجدول ADS (قلت في خاطري: يا حظهم الطلبة ، يقدر الواحد فيهم يتأخر كل يوم ، بس يتسجل عليه تأخير يوم واحد فقط في السنة ) ، 2. كل شئ يصير ، بس لما يكون عندك اكثر من 1000 طالب ، فيا الله الله يمديك تسجل حضورهم ، وتريد في نفس الوقت تسجل معلوماتهم كذلك!!! 3. في مشاركتي السابقة ، شوف الكود اللي عليه مربع احمر رقم 1 ، احذف اشارة ' من امام كل سطر ، وبيشتغل الكود ان شاء الله جعفر

افتح الكود ، وابحث عن: bmp وسترى الاسم الباحث جعفر

حياك الله أخوي أبوخليل حيا الله أخوي أبو يزن 1. انا جاد في كل كلمة قلتها ، فمعناه ان هناك من يستطيع ان يحصل على ما يريد ، بغض النظر عن اي نوع من انواع الحمايات اللي بتعملها ، سواء للأكسس او اي برنامج آخر 2. نعم لا يمكن التعديل عليه ، فيجب عليك الاحتفاظ بالنسخة المفتوحة المصدر لعمل التغييرات ، ثم قفلها الى mde او accde 3. ابحث في المنتدى ، وستجد المطلوب ، لأن هذا الموضوع مب تخصصي ، فما افهم فيه الكفاية (وكذلك انا جاد ، رحم الله إمرئ عرف قدر نفسه ) الجاد جعفر

وعليكم السلام حول البرنامج الى mde او accde بالطريقة هذه ، غير ممكن الحصول على الكود (لقسم منا ) ، وشفّر بيانات الجداول ، فحتى لو استطاعوا الوصول لداخل البرنامج (قسم منا ) ، فلن يستفيدوا من البيانات ، جعفر