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

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

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

الاخ جعفر 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

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

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

يمكنك عمل هذافي الاستعلام Like "*" & [ادخل السنه] & "*"

اخي ابو زاهر انا حاولت حسب فهمي ومقدرتي والاخ jjafferr جعفر مابيقصر في البقيه اخوك ابو ياسين ‏‏المرتجع20 - نسخة.rar

نعم مرحلتك هي صحيحه وننتظر المرحله التاليه اخي جعفر انت المعلم ونحن تلاميذك ولنا الفخر بذلك انت عملت المطلوب كما فهمت من الاخ ابو زاهر باقي الادراج

الاخ jjafferr لولاحظت في مشاركتك الاولى هي تعطي رقم الصنف حسب رقم الفاتورة ولكن ينقصها عمليه الادراج واظن الاخ ابو زاهر هو يعناي الان من مشكله الادراج بنفس طريقتك لكن ينقصها الادراج لو تفضلت واخذت نظرة سوف تفهم ما اقصده تحياتي لك اخوك ابو ياسين

ههههههه بصراحه مافهمت قصدك