jjafferr

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

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

تفضل عدت الى الكود السابق ، وعدلت عليه ، والنتيجة: جعفر 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]) جعفر

تفضل جعفر 722.1.up.accdb.zip

السلام عليكم الطريقة التي اقترحتها لم تفلح ، لذا استخدمت الكود التالي لعمل اللازم Private Sub Sub_Values() On Error GoTo err_Sub_Valuest Dim rst As DAO.Recordset Set rst = CurrentDb.OpenRecordset("Select * From [مساعد يوميه]") rst.MoveLast: rst.MoveFirst RC = rst.RecordCount 'a pause is required PauseTime = 0.5 Start = Timer Do While Timer < Start + PauseTime DoEvents Loop If RC > 0 Then Me.نص130 = Me.[تابع15]![نص13] Me.نص228 = Me.[تابع15]![نص23] Me.نص28 = Me.[تابع15]![نص17] Me.نص132 = Me.[تابع15]![نص29] End If rst.close: Set rst = Nothing Exit Sub err_Sub_Valuest: If Err.Number = 3021 Then 'No Records in SubForm Me.نص130 = 0 Me.نص228 = 0 Me.نص28 = 0 Me.نص132 = 0 ElseIf Err.Number = 3061 Then 'parameter required Set db = CurrentDb Set qdf = db.QueryDefs("[مساعد يوميه]") For Each prm In qdf.Parameters prm.Value = Eval(prm.name) Next prm Set rst = qdf.OpenRecordset(dbOpenDynaset) Resume Next Else MsgBox Err.Number & vbCrLf & Err.Description End If End Sub . ونناديها مرتين ، مرة في الحالي للنموذج الرئيسي ، ومرة عند تغيير التاريخ: Private Sub Form_Current() Me.[تابع15].Requery Call Sub_Values End Sub Private Sub n2_Exit(Cancel As Integer) Call cmd_Search2_Click Call Sub_Values End Sub . جعفر 724.55.accdb.zip

السلام عليكم الظاهر انك ارفقت البرنامج الخطأ !! جعفر

طيب لو تكمل جميلك وترد على باقي السؤال لوسمحت: جعفر