Fmmm قام بنشر مارس 10 مشاركة قام بنشر مارس 10 السلام علي وجدت قاعده بيانات للسيد @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 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان