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

اتفضل اخي استخدم هذا الكود بعد حدث If Len(Rjmfatwra) <> 9 Or Len(Rjmfatwra) = "" Then MsgBox " استخدم تسعه ارقام فقط لا اقل ولا اكثر" & " ", , "تـنـبـيـه" Rjmfatwra= "" Me.Undo End If

اخي جعفر انا منتبه وفاهم قصدك بس هو خطاء لانه انا ادخل الفاتورة رقم A0002 واعمل مرتجع 4 وهو يروح يخصم من فاتورة A0001 شوف الصورة -1 وقبل العمليلة كان 3 ارجو ان تكون وصلتك الفكرة ما اريد ان اوصل له انه لا يعمل حسب الشرط وانا اريد الشرط انه يخصم من نفس رقم الفاتورة وليس من نفس الرقم

للاسف اخي جعفر نفس الشي انت الان لو لاحظت هي نفس الشي المطلوب انه يخصم من نفس الفاتورة انت الان لو عملت رقم الفاتورة2 وخصمت 4 وكان موجد بالفاتورة رقم واحد عدد3 بتشوف انه خصم من الفاتورة رقم واحد واصبع العدد سالب واحد

حلو شوقتني كي اشوف النتيجه اين بايكون الشرط

للاسف هذا لا يقوم بالشرط الشرط هو انه يكون مطابق لرقم الفاتورة هذا ياخذ اول فاتوره فقط

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

بشر اخي جعفر هل بيضبط والا اشوف طريقه اخرى

الاخ جعفر jjafferr هذا نفس الكود اللذي عدلت عليه ويعطي نفس النتيجه شوف المرفق A = DLookup("[Alkmiah]", "[Hrakatsanf]", "[Rajmsanf]='" & [Forms]![frm_Recall_sales]![SubSales].[Form]![Rajmsanf] & "'") B = DLookup("[Alkmiah]", "[Hrakatsanf]", "[Rjmfatwra]='" & [Forms]![frm_Recall_sales]![frm_mr].[Form]![Rjmfatwra] & "'") If [Forms]![frm_Recall_sales]![SubSales].[Form]![Alkmiah].Value = 0 Then Exit Sub If [Forms]![frm_Recall_sales]![SubSales].[Form]![Alkmiah] > A _ And [Forms]![frm_Recall_sales]![SubSales].[Form]![Alkmiah] > B Then DoCmd.Beep MsgBox " كـمـيـة الـمـرتـجـع اكـبـر مــن كـمـيـةالـبـيـع" & " ", , "تـنـبـيـه" Me.Undo Exit Sub End If احتساب-الكميه-2.rar

النموذج اسمه frm_Recall_sales ومكان الحدث هو Private Sub أمر16_Exit(Cancel As Integer) عند الخروج من الحفظ ربي يوفقك لنموذج اسمه frm_Recall_sales ومكان الحدث هو Private Sub أمر16_Exit(Cancel As Integer) عند الخروج من الحفظ ربي يوفقك

الاخ jjafferr اخي جعفر بصراحه حاولت بكل الطرق ما عرفت كيف اسوي هل لديك طريقه تنصحني بها وجزاك الله خير هذا المرفق لو تكرمت شوفه احتساب الكميه 2.rar

اخي الغالي جعفر لم تضبط معي هذا هو بعد التعديل A = DLookup("[Alkmiah]", "[Hrakatsanf]", "[Rajmsanf]='" & [Forms]![frm_Recall_sales]![SubSales].[Form]![Rajmsanf] & "'") B = DLookup("[Alkmiah]", "[Hrakatsanf]", "[Rjmfatwra]='" & [Forms]![frm_Recall_sales]![frm_mr].[Form]![Rjmfatwra] & "'") If [Forms]![frm_Recall_sales]![SubSales].[Form]![Alkmiah].Value = 0 Then Exit Sub If [Forms]![frm_Recall_sales]![SubSales].[Form]![Alkmiah] > A _ And [Forms]![frm_Recall_sales]![SubSales].[Form]![Alkmiah] > B Then DoCmd.Beep MsgBox " كـمـيـة الـمـرتـجـع اكـبـر مــن كـمـيـةالـبـيـع" & " ", , "تـنـبـيـه" Me.Undo Exit Sub End If

بارك الله فيك اخي جعفر لم يضبط معي بحال معه اذا لم يضبط بكلمك اكرر شكري لك

ليس في الاستعلام اخي جعفر هذا هو الكود If [Forms]![frm_Recall_sales]![SubSales].[Form]![Alkmiah].Value = 0 Then Exit Sub If [Forms]![frm_Recall_sales]![SubSales].[Form]![Alkmiah] > DLookup("[Alkmiah]", "[Hrakatsanf]", "[Rajmsanf]='" & [Forms]![frm_Recall_sales]![SubSales].[Form]![Rajmsanf] & "'") Then DoCmd.Beep MsgBox " كـمـيـة الـمـرتـجـع اكـبـر مــن كـمـيـةالـبـيـع" & " ", , "تـنـبـيـه" Me.Undo Exit Sub End If هو الان ينطبق بالشرط على رقم الصنف انا اريده يطبق الشرط برقم الصنف ورقم الفاتورة

اخي جعفر انا عملت الاستعلام وهذا هو UPDATE Hrakatsanf SET Hrakatsanf.Alkmiah = Nz(DLookUp("Alkmiah","Hrakatsanf","[Rjmfatwra]='" & [Rjmfatwra] & "'" & "and" & "[Rajmsanf]=" & "'" & [Rajmsanf] & "'"),0)-[forms]![frm_Recall_sales]![SubSales].[form]![Alkmiah] WHERE (((Hrakatsanf.Rjmfatwra)=[forms]![frm_Recall_sales]![frm_mr].[form]![Rjmfatwra]) AND ((Hrakatsanf.Rajmsanf)=[forms]![frm_Recall_sales]![SubSales].[form]![Rajmsanf])); مشكلتي الان شرط if كيف اجعلها بنفس الاستعلام

اتمنى من الاخ جعفر jjafferr يشرح لي الكود ويفهمي فين الخطاء

اتفضل اخي اتمنا يكون المطلوب احتساب الكميه 2.rar

حاولت بهذا ولم افلح DoCmd.RunSQL "UPDATE [Hrakatsanf] SET [Hrakatsanf].[Alkmiah]=[Alkmiah]-[forms]![frm_Recall_sales]![SubSales]![Alkmiah].[value]" _ & " WHERE ((([Hrakatsanf].Rjmfatwra)=[forms]![frm_Recall_sales]![frm_mr]![Rjmfatwra]));" _

اخواني الاعزاء ماذا ينقص هذا الكود اريد تصحيحه او ما يماثله ولكم جزيل الشكر DoCmd.RunSQL ("UPDATE [Hrakatsanf] SET [Hrakatsanf].[Alkmiah]=[Alkmiah]-[forms]![frm_Recall_sales]![SubSales]![Alkmiah].[value]" _ & " WHERE ((([Hrakatsanf].Rajmsanf)=[forms]![frm_Recall_sales]![SubSales]![Rajmsanf]));" _ & " WHERE ((([Hrakatsanf].Rjmfatwra)=[forms]![frm_Recall_sales]![frm_mr]![Rjmfatwra]));")

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

بعد اذن اخي جعفر نفس ما تفضل اخي جعفر باختلاف بسيط 824.count.accdb.zip

على ما اظن الخطاء في التنصيص =Count(IIf("[text286]>0";0)) جرب هكذ ; بدل ,

بالتوفيق اخي الكريم الحمدلله انك توصلت للحل

اتفضل اخي رضا شوف المرفق مثال1.rar

ههههههههه اخي جعفر ليس المسئله فريق واحد ولكن انا حاولت افهم من الاخ وضاح ماذا يريد يوصل له فكنت اجتهد اوصله لك

اجعل الصيغه بدل تاريخ ووقت في الجدول الى نص او رقم