عمر ضاحى

الاخ الفاضل صلاح الاكسيس بيتعامل مع كل سجل على حدا يعنى الاحداث بتحصل على مستوي السجل وبالتالى لتنفيذ طلبك هيكون عن طريق عمل جدول مؤقت لحفظ كل البيانات او التغيرات ومن ثم ترحيلها الى الجدول الاساسي

اتفضلى

لان الفريق هنا علمونا كده علمونا كيف نساعد غيرنا لانهم ساعدونا الكثير هنا من اساتذتى الكرام ساعدوني وشرحو لي والاهم علموني كيف اصتطاد فربنا يجازهيم عنا كل خير ويبارك لهم فى علمهم وصحتهم وحياتهم

الموضوع بسيط اكتبي توضيح للمطلوب واتركي الصوره تكمل طلبك

هو كان هيكون فى كلام يتكتب بس تقريبا كنتى مستعجله للدرجة انك نسيتى تكتبي 😅

مفيش تعب ولا حاجه كل ما فى الموضوع انا عاوزك تعملها بنفسك علشان تتعلمها عموما انا عملتلك مشهد للطريقة وارفقتلك الملف . JO.rar

انا ما فعلت حاجه زياده فقط طبق ما سبق ان اخبرتك به هنا ما فى اسهل من كده جرب تطبق ما تخاف من شئ

ال هى كده يعني ؟

فى السطر هذا ضيف الشرط الاخر الذى تريده مثل and ثم الشرط الغير مستثني لاني مش فاهم ايه هو الاثتثناء الذى تريده فده ال اقدر اقدمه لك

ان شاء الله مش هيكون فى مشكله لما بتكون بالانجليزي الاكسيس هيعرف يتعامل معها بدون مشاكل فلا تشيلى هما (اعتبريه خطأ مني)

طيب الحمد لله

امممممم ممكن بسبب ان النسخه عندك انجليزي جربي تغيري فى الكود السطرين ال مكتوب فيهم الى contract.RowSourceType = "Value List"

اتفضلى ما تريدين 2 combobox.rar Private Sub account_AfterUpdate() Dim strSQL As String Select Case Me.account.Value Case "فردي" ' contract.RowSource = "" contract.RowSourceType = "قائمة القيم" contract.RowSource = "بدون تعاقد;بدون تعاقد" contract.Value = "بدون تعاقد" discount.Value = "0" discount.Enabled = True Case "تعاقد" strSQL = "SELECT contract_price_tbl.code, contract_price_tbl.contract, contract_price_tbl.discount FROM contract_price_tbl;" contract.RowSourceType = "Table/Query" contract.RowSource = strSQL discount = contract.Column(2) discount.Enabled = False Case "مجاني" ' contract.RowSource = "" contract.RowSourceType = "قائمة القيم" contract.RowSource = "بدون تعاقد;بدون تعاقد" contract.Value = "بدون تعاقد" discount.Value = "100" discount.Enabled = True Case "مختبر خارجى" strSQL = "SELECT out_tbl.code, out_tbl.out FROM out_tbl;" contract.RowSourceType = "Table/Query" contract.RowSource = strSQL End Select contract.Requery End Sub

افتح الاستعلام الذى باسم S4 وفى اى عمود فاضي ادخل الكود وخلاص طبعة هتفتح الاستعلام فى وضع التصميم

طيب ايه. الغرض من رفع الملف

غدا ان شاء الله باشوفه لك لاني مش على الكمبيوتر الان

بص جرب الفكره دي فى الاستعلام رقم S4 ضع هذا المعادلة فى حقل جديد داخل الاستعلام DateS4: Format([DDate];"mm-yyyy") & "" & Format([MDate];"mm-yyyy") جرب وقول لى اذا هذا ما تريد

يمكنك اضافة التاريخ لكن اجعلها كمرجع او كشرط لكن لا يمكن ان تجعله ظاهر وده بسبب ان التواريخ فى سجلات مختلفه اتمني ان تكون الامور واضحه

هل هذا ما تريد لاحظ الاستعلامات الجديده S3 , S4 S1 , S2 يمكنك حذفهم JO.rar

تمام فهمت ان شاء الله ارجع واعرف السبب اقصد ارجع المكتب

هل هذا ما تريد ؟ JO.rar

اعذرنى 😁 فانا على قدي فى التفكير هو ايه المطلوب برضه 😅 لاني مش فاهم صراحتا ^_^

شوف هذه الفكره التى كنت اتحدث عنها وهذه مجرد طريقة واكمل انت ستجد ان الامور اصبحت اسهل بهذه الطريقة وانظر الى الاستعلام الجدولى والذى سيكون مصدر لنموذج او تقرير كيفما تحب وهتلاقى الامور اسهل للتطوير اطلع عليه واذا كانت هناك نقطة لم تفهمها بلغني المرفق TEST.rar

اعذرني على التأخر فى الرد يعنى القيم ثابته (بغض النظر عن هل الواجب كان صحيح ام خطأ لكن كونه احضر الواجب فياخد الدرجة 10 صحيح ؟ )

أستاذ @عبد اللطيف سلوم هدية مقبوله جعلها الله في ميزان حسناتك . 🌹🌹🌹