jjafferr

وعليكم السلام هذه الخاصية في النموذج فقط افرز التقرير حسب التاريخ (بهذه الطريقة) ، ثم استخدم التنسيق الشرطي لتلوينه (هكذا) لا يمكنك التحكم بهذا ، إلا اذا عملت تقريرين ، واحد بتنسيق شرطي ، والثاني بدون جعفر

وعليكم السلام ابا جودي جرب هذه المعادلة: month([Due_Date]) & "-" & year([Due_Date]) = month(date()) & "-" & year(date()) جعفر

والله يا ابومصطفى لو اخبرتنا اسماء النماذج (اللي ياللون الاحمر) من اول مشاركة ، لكان الموضوع محلول من زمان ، لكنك للأسف ما رضيت ، رغم طلباتي بالنسبة الى نموذج فاتورة المبيعات ، استعملت الاستعلام الالحاقي qry_1_BillCr : . بالنسبة الى نموذج فاتورة المشتريات ، استعملت استعلام التحديث qry_2_BillSr : . ونتيجة أول سجل في النماذج: جعفر 354.برنامج الفواتيرالناجح المعدل.accdb.zip 354.برنامج الفواتيرالناجح المعدل.accdb.zip

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

ابومصطفى انا سألتك سؤال: ولم اجد جواب ، ولكني وجدت: جعفر

وعليكم السلام اليك طريقتين ، وانا استعملت الثانية: الطريقة الاولى ، تعطيك السجل المطلوب ، ولكن لا تستطيع ان تذهب الى سجلات اخرى ، اما الطريقة الثانية ، فانت حُر كالطير ، تستطيع ان تنتقل من زهرة الى اخرى Private Sub z_AfterUpdate() '1 ' Me.Filter = "[رقم شهادة الميلادة]=" & Me.z ' Me.FilterOn = True '2 Me.[رقم شهادة الميلادة].SetFocus DoCmd.FindRecord Me.z, acAnywhere, , acSearchAll, acSearchAll, acCurrent End Sub ورجاء ، لا تسأل اسئلة جديدة في هذا الموضوع ، فهذا مخالف لقوانين المنتدى ، بد اعمل لك موضوع جديد بسؤال جديد جعفر 354.برنامج الفواتيرالناجح المعدل.accdb.zip

السلام عليكم أخي ابومصطفى ياريت تخبرنا اسماء النماذج / الاستعلامات اللي تتكلم عنها ، لأن برنامجك ماشاءالله مليان نماذج واستعلامات الطريقة الصحيحة لعمل هذا: 1. استعمال استعلام الحاقي ، 2. استعمال استعلام تحديث ، بحيث يكون فيه معيار/معايير السجل الاول وانا في برنامجك ما شفت استعلام الحاقي !! جعفر

الله يطول في عمرك أخوي ، انت عندك 6 حقول فقط ، ومدخل البيانات يخطأ !! يعني اصحاب النماذج الكبيره مثل هذه شو يقولوا: . او . لازم تفكر بطريقة تتحكم فيها برمجيا ، بحيث بعض/البيانات تكون وفق شروط وضوابط معينة جعفر

الظاهر صار وقت نومي صحيح ، والحل ان تنقل الكود من حدث "الحالي" الى حدث "التحميل" OnLoad: Private Sub Form_Current() End Sub Private Sub Form_Load() DoCmd.MoveSize 500, 500, 1000, 500 Me.InsideHeight = Me.InsideWidth = End Sub جعفر

الافضل ان يكون التاريخ مع بقية الحقول في النموذج Computer وتحذف النموذج Computer1 جعفر 352.عمر الجهاز.accdb.zip

أخي كرار ، في اي نموذج؟

وعليكم السلام في اي نموذج؟ جعفر

وعليكم السلام مع ان الطلب غريب ، لأنك تستخدم نموذج زيادة ولكن اليك الكود: Private Sub أمر18_Click() DoCmd.OpenForm "computer1", , , "[السريال نمبر]='" & Me.[السريال نمبر] & "'" End Sub جعفر 352.عمر الجهاز.accdb.zip

وعليكم السلام أخوي ابوحاتم 1. أضفت معيار حقل Class1 للنموذج Table1 ، الى الاستعلام الالحاقي: . 2. عملت الكود التالي على حدث "بعد التحديث للحقل Class1 في النموذج Table1 ، وياريت تتبع تفاصيله: Private Sub Class1_AfterUpdate() 'تأكد ان الحقل فيه رقم If Len(Me.Class1 & "") <> 0 Then 'هل هناك سجل في الجدول لهذا الرقم If DCount("*", "Table2", "[Class1]=" & Me.Class1) > Then 'لا تعطي رسائل تنبيه بالموافقة على الحاق سجلات DoCmd.SetWarnings False 'شغل الاستعلام الالحاقي DoCmd.OpenQuery "Table2 Query" 'اعطي رسائل تنبيه للاسطر التاليه DoCmd.SetWarnings True 'اطلب البيانات من الجدول من جديد للنموذج الفرعي Me.Table2_Subform.Requery 'اختر النموذج الفرعي Me.Table2_Subform.SetFocus 'اذهب الى آخر سجل ، والذي المفروض ان يكون السجل الجدي DoCmd.GoToRecord , , acLast End If 'Dcount End If 'Len End Sub . 3. اطلبك باقلة ودهن جعفر 351.d12003.2.mdb.zip

وعليكم السلام عملت استعلام للجدول Table2 ، بحيث يعطي نتائج السجل تنازليا (التاريخ الجديد يكون اول السجلات) حسب الحقل "تاريخ شغل الوظيفه": . وجعلت هذا الاستعلام كمصدر للنموذج Table2 ، وفي الحدث الحالي للنموذج Table1 ، نكتب هذا الكود: Private Sub Form_Current() If Me.[الوظيفه الحاليه] <> Me.Table2![الوظيفه المرقى عليها] Then Me.[الوظيفه الحاليه] = Me.Table2![الوظيفه المرقى عليها] DoCmd.RunCommand acCmdSaveRecord End If End Sub جعفر 350.Database1.accdb.zip

وعليكم السلام اضف هذا الكود الى عمود جديد في الاستعلام: A: IIf([Degree]-Int([Degree])<0.5,Int([Degree]),Int([Degree])+0.5) هكذا: . والنتيجة: . جعفر 349.تقريب للنصف أو الواحد الصحيح.mdb.zip

وعليكم السلام الخطأ في الكود انك عاملت الحقل namee على اساس انه رقم ، بينما هو نص فيصبح الكود: If DCount("*", "Table1", "[id]=" & Me![List0].Column(1) & " And [namee]='" & Me![List0].Column(2) & "'") > Then وفي نفس الوقت كانت هناك مشكله في مكان العلامة " للمعيار لذا انا دائما اقسم الكود اى مجموعة اسطر ، سطر لكل معيار ، عليه هكذا تكون الاسطر: A = "[id]=" & Me![List0].Column(1) A = A & " And [namee]='" & Me![List0].Column(2) & "'" If DCount("*", "Table1", A) > Then جعفر

السلام عليكم اخي نبيل مادمت متابع عمل البرنامج الاصلي ، فهذا آخر تحديث عليه: سألتك: وانت اجبت: ولكنك وللأسف ما انتبهت لأهم حقل في الجدول الذي حذفته: . هذا الجدول يجب ان يكون اسمه المبيعات/الصرف بالنسبة الى برنامجك ، وهذا الحقل يجب ان يكون حقل "كود الصنف" من جدول المخزونات ، فجدول المخزونات فيه معلومات المواد ، ولكنك تريد ان تصرف المواد وتبيعها ، لذلك يجب ان يكون عندك الجدول الآخر جعفر

حيا الله أخي كرار عملي مبني على: جعفر

كأنه كان اختبار لنا ، ونجحت فيه ، هيييييه حياك الله

السلام عليكم شباب وحيا الله السيد الجوهري ، ما عرفتك بإسمك الجديد اخي الاستاذ عبدالله قدور يتكلم من خبرة في مجال عمله ، فالنظر الى ما يقوله قد يساعدك في برنامجك على المدى البعيد اما انا فلا افهم في المحاسبة ، وانظر للبرنامج من جانب البرمجة فقط وقد يكون الحل هو: Private Sub List0_DblClick(Cancel As Integer) If DCount("*", "Table1", "[id]=" & Me![List0].Column(1)) > Then DoCmd.OpenForm "Table1", , , "[id]=" & Me![List0].Column(1) ElseIf DCount("*", "Table11", "[id]=" & Me![List0].Column(1)) > Then DoCmd.OpenForm "Table11", , , "[id]=" & Me![List0].Column(1) ElseIf DCount("*", "Table12", "[id]=" & Me![List0].Column(1)) > Then DoCmd.OpenForm "Table12", , , "[id]=" & Me![List0].Column(1) End If End Sub جعفر

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