ahmedabuzena قام بنشر فبراير 18, 2018 مشاركة قام بنشر فبراير 18, 2018 السلام عليكم ورحمه الله وبركاته ارجو حل المشكله عايز لما اكتب فاتوره واختار اى صنف يتم تسجيل السعر حسب طريقه الدفع تلقائيا وجزاكم الله خيرا Database invoice type.rar رابط هذا التعليق شارك More sharing options...
ahmedabuzena قام بنشر فبراير 19, 2018 الكاتب مشاركة قام بنشر فبراير 19, 2018 السلام عليكم اخوتى فى الله ان كان الطلب غير واضج فسوف ابسط طلبي وهو item name afterupdate Private Sub Item_Name_AfterUpdate() Me.[اسعار الجمله بالدولار]= Me.[سعر الجمله $] End Sub اريد تعديل الكود باضافه قاعده if if [Payment_Method]="cash" then Me.[اسعار الجمله بالدولار]= Me.[cash price] if [Payment_Method]="one month" then Me.[اسعار الجمله بالدولار]= Me.[سعر الجمله $] if [Payment_Method]="credit" then Me.[اسعار الجمله بالدولار]= Me.[two month] المشكله انى مبعرفش اكتب كود فياريت حد يساعدنى فى كتابه الكودعلى ان يعمل الكود بنفس الطريقه وهو حدث after update for items وجزاكم الله خيرا رابط هذا التعليق شارك More sharing options...
ahmedabuzena قام بنشر فبراير 19, 2018 الكاتب مشاركة قام بنشر فبراير 19, 2018 يا ريت من الأخوه اصحاب الخبره مساعدتى للأهمية وجزاكم الله خيرا رابط هذا التعليق شارك More sharing options...
ابو ياسين المشولي قام بنشر فبراير 20, 2018 مشاركة قام بنشر فبراير 20, 2018 4 ساعات مضت, ahmedabuzena said: يا ريت من الأخوه اصحاب الخبره مساعدتى للأهمية وجزاكم الله خيرا اخي والله من كثر الحقول ما فهمت طلبك لكن انا ببسط لك الامر وانت بتفه الشرط بيكون هكذا If Me.Payment_Method = "cash" Then Me.Text101 = Me.[cash price] End If وهكذا في بقه الحقول رابط هذا التعليق شارك More sharing options...
ahmedabuzena قام بنشر فبراير 20, 2018 الكاتب مشاركة قام بنشر فبراير 20, 2018 (معدل) 18 hours ago, ابو ياسين المشولي said: اخي والله من كثر الحقول ما فهمت طلبك لكن انا ببسط لك الامر وانت بتفه الشرط بيكون هكذا If Me.Payment_Method = "cash" Then Me.Text101 = Me.[cash price] End If وهكذا في بقه الحقول اخى الكريم جزاكم الله خيرا على ردك واهتمامك انا حاولت اكت الكود ولاكن اعطانى خطأ على العموم مرفق ملف فيه الكود وهو يشرح ما اريد ارجو تعديل الكود ليعمل بشكل صحيح حتى يتم حل المشكله وجزاكم الله خيرا Database invoice type2.rar تم تعديل فبراير 20, 2018 بواسطه ahmedabuzena رابط هذا التعليق شارك More sharing options...
أفضل إجابة ابو ياسين المشولي قام بنشر فبراير 20, 2018 أفضل إجابة مشاركة قام بنشر فبراير 20, 2018 (معدل) اتفضل اخي هذا في الفورم الرئيسي اذا احتجته If Forms![حركة فاتورة البيع 2]!Payment_Method = "cash" Then Me.Sales_Invoice_sub_Subform![اسعار الجملة بالدولار] = Me.Sales_Invoice_sub_Subform![cash price] End If If Forms![حركة فاتورة البيع 2]!Payment_Method = "credit" Then Me.Sales_Invoice_sub_Subform![اسعار الجملة بالدولار] = Me.Sales_Invoice_sub_Subform![two month] End If If Forms![حركة فاتورة البيع 2]!Payment_Method = "one month" Then Me.Sales_Invoice_sub_Subform![اسعار الجملة بالدولار] = Me.Sales_Invoice_sub_Subform![سعر الجمله $] وهذا في الفرعي If Forms![حركة فاتورة البيع 2]!Payment_Method = "cash" Then Me.[اسعار الجملة بالدولار] = Me.[cash price] End If If Forms![حركة فاتورة البيع 2]!Payment_Method = "credit" Then Me.[اسعار الجملة بالدولار] = Me.[two month] End If If Forms![حركة فاتورة البيع 2]!Payment_Method = "one month" Then Me.[اسعار الجملة بالدولار] = Me.[سعر الجمله $] End If تم تعديل فبراير 20, 2018 بواسطه ابو ياسين المشولي 1 رابط هذا التعليق شارك More sharing options...
ahmedabuzena قام بنشر فبراير 20, 2018 الكاتب مشاركة قام بنشر فبراير 20, 2018 10 hours ago, ابو ياسين المشولي said: اتفضل اخي هذا في الفورم الرئيسي اذا احتجته If Forms![حركة فاتورة البيع 2]!Payment_Method = "cash" Then Me.Sales_Invoice_sub_Subform![اسعار الجملة بالدولار] = Me.Sales_Invoice_sub_Subform![cash price] End If If Forms![حركة فاتورة البيع 2]!Payment_Method = "credit" Then Me.Sales_Invoice_sub_Subform![اسعار الجملة بالدولار] = Me.Sales_Invoice_sub_Subform![two month] End If If Forms![حركة فاتورة البيع 2]!Payment_Method = "one month" Then Me.Sales_Invoice_sub_Subform![اسعار الجملة بالدولار] = Me.Sales_Invoice_sub_Subform![سعر الجمله $] وهذا في الفرعي If Forms![حركة فاتورة البيع 2]!Payment_Method = "cash" Then Me.[اسعار الجملة بالدولار] = Me.[cash price] End If If Forms![حركة فاتورة البيع 2]!Payment_Method = "credit" Then Me.[اسعار الجملة بالدولار] = Me.[two month] End If If Forms![حركة فاتورة البيع 2]!Payment_Method = "one month" Then Me.[اسعار الجملة بالدولار] = Me.[سعر الجمله $] End If جزاكم الله خيرا هذا هو المطلوب شكرا على تعبك 1 رابط هذا التعليق شارك More sharing options...
ابو ياسين المشولي قام بنشر فبراير 20, 2018 مشاركة قام بنشر فبراير 20, 2018 العفو اخي بارك الله فيك لا تنسا التقيم بلايك ههههههههههههه 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان