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

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


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

السلام علي

وجدت قاعده بيانات للسيد @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

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

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



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

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

Important Information