مطلوب تعديل لهذا الكود

[ehab2005]

Dim sql As String
On Error GoTo MsgErr
If DCount("[ItemCode]", "[InvoiceTT]", "[InvoiceCode]=" & Me.InvoiceCode & "and [ItemCode]=" & Me.ItemCode) > 0 Then
sql = "UPDATE [InvoiceTT] SET [InvoiceTT].QCB = [InvoiceTT]![QCB]+[Forms]![InvoiceHFB]![InvoiceTFB].[Form]![QCB] WHERE ((([InvoiceTT].InvoiceCode)=[Forms]![InvoiceHFB]![InvoiceTFB].[Form]![InvoiceCode]) AND (([InvoiceTT].ItemCode)=[Forms]![InvoiceHFB]![InvoiceTFB].[Form]![ItemCode]));"
sql1 = "UPDATE [InvoiceTT] SET [InvoiceTT].Total1 = [InvoiceTT]![Total1]+[Forms]![InvoiceHFB]![InvoiceTFB].[Form]![Total1] WHERE ((([InvoiceTT].InvoiceCode)=[Forms]![InvoiceHFB]![InvoiceTFB].[Form]![InvoiceCode]) AND (([InvoiceTT].ItemCode)=[Forms]![InvoiceHFB]![InvoiceTFB].[Form]![ItemCode]));"
sql2 = "UPDATE [InvoiceTT] SET [InvoiceTT].OppB = [InvoiceTT]![OppB]+[Forms]![InvoiceHFB]![InvoiceTFB].[Form]![OppB] WHERE ((([InvoiceTT].InvoiceCode)=[Forms]![InvoiceHFB]![InvoiceTFB].[Form]![InvoiceCode]) AND (([InvoiceTT].ItemCode)=[Forms]![InvoiceHFB]![InvoiceTFB].[Form]![ItemCode]));"
sql3 = "UPDATE [InvoiceTT] SET [InvoiceTT].TaxB = [InvoiceTT]![TaxB]+[Forms]![InvoiceHFB]![InvoiceTFB].[Form]![TaxB] WHERE ((([InvoiceTT].InvoiceCode)=[Forms]![InvoiceHFB]![InvoiceTFB].[Form]![InvoiceCode]) AND (([InvoiceTT].ItemCode)=[Forms]![InvoiceHFB]![InvoiceTFB].[Form]![ItemCode]));"
sql4 = "UPDATE [InvoiceTT] SET [InvoiceTT].Paid1 = [InvoiceTT]![Paid1]+[Forms]![InvoiceHFB]![InvoiceTFB].[Form]![Paid1] WHERE ((([InvoiceTT].InvoiceCode)=[Forms]![InvoiceHFB]![InvoiceTFB].[Form]![InvoiceCode]) AND (([InvoiceTT].ItemCode)=[Forms]![InvoiceHFB]![InvoiceTFB].[Form]![ItemCode]));"
sql5 = "UPDATE [ItemsT] SET [ItemsT].QAvilable = [ItemsT]![QAvilable]+[Forms]![InvoiceHFB]![InvoiceTFB].[Form]![QCB] WHERE ((([InvoiceTT].InvoiceCode)=[Forms]![InvoiceHFB]![InvoiceTFB].[Form]![InvoiceCode]) AND (([ItemsT].ItemId)=[Forms]![InvoiceHFB]![InvoiceTFB].[Form]![ItemCode]));"

 

من فضلكم يا إخوان..هذا الكود في نموذج فاتورة المرتجع وهو يجمع الكميات المضافة عند ادخال  الباركود آليا حيث أن الكمية تدخل واحدا واحدا كما أنه يجمع أيضا المبالغ المالية المتعلقة بالصنف من قيمة وخصم وضريبة وإجمالي قيمة وهو يعمل جيدا...المطلوب تعديله بحيث أن الكميات المدخلة للصنف لا تتعدي الكمية المباعة وحقلها الموجود بالجدول هو InvoiceTT].QSold 

ولكم جزيل الشكر جميعا  

[ehab2005]

معقول ما في أحد عنده طريقة لحل هذه المشكلة؟

 

[أبو عبدالله الحلوانى]

السلام عليكم 

1- لو ارفق لنا مرفق بسيط يحوي الفورم المراد التعديل عليه فقط لجعلت الأمر أكثر سهولة علينا وعليك

2- حاول أن تجرب هذا التعديل في رأس الشرط علي اعتبار أن الكمية المتاحة من الصنف هي "ItemQnty" ويتم تخزينها بنفس جدول الأصناف "ItemsTble"

If DCount("[ItemCode]", "[InvoiceTT]", "[InvoiceCode]=" & Me.InvoiceCode & "and [ItemCode]=" & Me.ItemCode) > 0 And nz(Vlookup("ItemQnty","ItemsTbl"),0) > 0 Then

 

وان لم تكن النقطة 2 مفهومة جيدا فعد للنقطة 1 وجزاك الله خيرا

تمنياتي بالتوفيق

 

[ehab2005]

من فضلكم  هذا جزء من قاعدة بيانات فاتورة مبيعات.. في فاتورة المرتجع invoiceHFB عند ادخال نفس كود الصنف يتم زيادة الكمية بمعدل واحد صحيح في كل مرة إلى مالانهاية والمطلوب جعل الكود الذي يضيف الكميات يتوقف حده عند الكمبة المباعة في فاتورة البيع ولا يتعداها...الكود موجود في قبل التحديث للنموذج الفرعي  invoiceTFB...أرجو المساعدة بشدة لأنه غلب حماري وشكرا للجميع

fatoraedit.rar

[أبو عبدالله الحلوانى]

ان شاء الله سأطلع علي مرفقك غدا  لأن التركيز قل الآن.

[ehab2005]

جزاك الله خيرا أخي أبو عبدالله

 

[أبو عبدالله الحلوانى]

السلام عليكم

جرب هذا لعله يكون مطلوبك

آسف لم أتمكن من التجربة وآسف علي التأخير فلم أتمكن من الطلاع علي المرفق الا الآن جرب ووافنا بالنتائج

fatoraedit.accdb

[ehab2005]

للأسف يا أبو عبدلله لا زال يضيف الكمية المرتجعة بدون حدود ..الله المستعان

جزاك الله خير على اهتمامك يا أبو عبدالله

[ابو ياسين المشولي]

في ١٩‏/٩‏/٢٠١٩ at 00:17, ehab2005 said:

جزاك الله خيرا أخي أبو عبدالله

 

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

لعلعه المطلوب

Dim sql As String
On Error GoTo MsgErr
If DCount("[ItemCode]", "[InvoiceTT]", "[InvoiceCode]=" & Me.InvoiceCode & "and [ItemCode]=" & Me.ItemCode) > 0 Then
sql = "UPDATE InvoiceTT SET InvoiceTT.QCB = [InvoiceTT]![QCB]+[Forms]![InvoiceHFB]![InvoiceTFB].[Form]![QCB] " & vbCrLf & _
"WHERE (([InvoiceTT]![QCB]<=[InvoiceTT]![QSold]) AND ((InvoiceTT.InvoiceCode)=[Forms]![InvoiceHFB]![InvoiceTFB].[Form]![InvoiceCode]) AND ((InvoiceTT.ItemCode)=[Forms]![InvoiceHFB]![InvoiceTFB].[Form]![ItemCode]));"
sql1 = "UPDATE [InvoiceTT] SET [InvoiceTT].Total1 = [InvoiceTT]![Total1]+[Forms]![InvoiceHFB]![InvoiceTFB].[Form]![Total1] WHERE ((([InvoiceTT].InvoiceCode)=[Forms]![InvoiceHFB]![InvoiceTFB].[Form]![InvoiceCode]) AND (([InvoiceTT].ItemCode)=[Forms]![InvoiceHFB]![InvoiceTFB].[Form]![ItemCode]));"
sql2 = "UPDATE [InvoiceTT] SET [InvoiceTT].OppB = [InvoiceTT]![OppB]+[Forms]![InvoiceHFB]![InvoiceTFB].[Form]![OppB] WHERE ((([InvoiceTT].InvoiceCode)=[Forms]![InvoiceHFB]![InvoiceTFB].[Form]![InvoiceCode]) AND (([InvoiceTT].ItemCode)=[Forms]![InvoiceHFB]![InvoiceTFB].[Form]![ItemCode]));"

sql5 = "UPDATE [ItemsT] SET [ItemsT].QAvilable = [ItemsT]![QAvilable]+[Forms]![InvoiceHFB]![InvoiceTFB].[Form]![QCB] WHERE ((([InvoiceTT].InvoiceCode)=[Forms]![InvoiceHFB]![InvoiceTFB].[Form]![InvoiceCode]) AND (([ItemsT].ItemId)=[Forms]![InvoiceHFB]![InvoiceTFB].[Form]![ItemCode]));"

 

تم تعديل سبتمبر 22, 2019 بواسطه ابو ياسين المشولي