jjafferr

وعليكم السلام يا مثل ما قال أخي الاستاذ علي ، وهو تلقى في الكود انت طالب من الاكسس ما يعطيك الرسائل: docmd.setwarnings false وبعدين نسيت ان تطلب منه يعطيك الرسائل: docmd.setwarnings true او في اعدادات الاكسس انت ما مختار ان الاكسس ينبهك: جعفر

في الواقع انا فاتح برنامجك من فترة ، بس ما قادر اتوصل لنتيجة وعلى العموم ، اذا قدرت تعمل استعلام الحاقي ، فموضوعك يعتبر منتهي ، لأن المعلومات راح تكون في الجدول AllTrans وفي البرنامج ، مافي صح وغلط (يعني طريقتي ما لازم تكون نفس طريقتك ) ، فيه انه يعمل المطلوب او لا جعفر

حياك الله أخوي محمود في هذه الحالة اخفض مستوى الامان في الاكسس جعفر

الطريقة في تصميم الاستعلام ، كما تراه في الصورة الاولى الاستعلام الاول: بما ان السؤال محتاج للاشهر ، فاول شئ لازم نجهزة في الاستعلام هو طريقة عرض الاشهر ، لذا نستخدم استعلام مجاميع ، لنجمع انواع الاشهر في مجموعات ، فيجب ان نحول التاريخ الى شهر-سنة ، وهنا استعملت الدالة Format لذلك ، وعملنا للحقل Group by ، اي يجب مجموعات البيانات المشابهة (شهر-سنة) ، الآن ننزل حقل "قيمة الطلبية" ، وبما اننا نريد مجموع مبالغ الاشهر (اللي عملناه سابقا) ، فنختار Sum . وبعد عرض البيانات ، اردت ان اجعل فرزها اشهر-سنوات Ascending ، فاضطررت ان اضيف حقل جديد لهذه العملية ، وهو حقل السنة ، ففرزته ابجديا ، وبعدها فرزت حقل شهر-سنه ، فاصبح فرز النتائج بالطريقة التي اريدها جعفر

. وعليكم السلام أخوي رمهان والله اعرف ان كلامك ماهو موجه لشخص وهذا ميزة ان أكثر من شخص ذو خبرة يتناقشوا موضوع من وجهة نظرهم ، والذي بالتالي يكون إثراء للموضوع جعفر

معلش ، خذني على قد عقلي ، ترى فهمي بطئ ، ورجاء اشرح بطريقة موسعة علشان استوعب كلامك واستوعب المطلوب جعفر

يعني انحلت المشكلة ان شاء الله جعفر

انا استعملت الاستعلام T1 واضفت المعيار للحقل IDT ، فاصبح يعطي نتائج النموذج الرئيسي والفرعي: . وجربته ، وتم الحاق البيانات الى الجدول AllTrans فأين المشكلة؟ جعفر

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

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

وعليكم السلام رجاء ارفاق البرنامج مرة ثانية ، فرابط المرفقين لا يعملون وهل موضوعك فيه سؤال واحد او سؤالين؟ جعفر

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

وعليكم السلام 1. الظاهر انك تشتغل على الكود والنموذج مفتوح ، وهذه الطريقة غير صحيحة للعمل فقد يعطل البرنامج بسببها ، وانما يجب ان يكون النموذج في وضع تصميم ، ثم تقوم بتغيير الكود ، 2. هناك كود Timer في احد نماذجك ، وهذا النموذج شغال ، وهو سبب هذه المشكلة ، فيا انك تغلق النموذج ، او انك تضعه في وضع التصميم (يعني جعل كود الـ Timer لا يشتغل) جعفر

وعليكم السلام تفضل . والنتيجة . جعفر 321.New Microsoft Access قاعدة بيانات (6).accdb.zip

السلام عليكم ورحمة الله وبركاته وحيا الله أخوي رمهان اعتقد الموضوع له علاقة بهذا الموضوع ايضا: http://www.officena.net/ib/topic/65923-مشكلة-الدالة-sum-مع-ويندوز-8/?do=findComment&comment=428975 انا وكما كتبت هنا ، وايضا في ملفي الشخصي : . فانا لا اعرف الكثير عن الاشياء النظرية العلمية ، وتجربتي كلها عملية ولكن بالنسبة للإختزال ، فهنا امرين: 1. اذا هناك دالة موجودة تقوم بالعمل بسطر واحد ، فنعم ، الافضل استعمالها ، ولكن اذا كان هناك مشكلة في الدالة (كأن تعمل في اصدار اكسس ولا تعمل في اصدار آخر) ، فما فائدتها وانت ببرنامجك الضخم امام الزبون ، ولا يعمل برنامجك عنده ، انظر هذا المثال . 2. واما اختزال الكود ، فنرى ان هذا الكود البسيط نسيبا ، كيف ان تغييره صعب ، وكيف ان تفكيكه الى عدة اسطر جعله سهل القراءة والتغيير عليه ، واما هذا الكود المعقد والذي قام به أخي الاستاذ رمهان ، فكما قال: وانا حاولت "بخبرتي العمليه" ان: وفشلت والشئ الآخر هو ، صحيح ان الاختزال يبدوا سطر واحد ، ولكنه في الكثير من الاحيان عبارة عن عدة اوامر في سطر واحد ، فلهذا السبب ، جعلها في سطر واحد او تفكيكها الى عدة اسطر ، سيان للكمبيوتر. ولكن وللأمانه . جعفر

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

. لا ادري ، لهذا السبب فانا لا استعمله مطلقا في برامجي في النماذج ولكن الظاهر ان هذه المعادلة لا تتأثر في التقارير ، وعلى هذا ، فلا استعملها في التقارير ايضا. ذهبت الى أحد المؤسسات الدينية البارزة وعرضت عليهم خدماتي كمتطوع ، فأول شئ تكلموا معي عنه هو برنامج اساسي في عملهم كان معمول لهم على الاكسس 2003 ، وانهم لم يستطيعوا تشغيله على الاكسس 2007 ، وطلبوا من المبرمج ان يغير لهم البرنامج (طبعا مقابل مبلغ مالي) ، ولكن المبرمج اعتذر وقال ان هذه العملية ستأخذ من 3 الى 6 اشهر. انا عرضت عليهم ان انظر في البرنامج وقد استطيع اصلاحه ، وطبعا نظروا لي نظرة استغراب ، ولكنهم قالوا مافي ضرر من معاينتك للبرنامج. بالاضافة الى بعض التغييرات البرمجية التى اضطررت القيام بها ، كانت هذه المعادلة موجودة في اكثر من مكان في البرنامج ، وبعد حوالي الساعتين ، اشتغل البرنامج على 2007 جعفر

وعليكم السلام انا شخصيا ما استعمل: =Nz(Sum([Qty]),0) لأنها لم تشتغل في عدة برامج (مب برامجي ) ، وبالخصوص في الاكسس 2007 !! انا اعمل التالي في الجمع: Public Sub Add_qty() Dim rst As DAO.Recordset Set rst = Me.RecordsetClone rst.MoveLast: rst.MoveFirst RC = rst.RecordCount Me.Sum_Qty = 0 Me.Sum_Items = 0 For i = 1 To RC Me.Sum_Qty = Me.Sum_Qty + rst!Qty Me.Sum_Items = Me.Sum_Items + rst!total_item rst.MoveNext Next i rst.Close: Set rst = Nothing End Sub والمرفق فيه حقلين جدد تحت حقولك الاصليين ، وفيهما نتيجة الجمع جعفر 319.KFC.mdb.zip 319.KFC.mdb.zip

يا سلام عليك أخوي ابوخليل ، وفرت عليّ الوقت بالاضافة الى ملاحظات أخوي أبوخليل ، لا تنسى ان تضع علامة صح بيم الرقمين 2 و 3 ، حتى نتائج الحقل جعفر

وعليكم السلام تفضل جعفر 320.New Microsoft Access قاعدة بيانات (6).accdb.zip

حياك الله انا عادة لا استعمل الاختصار مثل ما عملت انت ، وانما اخلي الكود يأخذ راحته في الاسطر ، لأني بعد عدة اشهر لما انظر للكود ، اريد ان اعرف ماهية الكود هذا الجزء من الكود اخذته من هذه المشاركة: http://www.officena.net/ib/topic/65589-النقر-المزدوج-لفتح-تقرير-بواسطة-نموذج-فرعي/?do=findComment&comment=427245 Msg = "This month is NOT in the table CCP" & vbCrLf & _ "Do you want to ADD A NEW RECORD ?" Style = vbYesNo + vbCritical + vbDefaultButton2 Title = "No values in CCP" Response = MsgBox(Msg, Style, Title) If Response = vbYes Then ' User chose Yes. rst.AddNew rst!NCcp = Me.NCcp rst!txtMonth = Me.txtMonth1 rst!TheValue = DSum("[TV]", "[qry_1-5_Sum]") rst.Update Else ' User chose No. GoTo Exit_Sub End If . وهذا الرابط: http://www.officena.net/ib/topic/63966-طلب-تحويل-ساعات-العمل-الى-أيام/?do=findComment&comment=415801 Dim Msg, Style, Title, Response Msg = "هل انت متأكد من المواصلة" & vbCrLf & _ "Are you sure you want to continue ?" ' Define message. Style = vbYesNo + vbCritical + vbDefaultButton2 ' Define buttons. Title = "رجاء التأكيد" ' Define title. Response = MsgBox(Msg, Style, Title) If Response = vbNo Then ' User chose Yes. Exit Sub End If وروابط كثيرة لذا نصيحتي لك: توسع في كتابة الكود ، وفككه الى اسطر بدل ان تستعمل سطر واحد (وللعلم أخي الاستاذ رمهان فنان في عمل كود السطر الواحد) ، ففي المستقبل ، سترى الفائدة جعفر

حيا الله بوعبدالله في الـ VBA ، ابحث عن msgbox ، ولما تطلع نتيجة البحث ، ستجد فيه مثال للذي تريده جعفر