ehab2005 قام بنشر سبتمبر 19, 2019 قام بنشر سبتمبر 19, 2019 الأخ صالح من فضلك إذا يمكن أن تساعدني بتعديل كود لزيادة كمية المرتجع ..هذا جزء من قاعدة بيانات فاتورة مبيعات.. في فاتورة المرتجع invoiceHFB عند ادخال نفس كود الصنف يتم زيادة الكمية بمعدل واحد صحيح في كل مرة إلى مالانهاية والمطلوب جعل الكود الذي يضيف الكميات يتوقف حده عند الكمبة المباعة في فاتورة البيع ولا يتعداها...الكود موجود في قبل التحديث للنموذج الفرعي invoiceTFB...أرجو المساعدة بشدة وشكرا fatoraedit1.rar
صالح حمادي قام بنشر سبتمبر 21, 2019 قام بنشر سبتمبر 21, 2019 السلام عليكم أخي الكريم عندما تريد السؤال عن شيء فقم فتح موضوع جديد. و لقد قمت بفتح موضوع جديد لسؤالك ثانيا: يا ريت تسهل علينا سؤالك شوي فالنموذج الذي وضعته لم أستطع تسجيل البيانات فيه 1
أبو عبدالله الحلوانى قام بنشر سبتمبر 21, 2019 قام بنشر سبتمبر 21, 2019 10 ساعات مضت, صالح حمادي said: السلام عليكم وعليكم السلام ورحمة الله وبركاته 10 ساعات مضت, صالح حمادي said: أخي الكريم عندما تريد السؤال عن شيء فقم فتح موضوع جديد. الأخ صاحب السؤال قد قام بفتح موضوع جديد بالفعل هنا قبل سؤالكم وجزاكم الله خيرا - وأحسن اليكم
ehab2005 قام بنشر سبتمبر 21, 2019 الكاتب قام بنشر سبتمبر 21, 2019 لا تؤاخذني يا أخ صالح فقد فتحت موضوع جديد فعلا ولكن مع قلة التفاعل اعتقدت أن المنتدى مهجور فقلت دعني أجرب لعل أحدا يشاهد موضوعي..أنا آسف مرة أخرى
ابو ياسين المشولي قام بنشر سبتمبر 22, 2019 قام بنشر سبتمبر 22, 2019 (معدل) 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 بواسطه ابو ياسين المشولي
ehab2005 قام بنشر سبتمبر 22, 2019 الكاتب قام بنشر سبتمبر 22, 2019 جزاك الله كل الخير ابوياسين علي اهتمامك..وقد جربت الكود فحدد كمية المردود بواحد فقط ومنع زبادتها عن ذلك رغم أن الكمية المباعة أكثر والمفروض أن يسمح بزيادة عدد المردود حتى نفس عدد الكمية المباعة ليس أكثر منها..ولكن تعديل الكود الذي أدخلته فعل شيئا جيدا وهو أنه منع زيادة باقي الحقول التي تعمل عليها الأكواد الأخري كحقل الرصيد وحقل المبلغ وهذا شيئ جيد ومرفق الملف بعد عمل التعديل الذي اقترحته وشكرا مرة أخري fatoraedit123.rar
ابو ياسين المشولي قام بنشر سبتمبر 22, 2019 قام بنشر سبتمبر 22, 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] " & 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]));" fatoraedit123.accdb
ehab2005 قام بنشر سبتمبر 22, 2019 الكاتب قام بنشر سبتمبر 22, 2019 الله المستعان يا ابوياسين..نفس ما سبق..أعتقد أن حقل [QSold] الذي يبحث عنه موجود في سجل آخر بالجدول عند رقم فاتورة آخر هو رقم فاتورة البيع...هل يجب تعديل دالة رأس الشرط بإضافة شرط آخر مثلاً؟
ابو ياسين المشولي قام بنشر سبتمبر 22, 2019 قام بنشر سبتمبر 22, 2019 (معدل) شوف انا اضفنا له شرط نوع السند يكون بيع 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]) AND ([InvoiceTT]![MovementType]=""ÈíÚ""));" اخي لو تشرحلي الجداول بيكون افضل انا عملت هيك حسب الشرط بعتبار ان كميه البيع موجودة بالجدول وكان الشرط ان المرتجع اصغر او يساوي كميه البيع وهذا اضنه صحيح تم تعديل سبتمبر 22, 2019 بواسطه ابو ياسين المشولي
ehab2005 قام بنشر سبتمبر 22, 2019 الكاتب قام بنشر سبتمبر 22, 2019 لو أمكن بعد إذنك تنزل الملف وتشوف الجداول .. جدول تفاصيل الفاتورة [InvoiceTT] موجود به كل ما يخص عملية البيع والمرتجع والشراء. كل سجل يبدأ برقم فاتورة تجد فيه حقل لكل عملية من هذه العمليات البيع والمرتجع والشراء معاً في نفس السجل و لهذا عندما تتم عملية البيع يوضع رقم فاتورة آليا في أول السجل..هذا السجل يسجل كل ما يخص عملية البيع من كميات وخلافه في هذا السجل الذي يبدأ برقم الفاتورة وبقية الحقول التي لا تخص عملية البيع بالتحديد تترك فارغة..فإذا ما جئنا ننفذ عملية مردود مبيعات يتم فتح سجل جديد برقم فاتورة جديد يتم تسجيل بيانات عملية المردود فيه وهذا السجل الجديد ليس مسجل فيه عملية البيع وإنما هي مسجلة في سجل آخر في الأعلى يبدأ برقم فاتورة البيع...وأنا لإحضار بيانات عملية البيع في فاتورة المردود وضعت نموذج فرعي TF2 ووضعت نموذج فاتورة المبيعات HF1 داخل فاتورة المردود ويتم تحديد رقم فاتورة البيع من خلال مربع بحث غير منضم "بحث" موجود برأس فاتورة المردود
ابو ياسين المشولي قام بنشر سبتمبر 22, 2019 قام بنشر سبتمبر 22, 2019 (معدل) 29 دقائق مضت, ehab2005 said: لو أمكن بعد إذنك تنزل الملف وتشوف الجداول .. جدول تفاصيل الفاتورة [InvoiceTT] موجود به كل ما يخص عملية البيع والمرتجع والشراء. كل سجل يبدأ برقم فاتورة تجد فيه حقل لكل عملية من هذه العمليات البيع والمرتجع والشراء معاً في نفس السجل و لهذا عندما تتم عملية البيع يوضع رقم فاتورة آليا في أول السجل..هذا السجل يسجل كل ما يخص عملية البيع من كميات وخلافه في هذا السجل الذي يبدأ برقم الفاتورة وبقية الحقول التي لا تخص عملية البيع بالتحديد تترك فارغة..فإذا ما جئنا ننفذ عملية مردود مبيعات يتم فتح سجل جديد برقم فاتورة جديد يتم تسجيل بيانات عملية المردود فيه وهذا السجل الجديد ليس مسجل فيه عملية البيع وإنما هي مسجلة في سجل آخر في الأعلى يبدأ برقم فاتورة البيع...وأنا لإحضار بيانات عملية البيع في فاتورة المردود وضعت نموذج فرعي TF2 ووضعت نموذج فاتورة المبيعات HF1 داخل فاتورة المردود ويتم تحديد رقم فاتورة البيع من خلال مربع بحث غير منضم "بحث" موجود برأس فاتورة المردود نعم ولكن غير موجده بالنموذج كمية البيع لذلك هو ما يقدر يطبق الشرط شوف هذا التعديل اذا نفع بيكون ممتاز عملت له بشرط يكون نوع الفاتورة بيع 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]) AND ([InvoiceTT]![MovementType]=""بيع""));" تم تعديل سبتمبر 22, 2019 بواسطه ابو ياسين المشولي
ابو ياسين المشولي قام بنشر سبتمبر 22, 2019 قام بنشر سبتمبر 22, 2019 (معدل) بعد الفحص جرب هذا Dim sql As String On Error GoTo MsgErr If DCount("[ItemCode]", "[InvoiceTT]", "[InvoiceCode]=" & Me.InvoiceCode & "and [ItemCode]=" & Me.ItemCode) > 0 Then sql = "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])<=[Forms]![InvoiceHFB]![InvoiceHF1].[Form]![Text209]) 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 بواسطه ابو ياسين المشولي
ابو ياسين المشولي قام بنشر سبتمبر 22, 2019 قام بنشر سبتمبر 22, 2019 لاحظ اسم حقل كمية البيع بالنموذج الفرع اسمها Text209 وليست QSold
ehab2005 قام بنشر سبتمبر 22, 2019 الكاتب قام بنشر سبتمبر 22, 2019 عفوا يا ابو ياسين كنت اجرب الكود بس للأسف ما راضي يضبط شيئ يجن والله..
ابو ياسين المشولي قام بنشر سبتمبر 22, 2019 قام بنشر سبتمبر 22, 2019 ايش طلع عندك ممكن تصور فيديو بالعمليه وشرح المطلوب
ehab2005 قام بنشر سبتمبر 22, 2019 الكاتب قام بنشر سبتمبر 22, 2019 عذرا ابوياسين ما عندي امكانية الفيديو الآن... هل انت ما استطعت تفتح الملف عندك؟
صالح حمادي قام بنشر سبتمبر 23, 2019 قام بنشر سبتمبر 23, 2019 في ٢١/٩/٢٠١٩ at 23:53, أبو عبدالله الحلوانى said: الأخ صاحب السؤال قد قام بفتح موضوع جديد بالفعل هنا قبل سؤالكم شكرا أخي عبد الله على التنبيه فلم أرى موضوعه من قبل في ٢٢/٩/٢٠١٩ at 01:50, ehab2005 said: لا تؤاخذني يا أخ صالح فقد فتحت موضوع جديد فعلا ولكن مع قلة التفاعل اعتقدت أن المنتدى مهجور فقلت دعني أجرب لعل أحدا يشاهد موضوعي أعتذر أخي إيهاب لأنني لم أرى موضوعك من قبل
ابو ياسين المشولي قام بنشر سبتمبر 23, 2019 قام بنشر سبتمبر 23, 2019 19 ساعات مضت, 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]+[Forms]![InvoiceHFB]![InvoiceTFB].[Form]![QCB]<=[InvoiceTT]![QSold]) AND ((InvoiceTT.InvoiceCode)=[Forms]![InvoiceHFB]![InvoiceHF1].[Form]![InvoiceNum]) AND ((InvoiceTT.CustCode)=[Forms]![InvoiceHFB]![InvoiceHF1].[Form]![CustCode]) 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]));" ولكي تتاكد ضع هذا الكود في حدث بعد التحديث لكميه المرتجع DoCmd.RunSQL "UPDATE InvoiceTT SET InvoiceTT.QCB = [InvoiceTT]![QCB]+[Forms]![InvoiceHFB]![InvoiceTFB].[Form]![QCB] " & vbCrLf & _ "WHERE (([InvoiceTT]![QCB]+[Forms]![InvoiceHFB]![InvoiceTFB].[Form]![QCB]<=[InvoiceTT]![QSold]) AND ((InvoiceTT.InvoiceCode)=[Forms]![InvoiceHFB]![InvoiceHF1].[Form]![InvoiceNum]) AND ((InvoiceTT.CustCode)=[Forms]![InvoiceHFB]![InvoiceHF1].[Form]![CustCode]) AND ((InvoiceTT.ItemCode)=[Forms]![InvoiceHFB]![InvoiceTFB].[Form]![ItemCode]));"
ehab2005 قام بنشر سبتمبر 24, 2019 الكاتب قام بنشر سبتمبر 24, 2019 بارك الله فيك ابو ياسين...ما راضية تضبط عندي ..إذا ضبط عندك من فضلك ارفع الملف وانا انزله عندي
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.