خصم الكميات المباعة بعد تأكيد عملية الدفع

[hougar]

السلام عليكم

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

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

تم تعديل مارس 31, 2022 بواسطه hougar

[Eng.Qassim]

الحقول تكون غير منظمة

[hougar]

لقد قمت بمحاولة بالاعتماد على الاستعلام للتحكم في دالة نعم/لا

هذه المحاولة المتواضعة تحقق لي شرط أن الكمية لا يتم انقاصها من المخزون ويمكن ادخال عدة أصناف في الفاتورة، ولا تتم عملية تحديث الكميات للاصناف المباعة  إلا بعد اجراء عملية الدفع المباشر لقيمة الفاتورة

إن هناك خطأ أو خلل لا تبخلوا علي بتوجيهاتكم

 

تحديث الكميات بعد الدفع.rar

تم تعديل مارس 31, 2022 بواسطه hougar

[د.كاف يار]

تفضل هذا التعديل

اضافة هذه الشفرة في اي مكان داخل محرر الأكواد

Public Sub EditSelse(Parcod As String)
    Dim db As DAO.Database, rs As DAO.Recordset, TbName As String
    TbName = "المنتجات"
    Set rs = CurrentDb.OpenRecordset("SELECT * FROM [" & TbName & "] where Barcode Like '" & Parcod & "'")
    
    If Not rs.BOF And Not rs.EOF Then
        rs.MoveFirst
        While (Not rs.EOF)
        Dim SubSeles As Double: SubSeles = Nz(DSum("number", "مبيعات", "ProductN Like '" & rs.Fields("productN").Value & "'"), 0)
        rs.Edit
        rs.Fields("Quantity").Value = rs.Fields("Quantity").Value - SubSeles
        rs.Update
            rs.MoveNext
        Wend
    End If
    rs.Close
    Set rs = Nothing
End Sub

و في ازرار اضافة الصنف اضف التالي

Call EditSelse([srchb])

سيتم خصم كمية البيع مباشرة من المخزون

مرفق الملف بعد التعديل

 

تحديث الكميات بعد الدفع.zip

[hougar]

السلام عليكم ورمضان كريم

أعتذر لتأخري في قراءة الرد وتجربة الكود

شكرا جزيلا