تسجيل الفاتوره حسب طريقه الدفع

[ahmedabuzena]

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

Database invoice type.rar

[ahmedabuzena]

السلام عليكم اخوتى فى الله ان كان الطلب غير واضج فسوف ابسط طلبي وهو

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 

وجزاكم الله خيرا

[ahmedabuzena]

يا ريت من الأخوه اصحاب الخبره مساعدتى للأهمية وجزاكم الله خيرا

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

4 ساعات مضت, ahmedabuzena said:

يا ريت من الأخوه اصحاب الخبره مساعدتى للأهمية وجزاكم الله خيرا

اخي والله من كثر الحقول ما فهمت طلبك

لكن انا ببسط لك الامر وانت بتفه

الشرط بيكون هكذا

If Me.Payment_Method = "cash" Then
Me.Text101 = Me.[cash price]
End If

وهكذا في بقه الحقول

[ahmedabuzena]

18 hours ago, ابو ياسين المشولي said:

اخي والله من كثر الحقول ما فهمت طلبك

لكن انا ببسط لك الامر وانت بتفه

الشرط بيكون هكذا

If Me.Payment_Method = "cash" Then
Me.Text101 = Me.[cash price]
End If

وهكذا في بقه الحقول

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

Database invoice type2.rar

تم تعديل فبراير 20, 2018 بواسطه ahmedabuzena

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

اتفضل اخي هذا في الفورم الرئيسي اذا احتجته

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 بواسطه ابو ياسين المشولي

[ahmedabuzena]

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

 

جزاكم الله خيرا هذا هو المطلوب شكرا على تعبك

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

العفو اخي بارك الله فيك لا تنسا التقيم بلايك ههههههههههههه