اذهب الي المحتوي
أوفيسنا

مساعدة في انشاء فاتورة مشتريات


mostafaelshnawy5

الردود الموصى بها

السلام عليكم 

ارجو ان يساعدني احد من الاعضاء الكرام

لديا قاعدة بيانات بها نموذج فاتورة مشتريات وبها نموذج فرعي ما اريده

عمل زر حذف بمعني اذا كتبت فاتورة ومحتوياتها وقمت بالضغط علي زر حذف بعد كتابتها يحذف الفاتورة (النموذج الاساسي) ومشتملاتها من النموذج الفرعي

 

تحديثات2.rar

رابط هذا التعليق
شارك

قم بعمل علاقة بين جدول راس الفاتورة والاطراف

واختر امكانية التحديث والحذف في العلاقة

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

بالتوفيق

https://wayprograms.blogspot.com/

  • Like 1
رابط هذا التعليق
شارك

49 دقائق مضت, اكرم العريقي said:

قم بعمل علاقة بين جدول راس الفاتورة والاطراف

واختر امكانية التحديث والحذف في العلاقة

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

بالتوفيق

https://wayprograms.blogspot.com/

السلام عليكم اخي الفاضل اكرم بالفعل عامل العلاقة تحديث وحذف ومرفق صورة بالعلاقة1.png.66e2555a125395d7dfa87dc3db342d97.png

رابط هذا التعليق
شارك

وعليكم السلام ورحمة الله ..

صديقي اولاً انت  قمت بعمل العلاقات بشكل خاطئ مثلا الحركة ليس لها علاقة بالمورد والعميل هذا اختصاص الفاتورة لذا انا قمت بحذف هذه العلاقة بين العميل والمورد مع الحركة , 

في نموذج فاتورة مشتريات انت قمت بعمل المصدر استعلام و قمت بعمل علاقة بين جدول الفاتورة و جدول الحركة وهذا خطاء لان الحركةليس لها علاقة في هذا النموذج ,

في نموذج مساعد فاتورة مشتريات قمبت بأضافة جدول الفاتورة لسبب وجود علاقة بين جدول الحركة و جدول الفاتورة و هيا تعتبر الجلدرن اي انها تعتمد على الفاتورة في بياناتها ,

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

حاليا انا لم اعمل زر   vba انا فقط قمت بعمل زر عن طريق المايكرو وحاليا الحذف يعمل لديك بشكل طبيعي .

هناك مشكلة لم ابحث فيها كثيراً وهيا سابقاً كان هناك حقل اسمه المورد في الحركة بعد حذفه ظهرت رسالة خطاء تقول لا يوجد حقل مورد  وتظهر هذه الرسالة بعد اختيار المواد ارجو منك ان تتبع المشكلة وتقوم بحلها .

اتمنى ان اكون قد اعنتك في حل المشكلة .

في 3‏/12‏/2022 at 22:03, mostafaelshnawy5 said:

السلام عليكم 

ارجو ان يساعدني احد من الاعضاء الكرام

لديا قاعدة بيانات بها نموذج فاتورة مشتريات وبها نموذج فرعي ما اريده

عمل زر حذف بمعني اذا كتبت فاتورة ومحتوياتها وقمت بالضغط علي زر حذف بعد كتابتها يحذف الفاتورة (النموذج الاساسي) ومشتملاتها من النموذج الفرعي

 

تحديثات2.rar 141.8 kB · 6 downloads

 

new one.rar

تم تعديل بواسطه Ahmed.IQ
رابط هذا التعليق
شارك

اخي احمد السلام عليكم جزاك الله كل خير وفعلا بشكرك جداً ملاحظتك فعلا في محلها 

وقد جربت المررفق بعد التعديلات الي حضرتك عملتها وبشكرك جدا ولكن ليا تعليق بسيط اذا سمحتلي ياغالي

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

وجزاك الله كل خير وزادك الله من العلم والمعرفة

رابط هذا التعليق
شارك

المشكلة هيا ان المايكرو يعتمد على موضع الماوس في الحذف لذا هو يحذف ذيل الفاتورة وليس الفاتورة نفسها ,, على العموم احذف الزر الذي قمت بعمله وستخدم زر جديد وضع فيه هذا الكود

قمت بتعديل اسم حقل رقم الفاتورة داخل الجدول الى INVOID وايضا قمت بتعديل اسم الحقل في النموذج الى INVONO .

نصيحة اخيرة استخدم التسميات الانكليزيه ولا تضع مسافات بين التسميات لانها تسبب كل الكثير من الصداع لو احبب ان تضع مسافه استخدم _ لتجنب المشاكل من هذا النوع , بالتوفيق ان شاء الله

On Error Resume Next
DoCmd.SetWarnings False
DoCmd.RunSQL ("DELETE * FROM فاتورة WHERE [INVOID] = " & Me.INVONO & "")
MsgBox "Êã ÍÐÝ ÇáÝÇÊæÑÉ"
DoCmd.SetWarnings True
Me.Requery

 

  • Like 1
رابط هذا التعليق
شارك

  • 2 weeks later...
في 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.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information