jjafferr

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

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

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

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

الى التطبيق: الطريقة: . . والنتيجة: . طريقة الاستعلام (وانت عليك الباقي ) : . او او . والنتيجة: . جعفر 355.pme.mdb.zip

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

وعليكم السلام انا اعطيتك الجواب من الناحية البرمجية ، وليس من الناحية المحاسبية ، والاخ عبد الله قدور متخصص في مجال المحاسبة وبرمجتها ، لذا انصحك ان تتبع نصائحه ، وخصوصا بسبب ملاحظاتك الاخيرة ، والتي حذرك هو منها مسبقا 1. نعم يمكن عمل هذا برمجيا ، ولكن ماذا اذا اخطأت في معلومة واردت تغييرها !! 2. لا اعرف ولكن السؤال الصحيح هو (ونرجع مرة ثانية الى نصائح الاخ عبدالله قدور) ، لماذا الترحيل الى جدول مؤقت ؟ مادامت البيانات الاصلية موجودة في جداول المشتريات والمبيعات ، فيمكنك استعمالها مباشرة من هناك ، عن طريق استعلام (مثلا) ، وبهذه الطريقة ، تتخلص من المشكلتين معا ، طبعا هذا رأي مهندس مدني هاوي البرمجة ولا يفهم شئ في المحاسبة جعفر

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

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

وعليكم السلام ابا جودي جرب هذه المعادلة: 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