mostafaelshnawy5 قام بنشر ديسمبر 3, 2022 قام بنشر ديسمبر 3, 2022 السلام عليكم ارجو ان يساعدني احد من الاعضاء الكرام لديا قاعدة بيانات بها نموذج فاتورة مشتريات وبها نموذج فرعي ما اريده عمل زر حذف بمعني اذا كتبت فاتورة ومحتوياتها وقمت بالضغط علي زر حذف بعد كتابتها يحذف الفاتورة (النموذج الاساسي) ومشتملاتها من النموذج الفرعي تحديثات2.rar
اكرم العريقي قام بنشر ديسمبر 4, 2022 قام بنشر ديسمبر 4, 2022 قم بعمل علاقة بين جدول راس الفاتورة والاطراف واختر امكانية التحديث والحذف في العلاقة عند حذف اي سجل سيتم حذف كل السجلات المرتبطة به في الجدول الفرعي بالتوفيق https://wayprograms.blogspot.com/ 1
mostafaelshnawy5 قام بنشر ديسمبر 4, 2022 الكاتب قام بنشر ديسمبر 4, 2022 49 دقائق مضت, اكرم العريقي said: قم بعمل علاقة بين جدول راس الفاتورة والاطراف واختر امكانية التحديث والحذف في العلاقة عند حذف اي سجل سيتم حذف كل السجلات المرتبطة به في الجدول الفرعي بالتوفيق https://wayprograms.blogspot.com/ السلام عليكم اخي الفاضل اكرم بالفعل عامل العلاقة تحديث وحذف ومرفق صورة بالعلاقة
Ahmed.IQ قام بنشر ديسمبر 6, 2022 قام بنشر ديسمبر 6, 2022 (معدل) وعليكم السلام ورحمة الله .. صديقي اولاً انت قمت بعمل العلاقات بشكل خاطئ مثلا الحركة ليس لها علاقة بالمورد والعميل هذا اختصاص الفاتورة لذا انا قمت بحذف هذه العلاقة بين العميل والمورد مع الحركة , في نموذج فاتورة مشتريات انت قمت بعمل المصدر استعلام و قمت بعمل علاقة بين جدول الفاتورة و جدول الحركة وهذا خطاء لان الحركةليس لها علاقة في هذا النموذج , في نموذج مساعد فاتورة مشتريات قمبت بأضافة جدول الفاتورة لسبب وجود علاقة بين جدول الحركة و جدول الفاتورة و هيا تعتبر الجلدرن اي انها تعتمد على الفاتورة في بياناتها , في جدول الحركة حذفت حقلين المورد والعميل لانهم موجودين في الفاتورة ولا داعي لتكرارهم لانك ستعتمد على رقم الفاتورة كا مصدر لك لربط الحركة باللفاتورة. حاليا انا لم اعمل زر vba انا فقط قمت بعمل زر عن طريق المايكرو وحاليا الحذف يعمل لديك بشكل طبيعي . هناك مشكلة لم ابحث فيها كثيراً وهيا سابقاً كان هناك حقل اسمه المورد في الحركة بعد حذفه ظهرت رسالة خطاء تقول لا يوجد حقل مورد وتظهر هذه الرسالة بعد اختيار المواد ارجو منك ان تتبع المشكلة وتقوم بحلها . اتمنى ان اكون قد اعنتك في حل المشكلة . في 3/12/2022 at 22:03, mostafaelshnawy5 said: السلام عليكم ارجو ان يساعدني احد من الاعضاء الكرام لديا قاعدة بيانات بها نموذج فاتورة مشتريات وبها نموذج فرعي ما اريده عمل زر حذف بمعني اذا كتبت فاتورة ومحتوياتها وقمت بالضغط علي زر حذف بعد كتابتها يحذف الفاتورة (النموذج الاساسي) ومشتملاتها من النموذج الفرعي تحديثات2.rar 141.8 kB · 6 downloads new one.rar تم تعديل ديسمبر 6, 2022 بواسطه Ahmed.IQ
mostafaelshnawy5 قام بنشر ديسمبر 6, 2022 الكاتب قام بنشر ديسمبر 6, 2022 اخي احمد السلام عليكم جزاك الله كل خير وفعلا بشكرك جداً ملاحظتك فعلا في محلها وقد جربت المررفق بعد التعديلات الي حضرتك عملتها وبشكرك جدا ولكن ليا تعليق بسيط اذا سمحتلي ياغالي هو عند كتابة الفاتورة ثم كتابة الاصناف فاضغط علي حذف بيحذف فقط الاصناف اما راس الفاتورة بيتم حفظها وجزاك الله كل خير وزادك الله من العلم والمعرفة
Ahmed.IQ قام بنشر ديسمبر 6, 2022 قام بنشر ديسمبر 6, 2022 المشكلة هيا ان المايكرو يعتمد على موضع الماوس في الحذف لذا هو يحذف ذيل الفاتورة وليس الفاتورة نفسها ,, على العموم احذف الزر الذي قمت بعمله وستخدم زر جديد وضع فيه هذا الكود قمت بتعديل اسم حقل رقم الفاتورة داخل الجدول الى INVOID وايضا قمت بتعديل اسم الحقل في النموذج الى INVONO . نصيحة اخيرة استخدم التسميات الانكليزيه ولا تضع مسافات بين التسميات لانها تسبب كل الكثير من الصداع لو احبب ان تضع مسافه استخدم _ لتجنب المشاكل من هذا النوع , بالتوفيق ان شاء الله On Error Resume Next DoCmd.SetWarnings False DoCmd.RunSQL ("DELETE * FROM فاتورة WHERE [INVOID] = " & Me.INVONO & "") MsgBox "Êã ÍÐÝ ÇáÝÇÊæÑÉ" DoCmd.SetWarnings True Me.Requery 1
mostafaelshnawy5 قام بنشر ديسمبر 17, 2022 الكاتب قام بنشر ديسمبر 17, 2022 في 6/12/2022 at 20:47, Ahmed.IQ said: المشكلة هيا ان المايكرو يعتمد على موضع الماوس في الحذف لذا هو يحذف ذيل الفاتورة وليس الفاتورة نفسها ,, على العموم احذف الزر الذي قمت بعمله وستخدم زر جديد وضع فيه هذا الكود قمت بتعديل اسم حقل رقم الفاتورة داخل الجدول الى INVOID وايضا قمت بتعديل اسم الحقل في النموذج الى INVONO . نصيحة اخيرة استخدم التسميات الانكليزيه ولا تضع مسافات بين التسميات لانها تسبب كل الكثير من الصداع لو احبب ان تضع مسافه استخدم _ لتجنب المشاكل من هذا النوع , بالتوفيق ان شاء الله On Error Resume Next DoCmd.SetWarnings False DoCmd.RunSQL ("DELETE * FROM فاتورة WHERE [INVOID] = " & Me.INVONO & "") MsgBox "Êã ÍÐÝ ÇáÝÇÊæÑÉ" DoCmd.SetWarnings True Me.Requery السلام عليكم حابب اشكرك اخي ولكني جربت هذا الكود وايضا كان يحذف الذيل ولكني قمت بعمل استعلام حذف وتمت المهمه بحمدالله شكرا جزيلا بارك الله فيك وزادك الله من علمه
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.