.زيادة الكمية عند ادخال نفس المادة في الفاتورة

[athal]

السلام عليكم

اشكر الاساتذة المحترمين  والقائمين في خدمة الاعضاء

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

جزاكم الله خيرا .

invoice.rar

[Shivan Rekany]

1 ساعه مضت, athal said:

السلام عليكم

اشكر الاساتذة المحترمين  والقائمين في خدمة الاعضاء

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

جزاكم الله خيرا .

invoice.rar

اتفضل

استخدمت هذا الكود

Private Sub Form_BeforeUpdate(Cancel As Integer)
Dim sql As String
If DCount("[ItemID]", "[InvoiceDetails Table]", "[InvoiceID]=" & Me.InvoiceID & "and [ItemID]=" & Me.ItemID) > 0 Then
sql = "UPDATE [InvoiceDetails Table] SET [InvoiceDetails Table].Quantity = [InvoiceDetails Table]![Quantity]+[Forms]![Invoice Table]![InvoiceDetails Table Subform].[Form]![Quantity] WHERE ((([InvoiceDetails Table].InvoiceID)=[Forms]![Invoice Table]![InvoiceDetails Table Subform].[Form]![InvoiceID]) AND (([InvoiceDetails Table].ItemID)=[Forms]![Invoice Table]![InvoiceDetails Table Subform].[Form]![ItemID]));"
DoCmd.SetWarnings (warningsoff)
DoCmd.RunSQL (sql)
Me.Undo
DoCmd.SetWarnings (warningson)
End If
End Sub

واليك قاعدة بياناتك بعد تعديل

 

invoice.rar

[Ahmed.IQ]

عندي سؤال للاخ athal فرضاً لو أن الاسعار تغيرت وانت رابط رقم المادة مع العدد فقط وليس السعر .

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

يمكن ان تضيف سعر مع رقم الصنف حيث يكون رقم الصنف ثابت في الفاتورة والسعر يحفظ بنفس الوقت الذي تم البيع به الفاتورة واي تحديث على قائمة الاسعار لا يأثر بالاسعار التي تم البيع بها سابقاً

[athal]

22 دقائق مضت, Shivan Rekany said:

اتفضل

استخدمت هذا الكود

Private Sub Form_BeforeUpdate(Cancel As Integer)
Dim sql As String
If DCount("[ItemID]", "[InvoiceDetails Table]", "[InvoiceID]=" & Me.InvoiceID & "and [ItemID]=" & Me.ItemID) > 0 Then
sql = "UPDATE [InvoiceDetails Table] SET [InvoiceDetails Table].Quantity = [InvoiceDetails Table]![Quantity]+[Forms]![Invoice Table]![InvoiceDetails Table Subform].[Form]![Quantity] WHERE ((([InvoiceDetails Table].InvoiceID)=[Forms]![Invoice Table]![InvoiceDetails Table Subform].[Form]![InvoiceID]) AND (([InvoiceDetails Table].ItemID)=[Forms]![Invoice Table]![InvoiceDetails Table Subform].[Form]![ItemID]));"
DoCmd.SetWarnings (warningsoff)
DoCmd.RunSQL (sql)
Me.Undo
DoCmd.SetWarnings (warningson)
End If
End Sub

واليك قاعدة بياناتك بعد تعديل

 

invoice.rar

استاذي القدير شفان

بارك الله فيك

اشكر لك  سرعة تجاوبك واقدر كرمك

جزاك الله خيرا

13 دقائق مضت, Ahmed.IQ said:

عندي سؤال للاخ athal فرضاً لو أن الاسعار تغيرت وانت رابط رقم المادة مع العدد فقط وليس السعر .

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

يمكن ان تضيف سعر مع رقم الصنف حيث يكون رقم الصنف ثابت في الفاتورة والسعر يحفظ بنفس الوقت الذي تم البيع به الفاتورة واي تحديث على قائمة الاسعار لا يأثر بالاسعار التي تم البيع بها سابقاً

استاذي احمد الكريم

لم انتبه لذلك

بارك الله فيك  واشكر لك واقدر نصيحتك وساعمل بها باذن الله

جزاك الله خيرا

تم تعديل أبريل 17, 2017 بواسطه athal

[ابوآمنة]

أخي الكريم شفان / أو الأعضاء

حاولت عمل ذلك على  القاعدة المرفق فلم يضبط معي 

ممكن تساعدنا في ذلك 

حيث لدي فاتورة بيع وفاتورة شراء فيجمع جميع النموذج الفرعي 

أيضا تظهر لي رسالة خطأ لوضع رقم الصنف 

 

الفواتير.rar

تم تعديل مارس 2, 2018 بواسطه saleh204

[ابوآمنة]

أعزائي الكرام

أرجو المساعدة

 

[صالح حمادي]

السلام عليكم

إطلع على هذا الموضوع إن شاء الله تجد به الحل

 

[النجاشي]

بارك الله فيك استاذنا الكريم كم انت طيب القلب @صالح حمادي ان شاء الله يجد فيه غايته 

[ابوآمنة]

أخي الكريم العبد الصالح 

أسأل الله أن يوفقك لما يحبه ويرضاه 

حاولت فلم أوفق في الحل .

ممكن تساعدني في التعديل على القاعدة  المرفقة أعلاه

 

[ابوآمنة]

للرفع

[Shivan Rekany]

16 ساعات مضت, saleh204 said:

حاولت عمل ذلك على  القاعدة المرفق فلم يضبط معي

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

sql = "UPDATE [InvoiceHelperTab] SET [InvoiceHelperTab].QtyOut = [InvoiceHelperTab]![QtyOut]+[Forms]![SalInvoiceForm]![Child13].[Form]![QtyOut] WHERE ((([InvoiceHelperTab].InvoiceNo)=[Forms]![SalInvoiceForm]![Child13].[Form]![InvoiceNo]) AND (([InvoiceHelperTab].ProdNoAccTab)=[Forms]![SalInvoiceForm]![Child13].[Form]![ProdNoAccTab]));"

القي نظرتا الى الشرط فيه
الشرط الاول تمام ما فيه المشكلة

WHERE ((([InvoiceHelperTab].InvoiceNo)=[Forms]![SalInvoiceForm]![Child13].[Form]![InvoiceNo]) 

والشرط الثاني
 

AND (([InvoiceHelperTab].ProdNoAccTab)=[Forms]![SalInvoiceForm]![Child13].[Form]![ProdNoAccTab]));"

فقط غير حرف سي الاخير من هذه الكلمة ProdNoAccTab الى حرف تي ProdNoActTab
القي نظرتا الى الكود الصحيح

sql = "UPDATE [InvoiceHelperTab] SET [InvoiceHelperTab].QtyOut = [InvoiceHelperTab]![QtyOut]+[Forms]![SalInvoiceForm]![Child13].[Form]![QtyOut] WHERE ((([InvoiceHelperTab].InvoiceNo)=[Forms]![SalInvoiceForm]![Child13].[Form]![InvoiceNo]) AND (([InvoiceHelperTab].ProdNoActTab)=[Forms]![SalInvoiceForm]![Child13].[Form]![ProdNoAccTab]));"

اليك ملفك بعد تغيير حرف واحد 
 

الفواتير.rar

[ابوآمنة]

شكرا لك أخي شفان لم انتبه للخطأ 

الآن بعد إضافة فاتورة جديدة وصنف جديد ثم صنف ثاني مختلف رقمه عن الأول في النموذج الفرعي يختفي من القائمة ينحذف لماذا !!!؟؟

[Shivan Rekany]

41 دقائق مضت, saleh204 said:

الآن بعد إضافة فاتورة جديدة وصنف جديد ثم صنف ثاني مختلف رقمه عن الأول في النموذج الفرعي يختفي من القائمة ينحذف لماذا !!!؟؟

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

If DCount("[ProdNoAccTab]", "[InvoiceHelperTab]", "[InvoiceNo]=" & Me.InvoiceNo & "and [ProdNoAccTab]=" & Me.ProdNoAccTab ) > 0 Then

يجب ان يكون هكذا
 

If DCount("[ProdNoActTab]", "[InvoiceHelperTab]", "[InvoiceNo]=" & Me.InvoiceNo & "and [ProdNoActTab]='" & Me.ProdNoAccTab & "'") > 0 Then

اليك المرفق

الفواتير.rar

[ابوآمنة]

جزاك الله خيراً أخي شفان 

وأجزل الله لك العطاء وأضاء طريق وهداك إلى سواء السبيل .

ويسر أمور كما يسرت أمور الناس .

[ابوآمنة]

أخي الغالي شفان 

ملحوظة بعد إضافة الصنف بالباركود ينتقل التركيز إلى حقل الكمية .

أما يدوياً فتمام لا يخرج عن حقل رقم الصنف .

المطلب :

أريد بعد إضافة الصنف بالباركود لا يخرج عن حقل "رقم الصنف" .

هل هناك إضافة في الكود حتى يتم نقل التركيز إلى "رقم الصنف" 

تم تعديل مارس 3, 2018 بواسطه saleh204

[ابوآمنة]

للرفع

[Shivan Rekany]

23 ساعات مضت, saleh204 said:

ملحوظة بعد إضافة الصنف بالباركود ينتقل التركيز إلى حقل الكمية .

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

23 ساعات مضت, saleh204 said:

المطلب :

أريد بعد إضافة الصنف بالباركود لا يخرج عن حقل "رقم الصنف" .

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

Private Sub ProdNoAccTab_AfterUpdate()
	[Price] = [SalPrice]
		Me.QtyOut.SetFocus
		Me.ProdNoAccTab.SetFocus
End Sub

 

الفواتير.rar

[ابوآمنة]

شكراً لقد استفدت منك كثيراً 

[غسان علي]

استاذ شفان بياني باش

اخي العزيز عندي برنامج فاتورة وطبقت الكود اللي حضرتك عملته بخصوص زيادة الكمية لكن لم انجح

يا ريت وتتكرم علينا بعمل التعديل ونكون شاكرين لكم زور سباص

الفاتورة (2).rar

[غسان علي]

للرفع

[غسان علي]

استاذ شيفان السلام عليكم

الكود الذي كتبته مشكورا استفدت انا منه ايضا

اريد ان لا يرجع الى حقل الباكورد بل يذهب الى حقل جديد

يا ريت تزودنا بالكود

Private Sub ProdNoAccTab_AfterUpdate()
	[Price] = [SalPrice]
		Me.QtyOut.SetFocus
		Me.ProdNoAccTab.SetFocus
End Sub

[غسان علي]

استاذ شيفان السلام عليكم

الكود الذي كتبته مشكورا استفدت انا منه ايضا

اريد ان لا يرجع الى حقل الباكورد بل يذهب الى حقل جديد

يا ريت تزودنا بالكود

Private Sub ProdNoAccTab_AfterUpdate()
	[Price] = [SalPrice]
		Me.QtyOut.SetFocus
		Me.ProdNoAccTab.SetFocus
End Sub

للرفع

[Shivan Rekany]

1 دقيقه مضت, غسان علي said:

اريد ان لا يرجع الى حقل الباكورد بل يذهب الى حقل جديد

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

        DoCmd.GoToRecord , , acNewRec

في حدث بعد تحديث لحقل باركود

[غسان علي]

استاذ شيفان 

اولا شكرا على الاجابة

والله مشتاقين من كثر ما تقدمه من انجازات

المشكلة عندي عندي استعلام بتحديث الكمية المتبقية

فاريد بعد ان يذهب الى الكمية يشتغل الاستعلام ويذهب بعدها الى سجل جديد

[غسان علي]

للرفع