jjafferr

انا اعمل على برنامجك الآن ، ونسال الله التوفيق جعفر

تفضل ياسيدي 727.1.Database321.7777777.accdb.zip

اذا كان قصدك جمع الـ 57 حقل في الجدول Students_names لكل طالب: . فالاسهل هو عمل وحدة نمطية لجمع هذه الحقول (انا اسميتها Get_Total) ، ومناداة هذه الوحدة النمطية من الاستعلام ، بحيث نرسل لها اسم الطالب ، وتقوم الوحدة النمطية بقراءة قيم حقول الطالب وجمعها: . وهذه الوحدة النمطية: Function Get_Total(N) Dim T1 As Integer Dim T2 As Integer Set rst = CurrentDb.OpenRecordset("Select * From Students_names Where [الاسم]='" & N & "'") T1 = Nz(rst![year_Ar], 0) + Nz(rst![F1_Ar], 0) + Nz(rst![F2_Ar], 0) + Nz(rst![year_Eng], 0) + Nz(rst![f1_Eng], 0) _ + Nz(rst![f2_Eng], 0) + Nz(rst![year_F], 0) + Nz(rst![f1_F], 0) + Nz(rst![f2_F], 0) + Nz(rst![year_Goem], 0) _ + Nz(rst![f1_goem], 0) + Nz(rst![f2_goem], 0) + Nz(rst![year_Algeb], 0) + Nz(rst![f1_Algeb], 0) + Nz(rst![f2_Algeb], 0) _ + Nz(rst![year_Bio], 0) + Nz(rst![M_BIO1], 0) + Nz(rst![T_BIO1], 0) + Nz(rst![M_BIO2], 0) + Nz(rst![T_BIO2], 0) _ + Nz(rst![year_chem], 0) + Nz(rst![m_Chem1], 0) + Nz(rst![T_Chem1], 0) + Nz(rst![m_Chem2], 0) + Nz(rst![T_Chem2], 0) _ + Nz(rst![year_histo], 0) + Nz(rst![T_histo1], 0) + Nz(rst![T_histo2], 0) T2 = Nz(rst![year_phys], 0) + Nz(rst![m_phyis1], 0) + Nz(rst![T_phys1], 0) + Nz(rst![m_phyis2], 0) + Nz(rst![T_phys2], 0) _ + Nz(rst![year_Goeg], 0) + Nz(rst![T_Goeg1], 0) + Nz(rst![T_Goeg2], 0) + Nz(rst![year_philaso], 0) + Nz(rst![T_philaso1], 0) _ + Nz(rst![T_philaso2], 0) + Nz(rst![year_coump], 0) + Nz(rst![m_f1_coump], 0) + Nz(rst![T_f1_coump], 0) _ + Nz(rst![m_f2_coump], 0) + Nz(rst![T_f2_coump], 0) + Nz(rst![year_Relig], 0) + Nz(rst![f1_Relig], 0) + Nz(rst![f2_Relig], 0) _ + Nz(rst![year_nation], 0) + Nz(rst![f1_nation], 0) + Nz(rst![f2_nation], 0) + Nz(rst![year_field], 0) _ + Nz(rst![year_nashat], 0) + Nz(rst![f1_nashat], 0) + Nz(rst![f2_nashat], 0) + Nz(rst![year_Badnia], 0) _ + Nz(rst![f1_Badnia], 0) + Nz(rst![f2_Badnia], 0) Get_Total = T1 + T2 rst.Close: Set rst = Nothing End Function . ونتيجة الاستعلام: . جعفر 730.sec1_2017-08-04.mdb.zip

وعليكم السلام يالسيد صحيح ان مجموع احجام كائنات الاكسس FE و BE لا تتعدى 2 جيجا ، ولكن الوصول الى هذا الحد لبرنامج محل تجاري خلال 20 سنه سيكون شيء غريب (طبعا اذا كانت البرمجة صحيحة) للمقارنه فقط ، عملت برنامج شؤون موظفين لمؤسسة فيها اكثر من 4000 موظف ، منذ منتصف 2014 ، وهناك 4-6 اشخاص يعملون على ادخال البيانات يوميا ، وحجمه كالتالي (المساحة تقريبية): BE =ح 50 ميجابايت مجلد الصور الشخصية = 500 ميجا مجلد صور الملفات الشخصية = 110 جيجا وانت اعمل المقارنة جعفر

وعليكم السلام مثل ما قال اخي احمد ، وبالصورة . جعفر

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

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

وعليكم السلام اخي وضاح انت استخدمت كود غير اللي اقترحته انا ، لذا اخذ مني وقت!! انا قمت بتغيير عمل التظليل الى الطريقة الموجودة في الرابط الذي اعطيتك: أ. عملت حقل غير مضمن في النموذج الفرعي ، اسميته MYn1 ، والذي سيأخذ قيمة حقل البحث n1 والموجود في النموذج الفرعي ، MYn1 مخفي ، ويأخذ قيمة n1 لما تكتب الكلمة اللي تريد البحث عنها: Private Sub n1_Change() Dim x Me.[تابع132]![MYn1] = Me.n1.Text . ب. التنسيق الشرطي: 1.نختار جميع حقول النموذج الفرعي ، 2.من قائمة التنسيق ، نختار التنسيق الشرطي ، 3. الشرط هو: اذا [Rajmsanf]=[MYn1] إعمل التظليل: . والكود اللي عندك في حدث الحالي في النموذج الفرعي والذي كان يقوم بالتظليل ، تم ايقافه جعفر 727.Database321.7777777.accdb.zip

السلام عليكم سأستخدم عمل أخي شفان ، واقوم بالتعديل عليه في الجدول ، انا لم اغير نوع الحقل الى تاريخ ، وانما استعملت الامر CDate في استعلامات اخي شفان ، لتحويل النص الى تاريخ: . ولربط هذا الاستعلام (حقل Date هنا اصبح تاريخ) بالجدول (حقل Date لا يزال نص) ، فلا يمكن ربط الحقلين في استعلام ، لذا عملت استعلام qry_enterans_absent للجدول enterans_absent ، وفيه غيرت الحقل الى تاريخ ، وربطت الاستعلامين اعلاه في الاستعلام Q2 ، والذي يحتوي على النتائج المطلوبه جعفر 729.new work.accdb.zip

لم اجد سببا ، ولكني اوقفت الرسالة بهذا الكود في النموذج الفرعي: Private Sub Form_Error(DataErr As Integer, Response As Integer) If DataErr = 2448 Then Response = acDataErrContinue End If End Sub اعتقد بأنه عندك خطأ ما في الربط بين النموذج الرئيسي والفرعي ، فعلى الرغم من حفظ البيانات في النموذج الفرعي ، إلا انها لا تظهر لاحقا !! جعفر 728.Test_Backup.accdb.zip

انت لم تشر الى هذه النقطة من البداية ، فكل عملي كان على عمل استعلام يربط الجدولين برقم الفاتورة ، وهذا معناه انه اذا الفاتورة غير موجودة في احد الجداول ، فانها لن تظهر في الاستعلام!! طيب ، هناك حل بسيط لهذه النقطة ، ولكن بشرط اذا كان هناك جدول واحد يحتوي على جميع الفواتير والجدول الآخر لا يحتوي على جميع الفواتير ، فهل جداولك كذلك ، واذا الجواب نعم ، فأي الجداول تحتوي على جميع الفواتير؟ جعفر

تم الاجابة على السؤال هنا: جعفر

تفضل عدت الى الكود السابق ، وعدلت عليه ، والنتيجة: جعفر 722.1.up.accdb.zip

تفضل ، رابط فيه مرفق http://www.helenfeddema.com/Files/accarch173.zip جعفر

انت بهذه الطريقة تريدنا ان نقوم بالعمل بدلا عنك رجاء ابدأ المشوار (بمثال اخونا ابو الاء مثلا) ، ثم اطرح علينا المشكلة التي تواجهك ، مرفقا مثالك وفيه الخطوات التي عملتها ، وان شاء الله ترى الجميع يلبي طلبك انت تقول عن نفسك: "البرمجه وتطبيقاتها امنيه عمرى" ، فرحلة التطبيقات تبدأ بكود جعفر

وعليكم السلام هل قصدك انه لما تكون على سجل معين ، تريد خلفية السجل تتحول الى اللون الازرق ، ولما تنتقل الى سجل آخر ، تريد السجل السابق ترجع خلفيته الى الابيض ، والسجل الجديد الذي تكون عليه تتحول خلفيته الى الازرق؟ جعفر

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

وعليكم السلام اهلا وسهلا بك في المنتدى واللي اوله شرط ، اخره نور انت بأول سؤال لك خالفت قواعد المشاركة في المنتدى !! فالمنتدى مليء بمثل سؤالك ، وكل ما عليك فعله هو استعمال خاصية البحث الموجودة في المنتدى (المادة 2 ادناه) وستحصل على الكثير من المواضيع المشابهة لسؤالك قواعد المشاركة فى الموقع اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة و بصفة خاصة نؤكدعلى ما يلي 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم. جعفر

طيب ممكن ترفق SQL الاستعلام Name_All

ارفق برنامجك للنظر فيه جعفر

اعمل وحدة نمطية ، وناديها من الاستعلام ، بحيث ترسل لها الاستهلاك ، وفي الوحدة النمطية تقوم بالحساب (جميع معادلاتك تكون هناك) ، ومن هناك تقرر كيف تريد ان ترى النتائج جعفر

وعليكم السلام عدة طرق تجي على بالي: 1. في النموذج الفرعي (اسمه مثلا s_Search_All) ، اعمل حقل لحساب عدد السجلات ولنسميه s_count ، ويمكنك عمله هكذا: =Count(*) وفي النموذج الرئيسي تعمل حقل يأخذ قيمة الحقل اعلاه ، هكذا: =IIf(IsError([s_Search_All]![s_count]),0,[s_Search_All]![s_count]) والشكرا لأخي رمهان على هذه المعادلة ، والتي فائدتها عندما لا تكون سجلات في النموذج الفرعي ، لا نحصل على خطأ 2. تستطيع ان تعمل تحسب عدد السجلات من الاستعلام مباشرة ، هكذا (ويعتمد على معايير الاستعلام ، فقد يجب عليك وضع المعيار في المعادله): =dcount("*","Name_All") 3. تستطيع ان تحسب عدد سجلات النموذج الفرعي هكذا ، بحيث يكون اسم الحقل في النموذج الرئيسي SubForm_Records: dim rst as dao.recordset set rst=me.[s_Search_All]![s_count].recordsetclone rst.movelast:rst.movefirst me.SubForm_Records=rst.recordcount rst.close: set rst=nothing جعفر

وعليكم السلام الرسالة تقول بأنه لا يمكنك إضافة بيانات في حقل معين ، وهناك عدة اسباب لهذه الرسالة ، ولا يمكن حلها إلا برؤية البرنامج جعفر

وعليكم السلام بما انك عملت البحث ليعطي نتائجه بعد ادخال المعلومة (على حدث عند التغيير On Change) وبدون وجود زر خاص ، لهذا السبب لن نعرف متى انتهيت من البحث لذلك ، وضعت لك الكود في حدث "عندما يفقد الحقل التركيز On Lost Focus" (وتستطيع وضعه على حدث عند الخروج من الحقل On Exit) ، يعني بعد ان تنتهي من البحث ، اضغط على Enter او Tab ، وستذهب الى الحقل الذي تريد ، وبما ان الحقل الذي تريد نقل التركيز اليه موجود في نموذج فرعي ، لذا يتوجب اولا نقل التركيز الى النموذج الفرعي ثم نقل التركيز الى الحقل: Private Sub n1_LostFocus() Me.تابع132.SetFocus Me.تابع132!rgmhsab.SetFocus End Sub جعفر 726.نقل موشر الماوس بعد التحديث.accdb.zip

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