خطا في كود الإضافة

[Fmmm]

السلام علي

وجدت قاعده بيانات للسيد @Moosak وقمت بالتعديل عليها حسب طلب ولكن واجهتني مشكله عند الإضافة الأصناف من القوائم بحيث عند الضغط علي اسم الصنف من القائمه يضيف صنف جديد اي ممكن يضيف الصنف عند كل ضغطه 

احتاج عند الضغط اذا كان غير موجود الصنف لنفس الفاتوره يقوم بالإضافة واذا كان موجود يزيد الكمية فقط 

وعند التعديل علي فاتوره سابقة إضافة من القوائمFunction mm(menuNumber As Integer)

    On Error Resume Next ' تجاهل الأخطاء ومتابعة التنفيذ

    DoCmd.SetWarnings False ' تعطيل رسائل الإنذار

Dim xx As String

xx = ActiveControl.Tag

Set rs = Me.SUBFRMOrders.Form.RecordsetClone

rs.FindFirst "itemcode1='" & xx & "'"

If rs.NoMatch Then

Me.SUBFRMOrders.SetFocus

    DoCmd.GoToRecord , , acNewRec

    Me.SUBFRMOrders!ItemCode1 = xx

    Me.SUBFRMOrders!OrderQuantity = 1

    Me.SUBFRMOrders.Form.Requery

    Me.SUBFRMOrders.Form![TI].Requery

    Me.SUBFRMOrders.Form![Te].Requery

Else

    DoCmd.RunSQL "UPDATE TblTransactions SET OrderQuantity = OrderQuantity + 1 WHERE OrderNumber = '" & Me.OrderNumber & "' AND itemcode1 = '" & xx & "'"

    DoCmd.SetWarnings True

    End If

Me.SUBFRMOrders.Form.Requery

    Me.SUBFRMOrders.Form![TI].Requery

    Me.SUBFRMOrders.Form![Te].Requery

    Me.SUBFRMOrders!OrderPrice = Me.SUBFRM

Orders!TI

End Function

الكود للداله mm

ff2.rar

[Fmmm]

؟