عمل قائمة منسدلة وتحديث فاتورة البيع

[Ahmed_J]

السلام عليكم

لدي ملف فاتورة  تم عملها من قبل الاستاذ @Eng.Qassim وتم تحديثها واضافة لها اكواد من قبل الاستاذ @د.كاف يار الله يبارك فيهم

تم اضافة قائمة منسدلة في الفاتورة لطريقة الدفع (نقدي - اقساط-آجل)

المطلوب: بعد تحديث القائمة المنسدلة او بزر الحفظ في نموذج Invoice

1- عند اختيار نقدي سيقوم الزبون بدفع كافة مبلغ الفاتورة  اريد ان يكون حقلي (الواصل بالدولار) و (الواصل بالدينار)  = مجموع القائمة بالدولار  او الدينار 

وتكون القيمة في حقلي الباقي بالدولار او الدينار= صفر  لانه سدد كل المبلغ وتلوينهم بلون معين.

2- عند اختيار آجل  (يعني بالدين) الزبون لابدفع اي مبلغ  اريد ان يكون حقلي (الباقي بالدولار) و (الباقي بالدينار)  = مجموع القائمة بالدولار  او الدينار 

وتكون القيمة في حقلي الواصل بالدولار او الدينار= صفر  لانه لم يسدد اي مبلغ وتلوينهم بلون معين.

3- 1- عند اختيار اقساط  سيقوم الزبون بدفع جزء من مبلغ الفاتورة  اريد ان يكون حقلي (الواصل بالدولار) و (الواصل بالدينار)  بلون معين. 

4- عمل تحديث للنموذج الرئيس والفرعي 

تحياتي لكم

Database1.rar

تم تعديل أبريل 9, 2022 بواسطه Ahmed_J

[Ahmed_J]

up

[Ahmed_J]

up

المطلوب:  وضع كود بعد التحديث  او بزر الحفظ في نموذج Invoice

[Eng.Qassim]

بالنسبة للمطلب الاول ...اما ان تجعل حقل نوع الدفع فارغا ويتم اختيار حالة الدفع بعد اكمال الفاتورة

تحتاج لتفريغ الحقل بواسطة الكود

Private Sub Form_Load()
Me.نوع_الدفع = ""
End Sub

ثم تضع الكود التالي بعد حدث النقر لنوع الدفع

Private Sub نوع_الدفع_Click()
If Me.نوع_الدفع = "نقدي" Then
    Me.التسديد_بالدولار = Me.D22
    Me.التسديد_بالدينار= Me.D11
    Me.الباقي_بالدولار.Visible = False
    Me.الباقي_بالينار.Visible = False
 End If
End Sub

  او يمكنك وضع هذا الكود فقط في زر الحفظ

[Ahmed_J]

شكرا لك استاذي العزيز

يبقى لدي مشكلة واحدة فقط

هي تحديث النماذج الرئيسي والفرعي

تحياتي لك

[Eng.Qassim]

بالاساس عند الضغط على زر حفظ يتم تحديث النموذج

على العموم حرب الكود التالي وحاول ان تضيف او تغير حسب احتياجك

Private Sub نوع_الدفع_Click()
If Me.نوع_الدفع = "نقدي" Then
    Me.التسديد_بالدولار = Me.D22
    Me.التسديد_بالدينار = Me.D11
    Me.الباقي_بالدولار.Visible = False
    Me.الباقي_بالدينار.Visible = False
    Me.التسديد_بالدولار.BackColor = vbWhite
    Me.التسديد_بالدينار.BackColor = vbWhite
  ElseIf Me.نوع_الدفع= "آجل" Then
    Me.الباقي_بالدولار.Visible = True
    Me.الباقي_بالدينار.Visible = True
    Me.التسديد_بالدولار.Value = 0
    Me.التسديد_بالدينار.Value = 0
  ElseIf Me.نوع_الدفع= "اقساط" Then
    Me.الباقي_بالدولار.Visible = True
    Me.الباقي_بالدينار.Visible = True
    Me.التسديد_بالدولار.BackColor = vbYellow
    Me.التسديد_بالدينار.BackColor = vbYellow
  
 End If
End Sub

 

[Ahmed_J]

استاذ قاسم

شكرا لك الله يبارك فيك

استاذي فهمت الموضوع  جيدا

فقط اريد عند زر الحفظ كود يقوم بتحديث النموذج الفرعي وينتقل الى سجل جديد بالنموذج الرئيسي

تحياتي

 

تم تعديل أبريل 11, 2022 بواسطه Ahmed_J

[Eng.Qassim]

ضع الكود في زر الحفظ

DoCmd.GoToRecord , , acNewRec

 

[Ahmed_J]

استاذ قاسم 

اعرف هذا الكود جيدا

لكن المشكلة التحديث للفاتورة في النموذج الفرعي عند ادخال مبيعات  اسم الصنغ والكمية والسعر   وهي بنموذج فرعي

اجماليات المبالغ لاتتحدث بسهولة  لانها في نموذج رئيسي

شكرا تعبتك معي

 

 

[Eng.Qassim]

17 ساعات مضت, Ahmed_J said:

جماليات المبالغ لاتتحدث بسهولة  لانها في نموذج رئيسي

اجماليات المبالغ يتم تحديثها بمجرد الانتقال لسجل جديد داخل النموذج الفرعي او عند الضغط على زر حفظ

او يمكن التحديث بعد اختيار نوع العملة

Private Sub نوع_العملة_Click()
Forms![Invoice]![D22].Requery
Forms![Invoice]![D11].Requery
End Sub