زيادة الكمية عند ادخال نفس الصنف في الفاتورة

[Ahmed Fahmy 2022]

زيادة الكمية عند ادخال نفس الصنف في الفاتورة

لقيت االكود المطلوب لكم مش عارف اطبقة بصراحة 

في كود اسهل من دا او طريقة اخري واكون شاكر لكم 

ودا الكود اللي لقيتة 

ومرفق لكم ايضا قاعدة البيانات المراد التطبيق عليها

 

Private Sub Form_BeforeUpdate(Cancel As Integer)
	Dim sql As String

  	If DCount("[ItemID]", "[InvoiceDetails Table]", "[InvoiceID]=" & Me.InvoiceID & "and [ItemID]=" & Me.ItemID) > 0 Then

  		sql = "UPDATE [InvoiceDetails Table] SET [InvoiceDetails Table].Quantity = [InvoiceDetails Table]![Quantity]+[Forms]![Invoice Table]![InvoiceDetails Table Subform].[Form]![Quantity] WHERE ((([InvoiceDetails Table].InvoiceID)=[Forms]![Invoice Table]![InvoiceDetails Table Subform].[Form]![InvoiceID]) AND (([InvoiceDetails Table].ItemID)=[Forms]![Invoice Table]![InvoiceDetails Table Subform].[Form]![ItemID]));"

  		DoCmd.SetWarnings (warningsoff)
			DoCmd.RunSQL (sql)
			Me.Undo
		DoCmd.SetWarnings (warningson)

 	End If

 End Sub

 

تجربة.rar

ودا رابط الموضوع

 

تم تعديل يونيو 16, 2021 بواسطه jjafferr
وضع الكود بالطريقة الصحيحة بإستخدام <> القائمة

[kanory]

هذه طريق اخرى تم استخدام هذا الكود ...

On Error Resume Next
If DCount("ID", "تذيل المبيعات", "[رقم_الباركود_ت] = '" & xxx1 & "' And [رقم الفاتورة] = " & kan & "") > 0 Then
    DoCmd.SetWarnings False
        DoCmd.RunSQL "UPDATE [تذيل المبيعات] SET [تذيل المبيعات].العدد = [تذيل المبيعات].[العدد]+1  WHERE ((([تذيل المبيعات].رقم_الباركود_ت)=[forms]![فاتورة مبيعات]![تذيل المبيعات].[Form]![xxx1]) AND (([تذيل المبيعات].[رقم الفاتورة])=[forms]![فاتورة مبيعات]![رقم الفاتورة]));"
    
    Me.Undo
    
    DoCmd.RunSQL "DELETE DISTINCTROW [تذيل المبيعات].العدد, [تذيل المبيعات].رقم_الباركود_ت, [تذيل المبيعات].[رقم الفاتورة]  FROM [تذيل المبيعات]  WHERE ((([تذيل المبيعات].العدد)=1) AND (([تذيل المبيعات].رقم_الباركود_ت)=[forms]![فاتورة مبيعات]![تذيل المبيعات].[Form]![xxx1]) AND (([تذيل المبيعات].[رقم الفاتورة])=[forms]![فاتورة مبيعات]![رقم الفاتورة]));"
    DoCmd.SetWarnings True
Else
    Me.سعر_البيع.Requery
    Me.سعر_البيع = Me.سعر_البيع.ItemData(0)
    [Forms]![فاتورة مبيعات]![تذيل المبيعات]![نص40] = [Forms]![فاتورة مبيعات]![تذيل المبيعات]![نص40] - [Forms]![فاتورة مبيعات]![تذيل المبيعات]![العدد]
    DoCmd.Requery
End If

 

تجربة_7652.accdb

[Ahmed Fahmy 2022]

ألله يباركلك ويرزق يارب

100 100 ان شاء الله شغال 

[kanory]

14 ساعات مضت, 200200ahmed said:

ألله يباركلك ويرزق يارب

100 100 ان شاء الله شغال 

حياك الله .... الحمد لله رب العالمين

[Ahmed Fahmy 2022]

حاجة اخيرة

المخزن عندي قبل تعديلك كان بيتاثر بالكود دا اللي انا عاوز اطبقة علي شغل حضرتك ودا الكود

[Forms]![فاتورة مبيعات]![تذيل المبيعات]![نص40] = [Forms]![فاتورة مبيعات]![تذيل المبيعات]![نص40] - [Forms]![فاتورة مبيعات]![تذيل المبيعات]![العدد]

تم تعديل يونيو 21, 2021 بواسطه 200200ahmed

[kanory]

5 ساعات مضت, 200200ahmed said:

حاجة اخيرة

المخزن عندي قبل تعديلك كان بيتاثر بالكود دا اللي انا عاوز اطبقة علي شغل حضرتك ودا الكود

[Forms]![فاتورة مبيعات]![تذيل المبيعات]![نص40] = [Forms]![فاتورة مبيعات]![تذيل المبيعات]![نص40] - [Forms]![فاتورة مبيعات]![تذيل المبيعات]![العدد]

-------->>>>>>

تفضل :::::::

 

تجربة_7652.accdb

[Ahmed Fahmy 2022]

جزاك الله خيرا تم تطبيق الكود بالكامل بنجاح 

اشكرك اخي وحبيبي على المساعدة @kanory