jjafferr

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

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

وعليكم السلام اخي وضاح انت استخدمت كود غير اللي اقترحته انا ، لذا اخذ مني وقت!! انا قمت بتغيير عمل التظليل الى الطريقة الموجودة في الرابط الذي اعطيتك: أ. عملت حقل غير مضمن في النموذج الفرعي ، اسميته 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

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

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

تفضل ، المرفق بطريقة اخي رمهان جعفر 724.1.55.accdb.zip

تفضل تم الاستغناء عن كود xsql بالكامل ، واستخدام الاستعلام Qry_T1 بدلا عنه جعفر 722.1.up.accdb.zip

وعليكم السلام الرابط التالي يوضح طريقة الحساب ، والتي توضح صورتك المرفقه: http://egyptera.org/ar/t3reefa.aspx جعفر

شكرا اخي رمهان بالفعل ، يمكن الاستغناء عن الكود ، واستعمال المعادلة التاليه في الحقل مباشرة: =IIf(IsError([تابع15]![نص13]),0,[تابع15]![نص13]) جعفر