اذهب الي المحتوي
أوفيسنا

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


Ahmed_J
إذهب إلى أفضل إجابة Solved by Eng.Qassim,

الردود الموصى بها

السلام عليكم

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

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

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

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

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

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

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

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

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

تحياتي لكم

Database1.rar

تم تعديل بواسطه Ahmed_J
  • Like 1
رابط هذا التعليق
شارك

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

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

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

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

  • Like 1
رابط هذا التعليق
شارك

  • أفضل إجابة

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

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

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

 

  • Like 1
رابط هذا التعليق
شارك

استاذ قاسم

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

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

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

تحياتي

 

تم تعديل بواسطه Ahmed_J
رابط هذا التعليق
شارك

استاذ قاسم 

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

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

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

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

 

 

رابط هذا التعليق
شارك

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

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

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

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

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

 

  • Like 1
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information