البحث في الموقع

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 ولكم جزيل الشكر جميعا