ehab2005 قام بنشر سبتمبر 17, 2019 مشاركة قام بنشر سبتمبر 17, 2019 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 ولكم جزيل الشكر جميعا رابط هذا التعليق شارك More sharing options...
ehab2005 قام بنشر سبتمبر 18, 2019 الكاتب مشاركة قام بنشر سبتمبر 18, 2019 معقول ما في أحد عنده طريقة لحل هذه المشكلة؟ رابط هذا التعليق شارك More sharing options...
أبو عبدالله الحلوانى قام بنشر سبتمبر 18, 2019 مشاركة قام بنشر سبتمبر 18, 2019 السلام عليكم 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 وجزاك الله خيرا تمنياتي بالتوفيق 2 رابط هذا التعليق شارك More sharing options...
ehab2005 قام بنشر سبتمبر 18, 2019 الكاتب مشاركة قام بنشر سبتمبر 18, 2019 من فضلكم هذا جزء من قاعدة بيانات فاتورة مبيعات.. في فاتورة المرتجع invoiceHFB عند ادخال نفس كود الصنف يتم زيادة الكمية بمعدل واحد صحيح في كل مرة إلى مالانهاية والمطلوب جعل الكود الذي يضيف الكميات يتوقف حده عند الكمبة المباعة في فاتورة البيع ولا يتعداها...الكود موجود في قبل التحديث للنموذج الفرعي invoiceTFB...أرجو المساعدة بشدة لأنه غلب حماري وشكرا للجميع fatoraedit.rar رابط هذا التعليق شارك More sharing options...
أبو عبدالله الحلوانى قام بنشر سبتمبر 18, 2019 مشاركة قام بنشر سبتمبر 18, 2019 ان شاء الله سأطلع علي مرفقك غدا لأن التركيز قل الآن. رابط هذا التعليق شارك More sharing options...
ehab2005 قام بنشر سبتمبر 18, 2019 الكاتب مشاركة قام بنشر سبتمبر 18, 2019 جزاك الله خيرا أخي أبو عبدالله رابط هذا التعليق شارك More sharing options...
أبو عبدالله الحلوانى قام بنشر سبتمبر 21, 2019 مشاركة قام بنشر سبتمبر 21, 2019 السلام عليكم جرب هذا لعله يكون مطلوبك آسف لم أتمكن من التجربة وآسف علي التأخير فلم أتمكن من الطلاع علي المرفق الا الآن جرب ووافنا بالنتائج fatoraedit.accdb 1 رابط هذا التعليق شارك More sharing options...
ehab2005 قام بنشر سبتمبر 21, 2019 الكاتب مشاركة قام بنشر سبتمبر 21, 2019 للأسف يا أبو عبدلله لا زال يضيف الكمية المرتجعة بدون حدود ..الله المستعان جزاك الله خير على اهتمامك يا أبو عبدالله رابط هذا التعليق شارك More sharing options...
ابو ياسين المشولي قام بنشر سبتمبر 22, 2019 مشاركة قام بنشر سبتمبر 22, 2019 (معدل) في ١٩/٩/٢٠١٩ 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 بواسطه ابو ياسين المشولي رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.